如何取出ACCESS表中的字段名?

[wymm]

RT
我想用一个COMBOBOX选择表名,然后在CheckListBox中显示对应的字段名,想请教表中的字段名如何取得?谢谢

[wymm]

怎么没人理我啊?我搜索了好久都没找到答案,自己UP一下

[istcn]

帮你 up

[gxgyj]

adotable1.FieldList.text

[楚人无衣]

这样试一下，用你取到的表名动态生成select * from 表名做ADOQuery1的查询语句，或用ADOTable：
var
sField: TStrings;
begin
sField := TStringList.Create;
try
ADOQuery1.GetFieldNames(sField);
Memo1.Lines.Assign(sField);
finally
sField.Free;
end;
end;

[lwgygz]

添加表:ADOConnection1.GetTableNames(ComboBox1.Items);
添加表中的字段:ADOConnection1.GetFieldNames(TableName,ListBox1.Items);(注:TableName为选中的表名称)

[redlifl]

procedure TForm1.ComboBox1Change(Sender: TObject);
var i:integer;
begin
with query1 do
begin
close;
sql.Clear;
sql.Add('select * from '''+combobox1.Text+'''');//combobox1.text是表名
open;
end;
for i:=0 to query1.FieldCount-1 do
begin
checklistbox1.Items.Add(query1.Fields[i].FieldName)
end;
end;

[wymm]

lwgygz(小欣)的方法可行,结贴