auf mdb mit OpenDialog zugreifen

[Sharky]

Hai ksh,

hier mal ein Beispiel das Dir eventuell helfen wird:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  dbpasswort : string;
  DataBaseFileName : string;
begin
  dbpasswort := '';  // DB Kennwort
  if (OpenDialog1.Execute) then // OpenDialog ausführen
  begin
    DataBaseFileName := OpenDialog1.FileName; // Pfad und Dateiname der DB-Datei
    with ADOConnection1 do
    begin
      Close;
      ConnectionString := Format('Provider=%s; Data Source=%s; ' +
        'Persist Security Info=False; Jet OLEDB:Database PassWord=%s',
        ['Microsoft.Jet.OLEDB.4.0',
        DatabaseFileName,
        dbpasswort]);
      Open;
      GetTableNames(ListBox1.Items); // Alle Tabellen der DB in ListBox anzeigen
    end;
  end;
end;

Wie Du siehst brauchst Du einen Button, eine Listbox, einen OpenDialog und eine ADOConnection auf der Form.