Question

vb中data连接数据库问题

条件数据库abc.mdb。表：工资表。.field：姓名。
实现最终结果：当from load时我想让”姓名“一列中的名字都显示在combolist中。
我用data控件连接数据库和绑定data控件了，但是只能显示field中的第一个姓名。不知道用程序怎么写下面的。
请高手帮帮忙，先谢啦。

Answer 1

Private Sub Form_Load()
    Dim cnn As New Connection
    Dim rs As New Recordset
    Dim sql As String
    Dim ARR
    cnn.Open "Provider=Microsoft.Ace.OleDB.12.0;data Source=" & App.Path & "\abc.accdb"
    sql = "select [姓名] from 工资表 "
    rs.Open sql, cnn
    Combo1.Text = "姓名"
    Do While Not rs.EOF
        Combo1.AddItem rs("姓名")
        rs.MoveNext    '打开表
    Loop
    rs.Close
    cnn.Close
End Sub

见附件！测试可行。

先引用：

结果：

Answer 2

供参考
Private Sub Command1_Click()
List1.Clear
Data1.DatabaseName = App.Path & "\库.mdb"
Data1.RecordSource = "select * from 表1"
Data1.Refresh
Do While Not Data1.Recordset.EOF
List1.AddItem Data1.Recordset("姓名")
Data1.Recordset.MoveNext '打开表
Loop
Set Data1.Recordset = Nothing

End Sub

Answer 3

Do While Not AdoRs.EOF
语句1.。。。

语句2.。。。

。。。。。。

AdoRs.MoveNext
Loop

Answer 4

用鼠标点击Data控件的横向往右箭头，就可一个个看到数据了。

Answer 5

有没循环遍历所有记录集,类似以下语句：
do while not rs.eof

rs.movenext

loop