请问data控件连接一个有密码的数据库

Question

刚才问了好多大哥回答
可是好像是我没说明白
我就是想用data控件连接一个有密码的数据库
哪位大哥可以给个完整的例子 呀〉？
谢谢了
空件 data1
数据库 App.Path & "\EPMSDT\EPMSDB.mdb"
密码 123

Answer 1

Data1.Connect = ";pwd=123"
Data1.DatabaseName = App.Path & "\EPMSDT\EPMSDB.mdb"

Answer 2

Data1.Connect = ";pwd=123"
呵呵~

Answer 3

当 Access 数据库加了密码，直接由 Access 开启数据库时，会出现密码问话框，询问密码。但是若要由 VB 程序中开启，必须更改 VB 程序中开启数据库的指令，否则会出现错误讯息！以下针对各种状况，分别加以说明：1、 使用 DAO 语法开启数据库：OpenDatabase 
 若要由程序中开启，语法如下：
Set DB = OpenDatabase(DatabaseName, False, False, ";Pwd=密码")
实例例如：
Dim db As Database
Set db = OpenDatabase("C:\db1.mdb", False, False, ";Pwd=1")
若要使用 Data 控件，设定方法如下：
1、设定 DatabaseName 属性  ( 数据库名称 / 含路径 )
2、设定 Connect 属性，将预设的字符串【Access】改成【;Pwd=密码】 ( 不含双引号 )
3、设定 RecordSource 属性   ( 数据集 )
　
 
2、
 使用 ADO 语法开启数据库：
 
 在使用 ADODC 或 DataEnvironment 设定好联机之后，直接利用属性窗口修改 ConnectionString 属性 (附属于 ADODC) 或 ConnectionSource 属性 (附属于 DataEnvironment 的 Connection 对象)，修改的方法是在属性之后增加以下参数：
;Jet OLEDB:Database Password=密码除了 ADODC 及 DataEnvironment 之外， 直接使用 ADO 对象来开启含有密码的 mdb 数据库，设定参数的方法也是相同的。
　
 
3、
 压缩加了密码的数据库：CompactDatabase
 
 DBEngine.CompactDataBase "原数据库文件名", "新数据库文件名", , , ";pwd=密码"
实例例如：
DBEngine.CompactDatabase "C:\Db1.mdb", "C:\Db2.mdb", , , ";pwd=1"
　 
4、
 修复加了密码的数据库： RepairDatabase
 
 不必理会数据库设定的密码！
DBEngine.RepairDataBase "数据库文件名"
实例例如：
DBEngine.RepairDataBase "C:\Db1.mdb"