Probleme bei Zugriff auf Access-Datenbank mit Kennwort

[G.B.Reed]

Hallo,

ich hab da ein kleines Problem.

Mit Access2000 habe ich eine kleine Datenbank test.mdb mit der Tabelle Tabelle1 angelegt.
Ohne Kennwortschutz kann ich über das folgende Delphi-Programm (Delphi 5 Enterprise) fehlerfrei auf Tabelle1 zugreifen.

procedure TForm1.Button1Click(Sender: TObject);
var
ADOTable : TADOTable;
strcon : string;
begin
ADOTable := TADOTable.Create( Self );

strcon := Format('Provider=%s; Data Source=%s; User ID=%s; PassWord=%s',
['Microsoft.Jet.OLEDB.4.0',
'.\test.mdb',
'Admin',
'']);

ADOTable.ConnectionString := strcon;
ADOTable.TableName := 'Tabelle1';
ADOTable.Open;
ADOTable.First;
while not ADOTable.EOF do begin
ListBox1.Items.Add( ADOTable.Fields[5].AsString );
ADOTable.Next;
end; // while
ADOTable.Close;
ADOTable.Free;
end;

Setze ich nun über Access in der Datenbank test.mdb zum Beispiel das Kennwort hallo und ändere entsprechend den Verbindungsstring in

strcon := Format('Provider=%s; Data Source=%s; User ID=%s; PassWord=%s',
['Microsoft.Jet.OLEDB.4.0',
'.\test.mdb',
'Admin',
'hallo']);

dann erhalte ich die folgende Fehlermeldung:

Die Anwendung kann nicht gestartet werden.
Die Informationsdatei für die Arbeitsgruppe fehlt oder
ist exklusiv von einem anderen Benutzer geöffnet.

Wo finde ich die Informationsdatei für die Arbeitsgruppe?
Oder muss ich an einer anderen Schraube drehen?

[G.B.Reed]

Sorry,

den Quellcode kann ja keiner lesen.
Hier noch einmal mit dem Code-Tag:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  ADOTable : TADOTable;
  strcon : string;
begin
  ADOTable := TADOTable.Create( Self );

  strcon := Format('Provider=%s; Data Source=%s; User ID=%s; PassWord=%s',
                  ['Microsoft.Jet.OLEDB.4.0',
                   '.\test.mdb',
                   'Admin',
                   '']);

  ADOTable.ConnectionString := strcon;
  ADOTable.TableName := 'Tabelle1';
  ADOTable.Open;
  ADOTable.First;
  while not ADOTable.EOF do begin
    ListBox1.Items.Add( ADOTable.Fields[5].AsString );
    ADOTable.Next;
  end; // while
  ADOTable.Close;
  ADOTable.Free;
end;

Erst durch Fehler wird man schlau!

[G.B.Reed]

Wer suchet, der findet.

Bei http://www.delphi-groups.de habe ich die Lösung gefunden.

Der Verbindungsstring muss anders aufgebaut sein:

Code:

  Provider=Microsoft.Jet.OLEDB.4.0; Data Source=Datenbankdatei; Persist Security Info=False; Jet OLEDB:Database Password=XXX

In meinem Programm also:

Code:

  strcon := Format('Provider=%s; Data Source=%s; ' +
                   'Persist Security Info=False; Jet OLEDB:Database PassWord=%s',
                  ['Microsoft.Jet.OLEDB.4.0',
                   '.\test.mdb',
                   'hallo']);

Dank und Gruß an Delphi-Hacker