dim Cnn as new adodb.connection Cnn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator.HITR\My Documents\db3.mdb;Persist Security Info=False"Cnn.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & app.path"'\db3.mdb;Persist Security Info=False"
project-References 找到Microsoft ActiveX Data Objects 2.5 Library选定它,前面勾选 ok 使用: Dim mConn As New ADODB.Connection 用的时候new也可以 Dim mConn As ADODB.Connection set mConn=New ADODB.Connection mConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb" & ";Persist Security Info=False" mConn.Open如果是网路的,可以建立虚拟路径或者路径用\\domain\file\test.mdb
Cnn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator.HITR\My Documents\db3.mdb;Persist Security Info=False"Cnn.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & app.path"'\db3.mdb;Persist Security Info=False"
找到Microsoft ActiveX Data Objects 2.5 Library选定它,前面勾选
ok
使用:
Dim mConn As New ADODB.Connection
用的时候new也可以
Dim mConn As ADODB.Connection
set mConn=New ADODB.Connection
mConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb" & ";Persist Security Info=False"
mConn.Open如果是网路的,可以建立虚拟路径或者路径用\\domain\file\test.mdb