数据库连接的问题？

[xjbx]

引用：msado26.tlb

Dim conn As New ADODB.Connection
dbpath = App.Path & "\test.mdb"
conn.Open "driver={Microsoft Access Driver (*.mdb)};" & "dbq=" + dbpath + ";uid=admin;pwd=''"

错误提示：Open 的“_connection”方法失败？

[Zedee]

可能应是dbpath = App.Path & "test.mdb"
给dbpath加个监视看看

[gxingmin]

conn.open "driver={Microsoft access driver (*.mdb)};dbq=" & App.Path & "\test.mdb;pwd="

[qiqif]

你用的access是2000还是97

[Zedee]

strSql="driver={Microsoft Access Driver (*.mdb)};" & "dbq=" + dbpath + ";uid=admin;pwd=''"
然后msgbox strsql 看看有没有错

[xjbx]

路径没问题！

问题是出在ado上！

[xjbx]

gxingmin(小高)：
我用了你的方法改了，错误依然！

而且，我发现连接sql server200 也是一样的错误！

[岁月无声-我心飞翔]

Dim conn As New ADODB.Connection
dbpath = App.Path & "\test.mdb"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath & ";Persist Security Info=False"

[Zedee]

楼主：我用你的代码测试通过了，问题可能在别的地方

[xjbx]

连接sql server200 的代码：

Dim conn As New ADODB.Connection

Private Sub Command1_Click()
strdsn = "Driver={SQL server};Server=128.128.10.102;uid=sa;pwd=test;database=test"
Set conn = CreateObject("adodb.connection")
conn.open strdsn
End Sub
报的错是一样的

[xjbx]

如果是我的msado26.tlb有问题的话，该如何办呢？

[xjbx]

up

[岁月无声-我心飞翔]

Dim conn As New ADODB.Connection
dbpath = App.Path & "\test.mdb"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath & ";Persist Security Info=False"

[饮水需思源]

dim conn as new adodb.connection
'打开数据连接
With conn
If .State = adStateOpen Then .Close
.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库路径\数据库名称;Mode=ReadWrite;Persist Security Info=False"
.Open
End With

[xjbx]

问题依然存在？

[laocai8]

Dim inipath As String
Dim cnnCom As New ADODB.Connection
Dim ConnectionString As String
inipath = App.Path + "\test.mdb"
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
+inipath+";Persist Security Info=False"
If cnnCom.State = adStateOpen Then
cnnCom.Close
End If
cnnCom.CursorLocation = adUseClient
cnnCom.ConnectionString = ConnectionString
cnnCom.Open

[chenyu5188]

Dim dbpath As String
Dim cnn As New ADODB.Connection
Dim ConnectionString As String
inipath = App.Path + "\XXX.mdb"
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
& inipath & ";Persist Security Info=False"
If cnn.State = adStateOpen Then
cnn.Close
End If
cnn.CursorLocation = adUseClient
cnn.ConnectionString = ConnectionString
cnn.Open

[xjbx]

我自己解决了，覆盖重装了os就可以了！