dim cn as new adodb.connection dim rs as new adodb.recordset cn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & App.Path & "\db.mdb;Uid=Admin;Pwd=;" rs.Open "select * from table1 where id =" & arrID , cn, 1, 3 while not rs.eof debug.print rs(0) rs.movenext wend .. .. .. .............. 可以照上面例子,用SQL语句进行查询。你是指这个吗?
dim rs as new adodb.recordset
cn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & App.Path & "\db.mdb;Uid=Admin;Pwd=;"
rs.Open "select * from table1 where id =" & arrID , cn, 1, 3
while not rs.eof
debug.print rs(0)
rs.movenext
wend
..
..
..
..............
可以照上面例子,用SQL语句进行查询。你是指这个吗?