procedure TForm1.BitBtn1Click(Sender: TObject); var i: Integer; begin for i := 0 to ADOQuery1.FieldCount -1 do begin ComboBox1.Items.Add(ADOQuery1.FieldList[i].FieldName); end; end;
GetTable//这是表名。 ADOQuery1.Fields//这就是 or ADOQuery1.GetFieldNames(TStrnigs);
var
i: Integer;
begin
for i := 0 to ADOQuery1.FieldCount -1 do
begin
ComboBox1.Items.Add(ADOQuery1.FieldList[i].FieldName);
end;
end;
ADOQuery1.Fields//这就是
or
ADOQuery1.GetFieldNames(TStrnigs);
ADOQuery1.FieldList[i].FieldName
不过一定要用adoconnection 方可以