在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）参考而不是编写选择查询。使用ADOX.Catelog对象获取表和数据库的元数据