ODBC访问Access数据库,

Question

如何枚举数据库中的表 ?

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
begin
  ADOConnection1.ConnectionString := 'Provider=MSDASQL.1;Password=123;Persist Security Info=True;User ID=admin;Data Source=testmdb';
  ADOConnection1.Open;
  SL := TStringList.Create;
  try
    ADOConnection1.GetTableNames(SL);
    ShowMessage( SL.Text );
  finally
    SL.Free;
  end;
end;