泾川吧:VB做个程序怎么连接ACCESS服务器上的ACCESS数据库.

来源:百度文库 编辑:神马品牌网 时间:2024/04/29 14:12:36

Dim conn As New ADODB.Connection
Dim connstr As String
Dim sdbname As String
sdbname = App.Path + "\db\#db.mdb"
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & "Data Source=" & sdbname & ";" & "Jet OLEDB:"
conn.Open connstr

Dim sql As String
sql = "select * from admin"
Dim rs As New ADODB.Recordset
rs.Open sql, conn, 1, 3

使用ODBC连接