如何将数据表的字段名加入到 listbox控件中

是sql数据库的表

数据读出来保存到recordset里,然后循环,判断是否eof依次添加到listbox就可以了

.lstFields.Clear
For i = 0 To Adodc1.Recordset.Fields.Count
.lstFields.AddItem (Adodc1.Recordset(i).Name)
Next i
上面additem里面怎么写呀,我这样写不对,具体的语法不会了
我是用adodc控件连接的数据库

List1.Clear
dim i as long
for i = 0 to Adodc1.RecordSet.Fields.Count-1
list1.Additem Adodc1.RecordSet.Fields(i).Name
next

dim objRS AS ADODB.RecordSet

……
For intI= 0 To intMaxColums-1
lstBox.AddItem (objRS.Fields("intI").Name)
next intI

[此贴子已经被作者于2007-1-12 12:56:50编辑过]

谢谢,搞定了