7,762
社区成员
发帖
与我相关
我的任务
分享ACCESS查询
access的查询问题，我已经将数据库建好，其中有两个表，我想用MSHFlexGrid控件实现查询两种条件的记录
1是查询库中所有的表中字段为“姓名”的记录
2是查询库中的某一个表中字段为“姓名”的记录
请高手提供代码。
另外ADODC的绑定应该怎样设置，ADODC属性里面设置是不是只能设成表名称啊，不过这样的话，怎样来查询1这个条件呢？
1是查询库中所有的表中字段为“姓名”的记录
2是查询库中的某一个表中字段为“姓名”的记录
请高手提供代码。
另外ADODC的绑定应该怎样设置，ADODC属性里面设置是不是只能设成表名称啊，不过这样的话，怎样来查询1这个条件呢？
...全文
请发表友善的回复…
发表回复
liuxum 2003-02-19
- 打赏
- 举报
up
zhangyongjia 2003-02-19
- 打赏
- 举报
给分吧
zhangyongjia 2003-02-18
- 打赏
- 举报
没人回答
zhangyongjia 2003-02-13
- 打赏
- 举报
如果再加上删除按钮呢
northwolves 2003-02-13
- 打赏
- 举报
1.
Dim alltable As String
Sub addtomsflexgrid(mydbpath As String) '显示指定数据库中所有表名
MSFlexGrid1.Rows = 1
MSFlexGrid1.cols = 100 '自己设置
Dim mycnn As New ADODB.Connection
Dim mycat As New ADOX.Catalog
Dim myrst As ADODB.Recordset
mycnn.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & mydbpath & ";"
alltable = ""
Set mycat.ActiveConnection = mycnn
For i = 0 To mycat.Tables.Count - 1
If Left(mycat.Tables.Item(i).Name, 4) <> "MSys" Then '去掉系统表
alltable = alltable & mycat.Tables.Item(i).Name
End If
Next
Dim tname As Variant
tname = Split(alltable, vbCrLf)
MSFlexGrid1.Row = 1
For i = 0 To UBound(tname)
myrst.Open "select * from " & Trim(tname(i)) & " where 字段1='姓名'", mycnn, adOpenKeyset, adLockOptimistic
myrst.MoveFirst
Do While Not myrst.EOF
For j = 0 To myrst.Fields.Count - 1
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows, j) = myrst.Fields(j).Value
Next
myrst.MoveNext
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
Loop
set myrst=nothing
Next
set mycnn=nothing
End Sub
2.同上，但简单多了。
Dim alltable As String
Sub addtomsflexgrid(mydbpath As String) '显示指定数据库中所有表名
MSFlexGrid1.Rows = 1
MSFlexGrid1.cols = 100 '自己设置
Dim mycnn As New ADODB.Connection
Dim mycat As New ADOX.Catalog
Dim myrst As ADODB.Recordset
mycnn.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & mydbpath & ";"
alltable = ""
Set mycat.ActiveConnection = mycnn
For i = 0 To mycat.Tables.Count - 1
If Left(mycat.Tables.Item(i).Name, 4) <> "MSys" Then '去掉系统表
alltable = alltable & mycat.Tables.Item(i).Name
End If
Next
Dim tname As Variant
tname = Split(alltable, vbCrLf)
MSFlexGrid1.Row = 1
For i = 0 To UBound(tname)
myrst.Open "select * from " & Trim(tname(i)) & " where 字段1='姓名'", mycnn, adOpenKeyset, adLockOptimistic
myrst.MoveFirst
Do While Not myrst.EOF
For j = 0 To myrst.Fields.Count - 1
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows, j) = myrst.Fields(j).Value
Next
myrst.MoveNext
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
Loop
set myrst=nothing
Next
set mycnn=nothing
End Sub
2.同上，但简单多了。
