//取全部表名
var
tablename:TStrings;
begin
tablename:=TStringList.Create;
ADOConnection.GetTableNames(tablename,false);
end;
//取的每个表的表结构
for i:=0 to adotable1.FieldCount-1 do
begin
listbox1.Items.Append(Fields.FieldName);
listbox2.Items.Append(inttostr(Fields.DataSize-1));
listbox3.Items.Append(Fields.DataType);
end;