Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi [MSAccess] Zugriff ohne User nur Pass (https://www.delphipraxis.net/88759-%5Bmsaccess%5D-zugriff-ohne-user-nur-pass.html)

Harry M. 20. Mär 2007 16:11

Datenbank: MSAccess • Zugriff über: ADO

[MSAccess] Zugriff ohne User nur Pass
 
Hallöchen

ich möchte gerne auf eine MSAccess DB zugreifen, welche PWD geschütz ist. Wenn ich die DB mit dem Access aus dem Officepackt öffne verlangt das Programm nur ein PWD. Das gebe ich ein und komme an meine Daten. Jetzte versuche ich via Ado daraufzuzugreifen. Nun erfolgt, der Loginpromt und verlangt einen Usernamen und ein Pwd. Passwort habe ich, aber Usernamen nicht :(

Ich bekomme die Meldung

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

Delphi-Quellcode:
Form1.ADOTable1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Password="passwort";Data Source=C:\Database\Filename.mdb;Persist Security Info=True';
Entferne ich das Pwd kann ich problemlos auf die DB zugreifen.

Ja, ja ich hab die Forumsuche schon wiederholt gequält :mrgreen:

Valeo Pupsus 20. Mär 2007 20:00

Re: [MSAccess] Zugriff ohne User nur Pass
 
Delphi-Quellcode:
Form1.ADOTable1.ConnectionString := '...;User ID=Admin;..' ?

Harry M. 20. Mär 2007 20:24

Re: [MSAccess] Zugriff ohne User nur Pass
 
Nein das hilf leider nicht. Hatte ich schon. Und eben auch nocheinmal probiert.

Valeo Pupsus 20. Mär 2007 20:52

Re: [MSAccess] Zugriff ohne User nur Pass
 
http://support.microsoft.com/default...b;en-us;191754

Harry M. 21. Mär 2007 13:16

Re: [MSAccess] Zugriff ohne User nur Pass
 
Danke ;)

Hab das Prob wiefolgt gelöst:

Delphi-Quellcode:
var
  sConnectionStr: AnsiString;
begin
  sConnectionStr := 'Provider=Microsoft.Jet.OLEDB.4.0;';
  sConnectionStr := sConnectionStr + 'Jet OLEDB:Database Password="passwort";';
  sConnectionStr := sConnectionStr + 'Data Source=C:\database.mdb;';
  sConnectionStr := sConnectionStr + 'Persist Security Info=True';
  Form1.ADOTable1.ConnectionString := sConnectionStr;
  Form1.ADOTable1.TableName := 'FieldName';
  Form1.ADOTable1.Active := True;
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:47 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz