vb连接access数据库
‘壹’ 求VB登陆窗口连接ACCESS数据库的代码
1、DimobjCnAsNewConnection,objRsAsNewRecordset
objCn.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;"&"DataSource="&App.Path&objCn.Open
2、dimobjCnAsConnection
SetobjCn=NewConnection
objCn.Open“DSN=实例2DSN”
3、ADOData控件创建连接
(1)vb连接access数据库扩展阅读
ACCESS数据库特性
1、access有强大的数据处理、统计分析能力,利用access的查询功能,可以方便地进行各类汇总、平均等统计。并可灵活设置统计的条件。
2、access用来开发软件,比如生产管理、销售管理、库存管理等各类企业管理软件,其最大的优点是:易学,非计算机专业的人员,也能学会。
3、在开发一些小型网站WEB应用程序时,用来存储数据。例如ASP+Access。这些应用程序都利用ASP技术在InternetInformationServices运行.比较复杂的WEB应用程序则使用PHP/MySQL或者ASP/MicrosoftSQLServer。
‘贰’ 关于VB连接access
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 & “\ssgl.mdb;” & _
”; Jet OLEDB: Database password=1234”
DataEnvironment1.connection1.connectionstring=strconn
End sub