如何使用VB实现对ACCESS数据库中表的数据查询呢

Question

我曾用过ADO控件,ODBC API函数都不能解决对ACCESS数据库中表的数据查询,尤其是查询结果为多条.请大家指点一下,具体代码实现.

Answer 1

不会吧，直接用ADO就行了。
一个例子。
使用前，引用microsoft ActiveX Data Objects 2.X Library组件。
Public Function M_Access(M_AccessName As String)
Dim M_temp As String
Dim M_Error As String
On Error GoTo ine
Set conn = New Connection
Set rs = New ADODB.Recordset
M_temp = ""
M_temp = App.Path + "\" & M_AccessName & ";"
conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & M_temp & ";"
Set rs = conn.Execute("select * from login where number=1")
U_Setting.name = rs.Fields(0).value
U_Setting.jname = rs.Fields(1).value
U_Setting.adress = rs.Fields(2).value
U_Setting.tel = rs.Fields(3).value
U_Setting.fax = rs.Fields(4).value
U_Setting.zip = rs.Fields(5).value
U_Setting.lxr = rs.Fields(6).value
U_Setting.Servername = rs.Fields(7).value
U_Setting.Databasename = rs.Fields(8).value
U_Setting.odbc = rs.Fields(9).value
U_Setting.username = rs.Fields(11).value
U_Setting.Password = rs.Fields(12).value
rs.Close
conn.Close
GoTo inerr
ine:
   M_Error = "数据库错误号：" & Err.Number & " 错误内容：" & Err.Description
   MsgBox M_Error, , "错误信息"
inerr:
Set rs = Nothing
End Function