[求助][已解决]如何获取一个表的列数呀？

jacken

请教大侠，如何获取一个ACCESS表有多少列呀。并且获取列值！谢谢

[此贴子已经被LucasLynn于2006-5-15 16:43:46编辑过]

Benjamin_luk

Function GetFieldCount()
Dim rs1 As Recordset
Set rs1 = CurrentDb.OpenRecordset("SELECT * FROM myTable")
msgbox rs1.Fields.Count
set rs1=nothing
End function

Benjamin_luk

Function GetFieldCount()
Dim rs1 As Recordset, I As Integer
Set rs1 = CurrentDb.OpenRecordset("SELECT * FROM myTable")
MsgBox rs1.Fields.Count '  列
For I = 0 To rs1.Fields.Count - 1
MsgBox rs1.Fields(I).Name '名称  
Next I
Set rs1 = Nothing
End Function


不知是否是你想要的。[em01]

jacken

太好了，就是我需要的东西。谢谢了哦