Dim Cn As ADODB.Connection
Dim rs As ADODB.Recordset
dim sql as string
dim dbpath as string
sql="select * from ...where ..." '这sql已能实现查询
cn.ConnectString="provider=microsoft.jet.oledb.4.0;data source=" & dbpath
cn.open
rs.open sql,cn
‘以下是实现单条记录的查询
rs.movefirst
while not rs.eof
if rs.fields(...)=... then
...
endif
wend
自己试试看,行不
一个简单的查询的例子:
'*定义一个连接
Dim Conn As ADODB.Connection
'*定义一个记录集
Dim mrc As ADODB.Recordset
'*分别实例化
Set Conn = New ADODB.Connection
set mrc =New ADODB.Recordset
'*定义一个连接字符串
dim ConnectString as string
ConnectString="provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\data\数据库名.mdb;jet oledb:database password=数据库密码"
'*打开连接
Conn1.Open ConnectString
'*定义游标位置
Conn1.CursorLocation = adUseClient
'*查询记录集(从student表中找出名子为"张三"的记录)
mrc.open "select * from student where name='张三'",Conn, adOpenKeyset, adLockOptimistic
'*现在你已经得到了你想要查询的记录集了,那就是mrc
'*你可以把此记录集与DataGrid榜定,用datagrid显示你查询的记录
set me.datagrid.datasource=mrc
*************************************************************************
老兄,明白了吧!祝你好运呀!