要在 vb 中的 工程->引用-> 加入 Microsoft Activex Data Objects 2.1 Library 数据查询 如下Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As Stringsql = "select * from tablename" conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="=" + App.Path + "\dbname.mdb;Persist Security Info=False" conn.Open rs.Open sql, conn, adOpenKeyset, adLockOptimistic
数据查询
如下Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As Stringsql = "select * from tablename"
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="=" + App.Path + "\dbname.mdb;Persist Security Info=False"
conn.Open
rs.Open sql, conn, adOpenKeyset, adLockOptimistic