|
|
在做VB与CAD时，遇到一个需要VB与Access的连接问题，如下连接语句，在access没有密码时，是可以连接通讯的，但是当给access加了密码后，就进不去了：
Dim dbWR As Workspace
Dim dbDB As Database
Dim dbDL As Recordset
Set dbWR = CreateWorkspace("", "admin", "", dbUseJet)
Set dbDB = dbWR.OpenDatabase("C:\Program Files\Database.mdb", False, True, "")
Set dbDL = dbDB.OpenRecordset("H-Data", dbOpenDynaset, dbReadOnly)
如果设置密码为123456，则做了如下调整，可还是不行：
Set dbWR = CreateWorkspace("", "admin", "123456", dbUseJet)
求解…………
|
|
置顶卡
