用dataset(或adodateset)的fields可以,以ADO为例,用adotable(或adoquery)连接到你的表,然后用 procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=0 to ADOTable1.fields.Count-1 do Memo1.Lines.Add(ADOTable1.fields[i].FieldName); end;
数据库中的 select a.name from dbo.syscolumns a inner join dbo.sysindexes b on a.id=b.id and b.name='aaa'
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to ADOTable1.fields.Count-1 do
Memo1.Lines.Add(ADOTable1.fields[i].FieldName);
end;
select a.name from dbo.syscolumns a
inner join dbo.sysindexes b on a.id=b.id and b.name='aaa'