Hallo DP Community,
ich habe ein Programm, was auf eine Access-Datenbank zugreift. Den Zugriff habe ich jedoch direkt im Quelltext festgelegt, also nicht über eine ADOConnection.

markieren

Delphi-Quellcode:

strcon := 'Provider=Microsoft.Jet.OLEDB.4.0;';
 strcon := strcon + 'Data Source=Wettsystem.mdb;';
 ADOTable1.ConnectionString := strcon;
 ADOTable1.TableName := 'Benutzer';
 ADOTable1.Active := True;

Damit die db vor neugierigen Augen geschützt ist, hat sie nun von mir ein Passwort bekommen. Dummerweise kenne ich den Befehl nicht, den ich zum Quelltext hinzufügen muss, damit Delphi noch auf die db zugreifen kann.

Ich hoffe jemand hat die Lösung.

Grüße,
WiTTcheN

Moin moin

versuchs mal mit

'Jet OLEDB:Database Password=hiergehörtdeinPassworthin'
schönen Gruß

Sam

markieren

Delphi-Quellcode:

strcon := Format('Provider=%s;Data Source=%s; User ID=%s; PassWord=%s'
                 ,'Microsoft.Jet.OLEDB.4.0'
                 ,'Wettsystem.mdb'
                 ,'DeinUser'
                 ,'DeinPasswort');
ADOTable1.ConnectionString := strcon;
ADOTable1.TableName := 'Benutzer';
ADOTable1.Active := True;

Das von Robert_G sieht schon recht vielversprechend aus, nur markiert mit Delphi die Zeile
,'DeinUser' Ich habe da Admin eingetragen, weiß aber nicht ob das überhaupt stimmt. Ich habe Access unter Extras/Sicherheit nur ein Passwort zugewiesen, wie ist denn dann der Name?

Sorry, bin nicht mehr so fit unter Win32.

man muss Format die Werte als String array übergeben:

markieren

Delphi-Quellcode:

strcon := Format('Provider=%s;Data Source=%s; User ID=%s; PassWord=%s' 
                 ,['Microsoft.Jet.OLEDB.4.0' 
                   ,'Wettsystem.mdb' 
                   ,'DeinUser' 
                   ,'DeinPasswort']);
ADOTable1.ConnectionString := strcon;
ADOTable1.TableName := 'Benutzer';
ADOTable1.Active := True;

ohh wie gemein

markieren

Delphi-Quellcode:

strcon := 'Provider=Microsoft.Jet.OLEDB.4.0;';
strcon := strcon + 'Data Source=Wettsystem.mdb;';
strcon := strcon + 'Jet OLEDB:Database Password=hiergehörtdeinPassworthin;';
ADOTable1.ConnectionString := strcon;
ADOTable1.TableName := 'Benutzer';
ADOTable1.Active := True;

Das sollte genau das sein was du brauchst, Roberts code funktioniert (! imho !) wenn du mit Benutzer- und Gruppenberechtigungen arbeitest.

Bin aber für jegliche Verbesserung offen

Bedankt BluesKid, dass funktioniert und auch an alle Anderen die sich Gedanken gemacht haben ein Danke.

Hallo BluesKid,
ein toller Tipp. Genaus das habe ich auch gebraucht.
Jetzt ist meine Anwendung auch sicher!
Vile Grüße