VB怎么用ADO连接ACCESS数据库，并且解决相对路径的问题

Question

VB怎么用ADO连接ACCESS数据库，并且解决相对路径的问题

Answer 1

mCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\LenTai.mdb" & ";Persist Security Info=False"

Answer 2

'将数据库放在程序所在目录下，用以下代码连接：
dim conn as new adodb.connection
with conn
    If .State = adStateOpen Then .Close
    .ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.mdb;Mode=ReadWrite;Persist Security Info=False"
    .Open
end with

Answer 3

用App.Path & "\数据库名.mdb"代替路径就ok了

Answer 4

Dim Conn As ADODB.ConnectionSet Conn = New ADODB.Connection
       Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Student.mdb"
       Conn.Open

Answer 5

str="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.mdb;Mode=ReadWrite;Persist Security Info=False"

Answer 6

Dim MyCon As ADODB.Connection
Dim Str as String 
Set MyCon = New ADODB.Connection
Str="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.mdb"
ＭｙCon.Open　Str

Answer 7

str="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & iif(right(App.Path,1)="\",app.path,app.path & "\") & "数据库名.mdb;Mode=ReadWrite;Persist Security Info=False"

Answer 8

DB.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB\DATA.mdb;Jet OLEDB:Database Password=1234;"
看得懂吧