UC知道VB连接ACCeSS
来源：百度知道 编辑：UC知道 时间：2024/05/21 23:40:47
请问大家VB连接ACCESS的代码是什么? 越详细越好,谢谢
Private Sub Form_Load()
'定义数据库连接的连接对象
Dim con As New ADODB.Connection
'定义数据库连接的数据集
Dim rs As New ADODB.Recordset
'定义数据库连字串，数据源名要设置为自己的数据源名
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbName & ";Persist Security Info=False"
'进行连接
con.Open
'获得数据集，SQL语句为查询SQL，连接名为数据库连接的名字，这里为CON
rs.Open "SQL语句", 连接名, adOpenDynamic, adLockPessimistic
'RS数据集存储了查询返回的结果集合
End Sub