如何将所有字段名称加载到组合框中。我使用的是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。如果只想获取字段名,可以将记录限制为1。
For i=0 to rs.fields.count-1 Combo2.AddItem rs.fields(i).Name Next
选项2是使用ADOX(DAO)引用,而不是编写选择查询。使用ADOX。Catelog对象以获取表和数据库的元数据