问一下,vb怎么连接数据库呀`~(access)有代码吧~~给分呀`

zhyoli 2002-06-02 10:18:26
问一下,vb怎么连接数据库呀`~(access)有代码吧~~
...全文
5 点赞 收藏 3
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
watt 2002-06-02
楼上的打不开有密码的Access库,按如下写
"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("表名")
回复
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
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告