如何得到一个数据库的字段名？

Question

rs.open "select * from table where ..."
for i=0 to rs.fields.count-1
    msgbox rs.fields(i).name
next i
''''''''和有无记录没有关系''''''''

Answer 1

我没有把问题说清楚，是我在设定text1.datafield=data1.recordset.fields(i).name时，没有记录就会出错（错误是“无当前记录”）

Answer 2

lblFieldID.Visible = True
lblID.Visible = True
lblID.DataField = Data1.Recordset.Fields(0).Name
lblFieldName.Visible = True
cboName.Visible = True
cboName.DataField = Data1.Recordset.Fields(1).Name
就是这样拉，有记录时一切正常，没有记录时就会出错（“没有当前记录”）

Answer 3

text1设定datafield后显示第一条纪录，无记录当然出错。建议加一个有无记录判断

Answer 4

lblFieldID.Visible = True
lblID.Visible = True
lblID.DataField = trim(Data1.Recordset.Fields(0).Name) & ""
lblFieldName.Visible = True
cboName.Visible = True
cboName.DataField = trim(Data1.Recordset.Fields(1).Name) & ""
这样试一试呢!

Answer 5

我的数据库关联是动态的，我想只用一个窗体，它的各个lable,textbox都根据各个表来动态设置，请各位高手帮忙！