Question

求VB登陆窗口连接ACCESS数据库的代码

Answer 1

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控件创建连接

扩展资料

ACCESS数据库特性

1、access有强大的数据处理、统计分析能力，利用access的查询功能，可以方便地进行各类汇总、平均等统计。并可灵活设置统计的条件。

2、access用来开发软件，比如生产管理、销售管理、库存管理等各类企业管理软件，其最大的优点是：易学，非计算机专业的人员，也能学会。

3、在开发一些小型网站WEB应用程序时，用来存储数据。例如ASP+Access。这些应用程序都利用ASP技术在InternetInformationServices运行．比较复杂的WEB应用程序则使用PHP/MySQL或者ASP/MicrosoftSQLServer。

Answer 2

VB连数据库的方法比较多，看你采用什么方法链接了

1、用ADO连接
2、用Data数据控件连接
3、用ADODB数据控件连接
以VB通过ADO的连接ACCESS2003为例：

首先在VB工程中点击【工程】-【引用】，
在打开的对话框选择Microsoft AxtiveX Data Objects 2.8 Library 勾选，然后定义二个对象
然后在VB代码中写：
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset

' 其中conn是数据库链接对象，rs是数据记录集对象
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db\test.mdb; Jet OLEDB:Database Password="
' Provider=Microsoft.Jet.OLEDB.4.0是驱动
' Data Source=E:\db\test.mdb 这是你ACCESS数据库文件的位置
' Database Password=，如果你ACCESS数据库有口令，这里写口令，如果没有可以去掉
strSQL = "SELECT * FROM 数据库中的表"
rs.Open strSQL, conn, 3, 3
'……
'至此数据库已经链接成功，并且已经加载了记录集，下面你就可以进行数据操作了，注意，在数据库操作完成后，千万别忘记关闭记录集和数据库链接对象：
rs.Close
conn.Close