代码之家  ›  专栏  ›  技术社区  ›  박은리

在visual basic 6.0中将所有字段名称加载到组合框中

  •  0
  • 박은리  · 技术社区  · 9 年前

    如何将所有字段名称加载到组合框中。我使用的是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
    
    1 回复  |  直到 9 年前
        1
  •  0
  •   xGen    9 年前

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

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

    选项2是使用ADOX(DAO)引用,而不是编写选择查询。使用ADOX。Catelog对象以获取表和数据库的元数据