如何用VB打印有密码的ACCESS数据库中的报表
编号：QA003859
建立日期: 2001年2月8日 最后修改日期：2001年2月8日
所属类别：
曾晓民:
操作系统: WIN98
编程工具: VB6,ACCESS97
问题: 如何用VB打印有密码的ACCESS数据库中的报表？
有如下程序，用自动化控制ACCESS打印报表：
Set AccObj=New Access.Application
AccObj.OpenCurrentDatabase "C:\Sun.mdb"
AccObj.DoCmd.OpenReport "YearRep",acViewNormal
AccObj.Quit
在无密码时可通过，加密码后第2行出错。如何打开密码？
水平: 中级
回答:
下面的方法有点怪。首先在VB的引用对话框中选择“Microsoft DAO 3.xx Object Library”（xx的具体值和你的VB版本有关）
Dim acc As Access.Application
Dim db As DAO.Database
Dim strDbName As String
strDbName = "D:\ComponentSource\DBFiles\CSMain\CSMain.mdb"
Set acc = New Access.Application
acc.Visible = True
Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=outlook")
acc.OpenCurrentDatabase strDbName
db.Close
Set db = Nothing
此问题由李海回答。
| |
|
|
| |
|
|
