Probleme bei Zugriff auf Access-Datenbank mit Kennwort

[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!