ADO-Zugriff auf geschützte db

[WiTTcheN]

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.

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

[BluesKid]

Moin moin

versuchs mal mit

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

Sam

[Robert_G]

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;

[WiTTcheN]

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?

[Robert_G]

Sorry, bin nicht mehr so fit unter Win32.

man muss Format die Werte als String array übergeben:

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;

[BluesKid]

ohh wie gemein

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

[WiTTcheN]

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

[Ulrich Wolf]

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