[BASIC] VB连接加密数据库问题(ACCESS)

netsaga

某论坛得不到答案来大牛


很奇怪啊.本来一直都可以连接的.下午又突然不能连接了...提示密码错误...很奇怪啊.很奇怪.
保证 帐号密码正确.我在ACCESS中都可以打开.
下面是代码.朋友帮忙看看 怎么回事...

Private Sub ClJSJK_Click()
On Error GoTo LJCW
Dim MyConn As New ADODB.Connection
MyConn.Provider = "Microsoft.Jet.OLEDB.4.0"
MyConn.Properties("Data Source") = TSJKLJ
MyConn.Properties("Jet OLEDB:System database") = TXZAQZ
MyConn.Open UserID:=TAQZWJZH, Password:=TAQZWJMM
MyConn.Open Password = TWXSJKMM
LJCW:
LRZJL.AddItem "错误:" & "代码:" & Err.Number & "," & Err.Description
LRZJL.ListIndex = LRZJL.ListCount - 1
End Sub郁闷ING...没人回答啊...

数据库是有 工作组 和 密码双重保护的....
是不是 数据库的不能这样写啊.

MyConn.Open Password = TWXSJKMM
调试的时候,走到MyConn.Open UserID:=TAQZWJZH, Password:=TAQZWJMM 就停止了.已经调到错误代码中了.

FlowerCode

1. MyConn.Open UserID:=TAQZWJZH, Password:=TAQZWJMM
   
2. MyConn.Open Password = TWXSJKMM

复制代码

对数据库不熟悉，可以这样写么？

另外Err标签是要判断的。比如：

1. Err:
   
2. If Err Then
   
3. LRZJL.AddItem "错误:" & "代码:" & Err.Number & "," & Err.Description
   
4. LRZJL.ListIndex = LRZJL.ListCount - 1
   
5. End If

复制代码

netsaga

对数据库不熟悉，可以这样写么？

另外Err标签是要判断的。比如：
FlowerCode 发表于 2010-2-1 06:17

呃.这样写应该没有错吧.感谢 FC的 精彩回答. 继续等待大牛 降临

netsaga

继续顶..等高手

ChiChou

莫非要加引号？

MyConn.Open UserID:="TAQZWJZH", Password:="TAQZWJMM"
MyConn.Open Password = "TWXSJKMM"

netsaga

莫非要加引号？

MyConn.Open UserID:="TAQZWJZH", Password:="TAQZWJMM"
MyConn.Open Password = "TWXSJKM ...
ChiChou 发表于 2010-2-3 17:54

    の.大牛 如果加了引号岂不是成了 常量了???? 另外我也测试过了.加引号是无效的啊哈和.

ChiChou

TWXSJKM是变量名？