谁有VB查询代码，可以给我一份吗？

Question

VB的ADO动态连接数据库Access，查询某两个字段，如果有相同的，把所有相同字段的记录显示在datagrid1里，谁有这样类似的查询代码可以给我一份吗？谢谢了

Answer 1

Dim cnaccess As New ADODB.Connection, rsaccess As New ADODB.Recordset
Dim rstemp As New ADODB.Recordset
cnaccess.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\temp.mdb;" & "Persist Security Info=False"
cnaccess.Open
rsaccess.CursorLocation = adUseClientsqlstr = " select * from 表名 where 字段1=' " & str1 & "' and 字段2='" & str2 & "'" rsaccess.Open sqlstr, cnaccess, 3, 1Set frmbjcjd.DataGrid1.DataSource = rsaccess
Set rsaccess = Nothing
cnaccess.Close
End If