1.用ADO访问带有密码的数据库:Option Explicit Dim conn As New ADODB.Connection Dim rst As New ADODB.RecordsetPrivate Sub Form_Load() rst.Open "Select * from users", "DBQ=" & "D:\Inetpub\wwwroot\Password\_database\passwords.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};UID=;PASSWORD=Xpass", 3, 1 End Sub 2.用DAO访问带有密码的数据库: gsDatabase = "D:\Documents and Settings\Administrator\桌面\NewFullText\FDFullTextDatabase.mdb" gsConnect = "ms access;pwd=yuanguanyuan" Set Dbs = DBEngine.Workspaces(0).OpenDatabase(gsDatabase, False, False, gsConnect) 3.小伙子,别告诉我不行! 这可是我自己用的源代码!4.这两段代码你给 68分 似乎是少了一点呀!
to playyuer: 你的串可用,太谢谢了!其实 ILovePRO 已经就差不多写对了,只是他把jet前的;写成了:,我拷贝的时候也没注意,当然不可用了,我现在明白了! to y1g1y1: 对不起了,你的也是好串,但上面能用了,我就不必用你的了。我的分只有给 playyuer 了,他是第一个给我解决问题的。谢谢大家,也麻烦大家了!以后有机会同大家商讨!
to y1g1y1; 告诉你不能用非常正常,我就是在我的机器上一点问题都没有,可是我把上面的代码给了人家之后却告诉我不行,我实在想不通是怎么回事,况且说了,68分也不少了
其中数据库是加密了的,后缀为cjp,userid取access默认的管理员admin,因为在设置密码时就不用输入用户名,密码是我的生日770427。在没有密码杂情况下,能打开,就是一写密码就不行了。55555555555555
谁要是替我解决了这个问题,分全给他。
再次谢谢!!!
改后的串是: STRCON = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mdb\rlgs.mdb" & ":jet oledb:database password=770427"
ODBC参考串:
STRCON = "DSN=rlgs;DBQ=" & App.Path & "\mdb\rlgs.mdb;" & "DriverId=281;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;password=770427;"
STRCON = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\mdb\rlgs.mdb" & ";jet oledb:database password=770427"
Dim conn As New ADODB.Connection
Dim rst As New ADODB.RecordsetPrivate Sub Form_Load()
rst.Open "Select * from users", "DBQ=" & "D:\Inetpub\wwwroot\Password\_database\passwords.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};UID=;PASSWORD=Xpass", 3, 1
End Sub
2.用DAO访问带有密码的数据库:
gsDatabase = "D:\Documents and Settings\Administrator\桌面\NewFullText\FDFullTextDatabase.mdb"
gsConnect = "ms access;pwd=yuanguanyuan"
Set Dbs = DBEngine.Workspaces(0).OpenDatabase(gsDatabase, False, False, gsConnect)
3.小伙子,别告诉我不行!
这可是我自己用的源代码!4.这两段代码你给 68分 似乎是少了一点呀!
你的串可用,太谢谢了!其实 ILovePRO 已经就差不多写对了,只是他把jet前的;写成了:,我拷贝的时候也没注意,当然不可用了,我现在明白了!
to y1g1y1:
对不起了,你的也是好串,但上面能用了,我就不必用你的了。我的分只有给 playyuer 了,他是第一个给我解决问题的。谢谢大家,也麻烦大家了!以后有机会同大家商讨!
告诉你不能用非常正常,我就是在我的机器上一点问题都没有,可是我把上面的代码给了人家之后却告诉我不行,我实在想不通是怎么回事,况且说了,68分也不少了
你在代码中应该把数据库路径与密码之类都要相应修改!
引用DAO与ADO!