1180
社区成员
- 主页
...全文
请发表友善的回复…
发表回复
watt 2002-06-02
楼上的打不开有密码的Access库，按如下写
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=库.mdb;Jet OLEDB:Database Password=密码"
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=库.mdb;Jet OLEDB:Database Password=密码"
jdsbjcailei 2002-06-02
我认为：连接acess数据库最好使用DAO
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path + "\数据库.mdb")
Set rs = db.OpenRecordset("表名")
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path + "\数据库.mdb")
Set rs = db.OpenRecordset("表名")
hycao 2002-06-02
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
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