vb combobox 数据库

求combobox连接数据库及读取数据并显示的代码我的数据库储存位置为F/:元器件.mdb显示数据库中的表abc里的内容... 求combobox连接数据库及读取数据并显示的代码
我的数据库储存位置为F/:元器件.mdb 显示数据库中的表abc里的内容展开

 我来答

1个回答

#合辑# 机票是越早买越便宜吗？

zx001z7d53
推荐于2016-11-10 · TA获得超过2万个赞

知道大有可为答主

回答量：2.4万

采纳率：52%

帮助的人：5640万

我也去答题访问个人页

关注

展开全部

Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=123"
SqlStr = "Select 会员姓名 From 会员消费"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集

Do While rst.EOF = False
Combo1.AddItem rst.Fields("会员姓名").Value
rst.MoveNext
Loop
End Sub

更多追问追答

追问

您好 。 我的数据库储存位置为F/:元器件.mdb      显示数据库中的表abc里的内容 要怎么改，谢谢你

追答

把程序保存在F/:
Private Sub Form_Load()
    Dim cn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim SqlStr As String
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\元器件.mdb;Mode=ReadWrite;Persist Security Info=False"
    SqlStr = "Select 元器件名 From abc"
    rst.CursorLocation = adUseClient
    rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
    
    Do While rst.EOF = False
        Combo1.AddItem rst.Fields("元器件名").Value
        rst.MoveNext
    Loop
End Sub