1：首先肯定是建立数据库(设置数据库名和密码，要将数据库文件和VB 中创建的工程文件放在同一目录下。)  2：呵呵~~你要知道的关键的问题：如何连接Access 数据库(方法有：数据控件、数据对象、数据环境设计器等)我都不想写得详细拉.(楼主你想知道多一点加我Q:413237613)
你可以参考一下我在网站查到相关的资料啊.看看对你有没帮助啊：再不明白加我Q 拉.  1、使用控件、使用控件
① Data 控件控件
Data 控件是Visual Basic 6.0中的一个内置数据控件，可以通过设置Data 控件的connect 、DatabaseName 、RecordSource 属性实现对数据库的连接和访问。属性实现对数据库的连接和访问。
通过Data 控件连接加密的数据库的方法有两种：数据库的方法有两种：
一种方法是在设计状态时，在“属性窗口”中将Data 控件的connect 属性的缺省值”Access ”改为”; pwd=1234”即可，其它属性的设置方法与没有加密的Access 数据库的连接相同。数据库的连接相同。
另一种方法是在运行时，通过代码对connect 属性赋值来实现。如：属性赋值来实现。如：
Data1.DatabaseName=APP Data1.DatabaseName=APP.path + “.path + “.path + “\\ssgl.mdb”
其中，”1234”为Access 数据库文件ssgl.mdb 的密码，下同。的密码，下同。
②Adodc 控件控件
Adodc 控件是一个ActiveX 控件，它使用Microsoft ActiveX Data Objects(ADO)创建到数据库的连接。使用Adodc 控件之前，要先将Adodc 控件添加到控件工具箱中。方法如下：在VB 6.0种选择“工程”菜单，再点击“部件”菜单项，在弹出的“部件”对话框中选中“Microsoft ADO Data Control 6.0(OLEDB)”选项即可。”选项即可。
通过Adodc 控件连接加密的数据库的方法也有两种：控件连接加密的数据库的方法也有两种：
一种方法是在设计状态时，在“属性窗口”中，对Adodc 控件的ConnectionString 属性设置
一个有效的连接字符串，并在连接字符串后增加上”; Jet OLEDB: DataBase password=1234”，
再设置Adodc 控件的CommandType 、RecordSource 的属性就可以创建到加密的数据库的连接了。接了。
另一种方法是在运行时，通过代码动态地设置ConnectionString 、CommandType 和RecordSource 属性来创建连接。 只要在ConnectionString 属性的有效连接字符串后增加上”; Jet OLEDB: DataBase password=1234”即可。”即可。
2、使用数据对象、使用数据对象
access是什么意思啊了① DAO 数据对象数据对象
要能正确引用DAO 数据对象来建立与数据库的连接，应先在VB 集成开发环境中选择“工程”菜单，再点击“引用”菜单项，在弹出的“引用”对话框选择“Microsoft DAO 3.51 Object Library ”选项来添加DAO 数据对象类型库。数据对象类型库。
接下来就可用如下代码来建立到加密的Access 数据库ssgl.mdb 的连接。的连接。
Dim db AS DataBase
Set db=OpenDataBase(App.path + “Set db=OpenDataBase(App.path + “\\ssgl.mdb” , False , False , ” ; pwd=1234”)
② ADO 数据对象数据对象
ADO 是Microsoft 推出的处理关系数据库和非关系数据库中信息的最新技术，也是Microsoft 推崇的用于数据连接和访问的技术。在VB 6.0中，Adodc 控件、ADO 数据对象及DataEnvironment （数据环境设计器）都采用的是ADO 技术，因而它们处理加密的Access 数据库的方法类似。数据库的方法类似。
要能正确引用ADO 数据对象，应在VB 6.0集成开发环境中选择“工程”菜单，再点击“引用”菜单项，在弹出的“引用”对话框中选中“Microsoft ActiveX Data Objects 2.1 Library ”选项来添加ADO 数据对象类型库。数据对象类型库。
可用如下代码来建立到加密的Access 数据库ssgl.mdb 的连接。的连接。
Dim cnn AS ADODB.Connection
Dim rst AS ADODB.Recordset
Set cnn=New ADODB.Connection
Cnn.Provider= ”Microsoft.Jet.OLEDB.3.51”
Cnn.ConnectionString= ”Data Source=” & App.path & ”\ssgl.mdb;” & _
”
;Jet OLEDB:Database password=1234”
cnn.Open
③ 使用DataEnvironment （数据环境设计器）（数据环境设计器）
有两种方法可以通过DataEnvironment 连接到加密的Access 数据库：数据库：
一种方法是在设计状态时，在DataEnvironment 的connection 对象的ConnectionSource 属性
的有效连接字符串后加上”的有效连接字符串后加上”
;
Jet OLEDB: Database password=1234”
另一种方法是在DataEnvironment_Initialize()事件中编写如下代码：事件中编写如下代码：
Private sub DataEnvironment_Initialize( )
Dim strconn AS string
Strconn=” Provider=Microsoft.Jet.OLEDB.3.51;” & _
”Data Source=” & App.path & “Data Source=” & App.path & “\
\ssgl.mdb;” & _
”; Jet OLEDB: Database password=1234”
End sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。