Office中国论坛/Access中国论坛

标题: ado打开数据库的链接表时出错，请求帮助。 [打印本页]

作者: hgxly 时间: 2009-7-12 12:47
标题: ado打开数据库的链接表时出错，请求帮助。
请教：我下面一段例程用通用的工作组文件没问题，用自己的工作组文件运行就出现：
★不是有效的账户名或密码 ★的提示。
我知道要写入些什么账户、密码之类的东西，却不知如何着手，有高手能帮助我一下吗？先谢了。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Private Sub Command0_Click()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim dhj, hx, gh As String
  dhj = "251934打火机"
'Dim strConnectString As String
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.ConnectionString = CurrentProject.Connection
cnn.Open   '★在这里出错，提示：不是有效地账户名或密码 ★
rst.ActiveConnection = cnn
'rst.Open "Select * from 进货品种 Where 进货品种 ='251934打火机'"
  rst.Open "Select * from 进货品种 Where 进货品种 ='" & dhj & "'"

Do Until rst.EOF
      'Debug.Print rst!Stor_id, rst!Qty
      hx = rst!盒箱
      gh = rst!个盒
      MsgBox hx
      MsgBox gh
      rst.MoveNext
Loop
rst.Close
cnn.Close
Set cnn = Nothing
Set rst = Nothing
End Sub

作者: asklove 时间: 2009-7-13 16:26
如果在ACCESS使用ADO
只需要：
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.open "Select * from 进货品种 Where 进货品种 ='" & dhj 　& "'",CurrentProject.Connection,1,1（1,1只读　　1,3读写）

你的问题书上翻的，是否正确自己测试
Set cnn = New ADODB.Connection
cnn.ConnectionString ="

rovider=Microsoft.jet.oledb.4.0

assword=";"Data Source=c:\***.mdb(路径)"
cnn.open
Set rst.ActiveConnection = cnn
******

作者: wu8313 时间: 2009-7-13 17:02
本帖最后由 wu8313 于 2009-7-13 17:05 编辑

请参考如下地址：
http://www.office-cn.net/vvb/vie ... ght=ado%C1%AC%BD%D3

注意文档最后的部分。
也就是普通模式和安全模式连接acc，注意连接字符串的区别。

普通安全模式：

oConn.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\somepath\mydb.mdb;" & _
"User Id=admin;" & _
"Password=;"

ii)如果使用了System database:
oConn.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\somepath\mydb.mdb;" & _
"Jet OLEDB:System Database=system.mdw;", _
"admin", ""

-------------------
因为你采用了工作组文件，需要使用第二种连接方式。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)