收录日期:2018/06/20 09:45:03 时间:2016/05/18 03:14:24 标签:数据库(包含打印,安装,报表)
一个程序,用access2000作数据库,现在给数据库加了个密码,密码是yuan,联接时没报错,而且能搜索,可在datagrid控件中,会报错.不知道是不是联接的问题,代码如下:

Public Sub main()
Dim strConn As String

  strConn = "Data Source=" & App.Path & "\db1.mdb;" & _
            "Jet OLEDB:Database Password=yuan"
  db1.Provider = "Microsoft.Jet.OLEDB.4.0"
  db1.Open ConnectionString:=strConn

  
  frmMain.Show
End Sub


Private Sub cmdshow_Click()
Set dgresult.DataSource = db1.Execute("select * from book")
End Sub


急救,请各位达人指点!





MSDN里面有说需要的参数的,至少你就没有用户名




cn.ConnectionString = "provider= Microsoft.Jet.OLEDB.4.0;data Source=" & App.Path & "\data.mdb" & ";Jet OLEDB:Database Password=yuan"
    cn.Open