Question

VB 打开带密码的数据库进行操作？？

Dim Cnn As ADODB.Connection
Dim Rs As ADODB.Recordset
Set Cnn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\data\ysmx.mdb" + ";password=us5201314sw;Persist Security Info=False"
Rs.CursorLocation = adUseClient
Rs.Open "select * from 表2", Cnn, 1, 3

这里的密码应该如何写上去，才能打开操作

Answer 1

加单引号
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\data\ysmx.mdb" + ";password='us5201314sw';Persist Security Info=False"

追问

Private Sub Command4_Click()
Dim dbs As Database
Set dbs = DBEngine.OpenDatabase("" & App.Path & "\data\ysmx.mdb", , "me Access;pwd=us5201314sw")
dbs.Execute "ALTER TABLE jbxx " _
& "ADD COLUMN Salary CHAR(20); "
dbs.Close
我使用的是ADO 为啥总提示密码无效

追答

你这叫DAO，过时了，我上面说的才是ADO。
DAO这样：
Set dbs = DBEngine.OpenDatabase (App.Path & "\data\ysmx.mdb", , "us5201314sw")

Answer 2

应该是设置 cnn 的connectstring才对吧 不是open
另外 密码加单引号试试看