Access的问题，

Question

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

Answer 1

self.ADOConnection1.GetTableNames(mylistboX)快点给分吧 等会儿人多了.

Answer 2

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

Answer 3

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

Answer 4

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;

Answer 5

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;