VB Combo连接数据库后显示表中某列的数据问题

来源：百度知道 编辑：UC知道 时间：2024/05/16 03:46:15
我用Data1连接了数据库，
Combo1的DataSource 绑了Data1 DataField绑了帐号
运行程序时为什么只有一条记录。。？
求教~~！详细说明
用过DATACOMBO了。。也是一条记录。。
我用一个控件够了。
高手继续帮忙。。我用可视化数据管理器 Access的

'我帮你写了完整的代码,看可以吗？：
'注意数据库须和Vb程式放在同一个资料夹。
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\数据库名称.mdb"
Data1.RecordSource = "资料表名称"
Data1.Refresh

Combo1.Clear
Do While Not Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset.Fields("帐号").Value
Data1.Recordset.MoveNext
Loop
End Sub

combo1要加多少要用循环加载！
如：
Adodc2.RecordSource = "select * from athouse"
Adodc2.Refresh
For i = 1 To Adodc2.Recordset.RecordCount '自动添加combo1和combo2的选项
Combo1.AddItem Adodc2.Recordset.Fields(0)
Combo2.AddItem Adodc2.Recordset.Fields(1)
Adodc2.Recordset.MoveNext
Next i
要不就用DATACOMBO绑定！

rs.movenext
让记录集向下移动一条