本文介绍一种利用VB6.0对Access数据库进行打包的方法，供网友参考。
步骤1：
进入VB6.0，创建一个标准EXE工程
 
步骤2：创建引用
 
步骤3：引用Microsoft Access 11.0 Object Library
 
步骤4：窗体的加载事件中加入如下代码
Private Sub Form_Load()
Dim path As String
path = App.path & "\办公自动化系统.mdb"                        '数据库文件的路径
Dim new_db                                                '用于创建文件
Set new_db = CreateObject("access.application")           '创建一个新的ACCESS文件
new_db.OpenCurrentDatabase path, False                    '打开ACCESS数据库文件
End                                                       '关闭VB系统
End Sub
 
步骤5：保存工程
步骤6：生成EXE文件
步骤7：关闭VB6.0
步骤8：打开VB6.0的打包工具
 
步骤9：选择要打包工程，单击游览按钮查找你的工程文件
 
步骤10：打包，单击打包
 
步骤11：选择标准安装包，单击下一步
 
步骤12：选择生成包的路径，然后单击下一步
 
步骤13：添加所需的文件，这一步非常重要，一定要把数据库加上，单击添加按钮加入
 
 
步骤14：选单个压缩文件，单击下一步
步骤15：输入安装程序标题，然后单击下一步，再单击下一步，再单击下一步，再单击下一步，单击完成。
 
具体可参考本例中的安装包及附件中的Word文档。

点击下载此附件

下载此附件

办公系统的密码全为123，设计者密码为wqm_123