vb6 想请教下大神们数据库其中一个字段赋值给combobox数组

kp333163 发布于 2021-01-27 09:45， 1747 次点击

vb6 想请教下大神们数据库其中一个字段赋值给combobox数组怎么写？
下面的这个写法是不用数组的赋值，如果用数组该怎么写啊
For i = 1 To Adodc1.Recordset.RecordCount
    Combo2.AddItem Adodc1.Recordset.Fields("name").Value
    Adodc1.Recordset.MoveNext
    Next

4 回复

yuma2021-01-27 11:23

Debug.Print varType(Adodc1.Recordset.RecordCount)
Debug.Print varType(Adodc1.Recordset.Fields("name").Value)
看一下，它们是什么数据类型？

Adodc1.Recordset.MoveNext
谁知道你这个又是什么鬼？

kp3331632021-01-27 14:19

以下是引用yuma在2021-1-27 11:23:05的发言：

Debug.Print varType(Adodc1.Recordset.RecordCount)
Debug.Print varType(Adodc1.Recordset.Fields("name").Value)
看一下，它们是什么数据类型？

Adodc1.Recordset.MoveNext
谁知道你这个又是什么鬼？

数据库的字段类型是varchar,vb里面我没有定义啊。Adodc1.Recordset.MoveNext这一条输字段的下一行，如果没有这个就一直在第一行循环了

yuma2021-01-27 15:00

没有完整源码，上帝都不知道是怎么回事。

czjt88882021-01-27 16:56

combobox数组是咋回事？