Access的问题，

[mmtang3]

用ADO连接一个mdb文件，
如何得知这个数据库文件中所有的表名。

[goldhawk_2000]

self.ADOConnection1.GetTableNames(mylistboX)

快点给分吧 等会儿人多了.

[WWWWA]

var
sTableList: TStrings;
begin
sTableList:=TStringList.Create();
try
adoConnection.Connected:=true;
adoConnection.GetTableNames(sTableList,false);
ShowMessage(sTableList.Text);//显示所有表名
finally
sTableList.Free;
end
end;
但查询也包括进来了

[soundbug]

嘿嘿，人多了
ADOConnection1.GetTableNames(ListBox1.Items,False);//将所有表显示在ListBox1中

[mmtang3]

哈哈，这位兄台倒是挺着急，我也搞定了，好吧，我给分了。

[nxfbccu]

procedure TForm1.Button1Click(Sender: TObject);
var
Li: tStrings;
i: integer;
begin
Li := tStringList.Create;
ADOConnection1.GetTableNames(Li, False);
for i := 0 to Li.Count - 1 do
begin
memo1.Lines.Add(Li.Strings[i]);
end;
end;

[fhuibo]

procedure TForm1.Button1Click(Sender: TObject);

var
SL: TStrings;
index: Integer;
begin
SL := TStringList.Create;
try
ADOConnection1.GetTableNames(SL, False);
for index := 0 to (SL.Count - 1) do begin
Table1.Insert;
Table1.FieldByName('Name').AsString := SL[index];
if ADOTable1.Active then ADOTable1.Close;
ADOTable1.TableName := SL[index];
ADOTable1.Open;
Table1.FieldByName('Records').AsInteger := ADOTable1.RecordCount;

Table1.Post;
end;
finally
SL.Free;
ADOTable1.Close;
end;
end;