VB中引用方式连接ACCESS数据库的解答.

VB"引用"方式连接ACCESS数据库,主要方便用于用户登陆密码验证.

一.控件连接数据库;

1.单击"工程"--"引用" 选择"Microsoft ActiveX Data Objects 2.7 Library " 选中,"确定",在程序中定义如下:

Dim G_conn As Connection
Set G_conn = New Connection
Dim DBName As String, Username As String, StrPWD As String
Dim StrDBPath As String
StrDBPath = App.Path & "/admi.mdb"
With G_conn
.CursorLocation = adUseClient
.CommandTimeout = 10
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/admi.mdb;"
End With

G_conn.Open
StrSQl = "select * from dlxx"   '数据库admi.mdb中的一个数据表名为dlxx
Dim Rs As Recordset
Set Rs = G_conn.Execute(StrSQl)

print Rs.RecordCount   '此处为打印数据库记录条数,自己另加其他功能

G_conn.Close