怎样用data控件打开带有密码的access数据库？然后使之label控件可以连接到这个带有密码的数据库？

Question

dim dbs as database
dim rst as recordsetset dbs=opendatabase("path",,";pwd=xxxx")
set rst=dbs.openrecordset("xx")set Data1.recordsource=rst

Answer 1

data的控件有一个connect属性，把它设为“Access;pwd=password”，其中password为数据库密码。

Answer 2

第二个我设了，但显示是“找不到可插入的ISAM”，记录源无法设置
第一个运行到set Data1.recordsource=rst时，显示“属性的使用无效”
各位再帮帮忙吧？

Answer 3

把connect属设为“;pwd=password”再试一下!

Answer 4

借用一下楼上的代码
dim dbs as database
dim rst as recordsetset dbs=dbengine.opendatabase("pathandname",,"ms access;pwd=xxxx")
set rst=dbs.openrecordset("xx")set Data1.recordsource=rst用第二种方法时，要确认databasename正确，因为更改connect后，会自动更改databasename

Answer 5

借用一下楼上的代码
dim dbs as database
dim rst as recordsetset dbs=dbengine.opendatabase(yourmdbfile,false,false,"ms access;pwd=xxxx")
set rst=dbs.openrecordset("xx")set Data1.recordsource=rst用第二种方法时，要确认databasename正确，因为更改connect后，会自动更改databasename（只有路径，没有文件名)，需要手工输入文件名
connect 应该为;pwd=xxxx

Answer 6

Data1.DatabaseName =  "数据库"
Data1.Connect = ";pwd=密码"
Data1.RecordSource = "表名"
Data1.Refresh

Answer 7

我把代码放在Form_Activate()里，但运行到set Data1.recordsource=rst时，还是提示“属性的使用无效”，如果把这句屏蔽，则不显示任何错误，但我想把label控件连到这个数据库时
label1= Data1.Recordset.Fields("字段")
显示错误'91'

Answer 8

set Data1.recordsource=rst应该改为
set data1.recordset=rst前面没看清，对不起。

Answer 9

label1= Data1.Recordset.Fields("字段")
这句代码好象很多地方不通啊!如果想让label1绑定data1，可能设计时将label1的DataSource属性设为data1,DataField属性设置为你想要显示的字段。这时你只能用第二种连接方法。如果是用第一种连接方法，请先在设计时将label1的DataSource属性设为data1,在代码中写label1.datafield="xxx"