不用SQL Server,组合查询该怎样写?

Eagle136 2003-03-30 12:34:46
我用的是单机且不想用SQL Server,现在要以:“邮政编码,公司名称,日期”进行组合查询,结果显示在MSHFlexgrid中,我该怎样去连接数据库和进行查询,望高手指点(请尽量详细点,最好有代码!因为我刚开始学VB!)
...全文
9 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Eagle136 2003-04-07
天行兄,谢谢您!
问题已经搞定了,这会就把贴结了。
回复
donglw 2003-03-30
这是我自己的代码,稍改了一下,没细看有错的话自己改吧,思路有了,无非就是组合条件而已:

Dim rs As New ADODB.Recordset
Dim expr(1 To 3) As String
Dim str As String

str = ""
For i = 1 To 3
expr(i) = ""
Next

If Trim(txtDate) <> "" And IsDate(Trim(txtDate1)) Then
expr(1) = "日期 = #" & Trim(txtDate) & "#"
End If

If Trim(txtCode) <> "" Then
expr(2) = "邮政编码 = '" & Trim(txtCode) & "'"
End If

If Trim(txtName) <> "" Then
expr(3) = "公司名称 = '" & Trim(txtName) & "'"
End If

For i = 1 To 3
If Trim(expr(i)) <> "" Then
If Trim(str) = "" Then
str = expr(i)
Else
str = str & " and " & expr(i)
End If
End If
Next

If str <> "" Then
str = " WHERE " & str
End If
rs.Open "SELECT * FROM table1" & str, cn, adOpenDynamic, adLockReadOnly

Set Grid1.DataSource = rs
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-03-30 12:34
社区公告
暂无公告