Question

在vb中如何不断的将数据库中的指针移到下一行?我用的是data控件,其它属性已经设置好了

Answer 1

可以使用ADO DATA控件Recordset属性的MoveNext方法
例如：
Do Until Data1.Recordset.Eof
Data1.Recordset.MoveNext
Loop

也可以利用Timer事件

追问

我想将数据库中的一列数据添加到下拉列表框中的代码又怎么写

追答

例子（窗体加载事件过程）：
Private Sub Form_Load()
Dim cn As New ADODB.Connection '声明并实例化一个ADO连接对象
Dim cnStr As String '声明一个连接字符串变量
Dim rs As New ADODB.Recordset '声明并实例化一个记录集对象
Dim sqlStr As String '声明一个SQL查询字符串变量
'设置连接当前目录下“db1.mdb”（假设当前目录下有这个ACCESS数据库）之连接字符串，连接其他类型数据库请参阅有关资料
cnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False;"
cn.Open cnStr '打开与该数据库的连接
rs.CursorLocation = adUseClient '设置为客户端游标
'设置设置该列查询SQL语句
sqlStr = "select Col1 from Table1"
rs.Open sqlStr, cn '打开数据库表记录集
'将该列数据写入列表框
Do Until rs.EOF
Combo1.AddItem rs!Col1
rs.MoveNext
Loop
rs.Close '关闭记录集
Set rs = Nothing '释放记录集对象
cn.Close '关闭连接
Set cn = Nothing '释放连接对象
End Sub

Answer 2

............
Data1.RecordSource = "Select 字段名 From 数据表名"
Data1.Refresh
Combo1.Clear
Data1.Recordset.MoveFirst
Do While Not Data1.EOF
Combo1.AddItem Data1.Recordset.Fields("字段名")
Data1.Recordset.MoveNext
Loop
Combo1.Text = Combo1.List(0)