将所有字段名称加载到 Visual Basic 6.0 中的组合框中

Question

如何将所有字段名称加载到组合框中。我正在使用 visual basic 6.0.

我的代码是这样的

Private Sub combo2_option()
    Call Dbase

    Set rs = New ADODB.Recordset
    rs.Open "select ID,DATE,REFNO,SUPPLIER,MODEL,SERIAL,DESCRIPTION,UOM,CATEGORY,PUH,GDP from product_aging_monitoring ", db, 3, 3

   Combo2.AddItem rs(2)

End Sub

Answer 1

选项1。如果只想获取字段名称，可以将记录限制为1。

For i=0 to rs.fields.count-1
    Combo2.AddItem rs.fields(i).Name
Next

选项 2 是使用 ADOX (DAO) 参考，而不是编写 select 查询。使用 ADOX.Catelog 对象获取表和数据库的元数据

将所有字段名称加载到 Visual Basic 6.0 中的组合框中

Load all fields name into combobox in visual basic 6.0

vb6

combobox

visual-studio