神马品牌网奶粉在中国清关要多久:VB连接带密码Access2000的问题
来源：百度文库 编辑：神马品牌网 时间：2024/05/09 04:27:10
初学VB数据库编程。
窗体上有一个DATA控件、2个TEXT控件；数据库为Access2000格式，文件名为DB.mdb，密码为123456，表名为基本档案，有2个字段：编号、姓名。
我的程序是这样：
Private Sub Form_Load()
Data1.DatabaseName = App.Path + "\DB.mdb"
Data1.RecordSource = "基本档案"
Text1.Text = Data1.Recordset.Fields("编号")
Text2.Text = Data1.Recordset.Fields("姓名")
End Sub
然后提示密码错误，我不知道如何用DATA控件连接带密码的Access2000文件，请高手赐教！
前面2位的答复都未能解决，有没有高手可以写出详细的代码呀？
能解决的话，再加15分。
试过3楼方法，提示“不可识别的数据库模式”
窗体上有一个DATA控件、2个TEXT控件；数据库为Access2000格式，文件名为DB.mdb，密码为123456，表名为基本档案，有2个字段：编号、姓名。
我的程序是这样：
Private Sub Form_Load()
Data1.DatabaseName = App.Path + "\DB.mdb"
Data1.RecordSource = "基本档案"
Text1.Text = Data1.Recordset.Fields("编号")
Text2.Text = Data1.Recordset.Fields("姓名")
End Sub
然后提示密码错误，我不知道如何用DATA控件连接带密码的Access2000文件，请高手赐教！
前面2位的答复都未能解决，有没有高手可以写出详细的代码呀？
能解决的话，再加15分。
试过3楼方法，提示“不可识别的数据库模式”
Data1.DatabaseName = App.Path + "\DB.mdb"
Set data1.recordset = OpenDatabase("Test.mdb", False, False, ";PWD =" & Password)
其实在我这里已经运行通过了。你再改成如下：
(在设计状态下，)选中Data1控件，把它的connect属性由“Access 2000;”改为“Access 2000;pwd=123456”，就行了，你试试。
改为“Access 2000;pwd=123456”，你从这里复制过去。
首先设置 Connect 属性为“;pwd=密码”:Data1.Connect = ";pwd=密码"
即可成功打开!