select name from syscolumns where id=object_id('表名')
上面的只能用于sqlserver,用adotable的files属性可得到表的字段名,且与数据库无关 procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin Adotable1.open; for i:=0 to Adotable1.FieldCount-1 do Memo1.Lines.add( Adotable1.Fields[i].FullName); end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Adotable1.open;
for i:=0 to Adotable1.FieldCount-1 do
Memo1.Lines.add( Adotable1.Fields[i].FullName);
end;
object_id('表名')取得'表名'在数据库中的编号。
var
aList:TStrings;
begin
aList:=TStringList.Create;
Adotable1.open;
AdoTable1.GetFieldNames(aList);
showmessage(aList.Text);
end;