Tweet
Wie kann ich Access-Datei mit Passwortschutz in Delphi öffnen, ohne dass komponennt benutzen.<br>
(oder ein paar komponnent oder am besten ein paar source-kode schreieben) und die Daten erreichen.<br>
Dieses Password befindet sich in "system.mdw". (nicht in irgendwelche-datei.mdb)<br>
Ich weiss, dass dieses Problem in VB läuft. Aber in Delphi weiss ich nicht.<br>
Das ist Visual Basic Code.<br>
'*****
Dim ws As Workspace<br>
Dim rs As Recordset<br>
Dim db As Database<br>
Dim sql As String<br>
Dim Vorname as String<br>
<br>
DBEngine.SystemDB = "c:\windows\system.mdw"<br>
Set ws = DBEngine.CreateWorkspace("hans", "userid", "password")<br>
Set db = ws.OpenDatabase("beispiel.mdb")<br>
sql = "select * from tebelle1"<br>
Set rs = db.OpenRecordset(sql, dbOpenDynaset)<br>
<br>
vorname= rs.fields("vorname").value<br>
'*****************<br>
<br>
Ich freue mich sehr, Wenn Sie mir helfen<br>
Danke<br>
(oder ein paar komponnent oder am besten ein paar source-kode schreieben) und die Daten erreichen.<br>
Dieses Password befindet sich in "system.mdw". (nicht in irgendwelche-datei.mdb)<br>
Ich weiss, dass dieses Problem in VB läuft. Aber in Delphi weiss ich nicht.<br>
Das ist Visual Basic Code.<br>
'*****
Dim ws As Workspace<br>
Dim rs As Recordset<br>
Dim db As Database<br>
Dim sql As String<br>
Dim Vorname as String<br>
<br>
DBEngine.SystemDB = "c:\windows\system.mdw"<br>
Set ws = DBEngine.CreateWorkspace("hans", "userid", "password")<br>
Set db = ws.OpenDatabase("beispiel.mdb")<br>
sql = "select * from tebelle1"<br>
Set rs = db.OpenRecordset(sql, dbOpenDynaset)<br>
<br>
vorname= rs.fields("vorname").value<br>
'*****************<br>
<br>
Ich freue mich sehr, Wenn Sie mir helfen<br>
Danke<br>
Comment