问一下，vb怎么连接数据库呀`~（access）有代码吧~~给分呀`

[zhyoli]

问一下，vb怎么连接数据库呀`~（access）有代码吧~~

[hycao]

Set dcnPassword = New ADODB.Connection
With dcnPassword
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sys.mdb;"
.Open
End With
Set rsPassword = New ADODB.Recordset '打开记录集。
With rsPassword
.Open "SELECT * FROM [Password] where [Security] in('all','仓储')", dcnPassword, adOpenStatic, adLockOptimistic
'移动到记录尾部获得记录号，然后返回，以便获得总记录数。
.MoveLast
.MoveFirst
Do While Not .EOF
Combo1.AddItem ![UserName]
.MoveNext
Loop
End With

[jdsbjcailei]

我认为：连接acess数据库最好使用DAO

Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path + "\数据库.mdb")
Set rs = db.OpenRecordset("表名")

[watt]

楼上的打不开有密码的Access库，按如下写
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=库.mdb;Jet OLEDB:Database Password=密码"