//delphi 获取 access 数据库所有表 www.3464.com

procedure TForm1.FormCreate(Sender: TObject);
begin
//连接数据库 extractfilepath(ParamStr(0))
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Security Info=False;Jet OLEDB:Database Password=www.3464.com';
Button_GetDB_AllBiao.Click;

end;

procedure TForm1.Button_GetDB_AllBiaoClick(Sender: TObject);
var
  objTables: TStringList;
  i: Integer;
begin
  objTables := TStringList.Create;
  try
ADOConnection1.GetTableNames(objTables);
ComboBox_DataName.Items.AddStrings(objTables);
//ShowMessage('总共有几个表：'+ IntToStr(objTables.Count));
  finally
    FreeAndNil(objTables);
  end;
end;