如何循环得到access表的字段名?table1为数据表,里面字段名有a1,a2,a3...如何分别得到字段名?

[lionsoft]

如何循环得到access表的字段名?

table1为数据表,里面字段名有a1,a2,a3...如何分别得到字段名?

[wwwwb]

try:
i = CurrentData.AllTables.Count
For j = 0 To i - 1
MsgBox CurrentData.AllTables(j).Name
Set rt = CurrentDb
Set fg = rt.TableDefs(CurrentData.AllTables(j).Name).Fields
If Mid(CurrentData.AllTables(j).Name, 1, 2) <> "MS" Then
For Each gh In fg
MsgBox gh.Name
Next
End If
Next
Next

[lionsoft]

在前台用delphi怎么写?

[wwwwb]

属于DELPHI问题，到相应的语言版块去问。try:
var tt,list:tstrings;i:integer;
begin
tt:=tstringlist.create;
list:=TStringlist.create;
adoconnection1.GetTableNames(tt);
for i:=0 to tt.Count-1 do
begin
showmessage(tt.Strings[i]);
ADOConnection1.GetFieldNames(tt.Strings[i],list);
showmessage(list.Text );
end
end;

[lionsoft]

我不是要数据库的所有表的字段名,我只要名字为table1的数据表的字段名呀

[wwwwb]

再讲一遍，到DELPHI版块去问吧，与ACCESS无关。

[OracleRoob]

在Access通过SQL只能得到用户的表的名字，得不到表的字段名。

必须通过代码实现。

[OracleRoob]

--列出所有的用户表

SELECT *
FROM MSysObjects
WHERE Flags=0 AND Type=1

[OracleRoob]

我不是要数据库的所有表的字段名,我只要名字为table1的数据表的字段名呀
---------------------------------------------------------------------

关于Delphi中如何获取某个表的字段名，到Delphi版去问。