Adoconnection liest keinen String

[Bummi]

Hast Du mal mit dem Debugger durchgesteppt ?
2 Stellen als Einstieg, BeforeConnect und das Setzen den ConnectionStrings

[Privateer3000]

In der Entwicklungsumgebung funktioniert es doch.
Da kann ich den Fehler nicht nachvollziehen.
Wenn ich jedoch den String leere,
knallt es beim ersten query.
Obwohl beim Anwendungsstart :

Delphi-Quellcode:

if ReadDSNFromRegistry(DSN)=true then begin
 if DataModule1.SetMinervaDSN(DSN)=true then

mittels SetMinervaDSN die Adoconnection den String (DSN) setzen müsste.

Delphi-Quellcode:

SetMinervaDSN:=true;
if Datenbank.Connected=true then
if CloseDatabase=false then begin
SetMinervaDSN:=false;
Exit;
end;
Datenbank.ConnectionString:=DSN;

DSN habe ich geprüft und anzeigen lassen.Alles OK.
Aber langsam nähern wir uns dem Problem.

Danke für deine Antwort!

[jobo]

Hast Du irgendwo eine Leiche im Keller?
Irgendein ADOQuery oder ähnliche, die ja eigene Connectionstrings halten können?
In Kombi mit DesignTime Active=True und gespeichertem PW läuft es bei dir und auf dem anderen Rechner nicht (kein zugriff auf die MDB..?)
Die Access MDB sollte natürlich auch via Netzlaufwerk identisch erreichbar sein. MSAccess Security, die bei Dir passend eingerichtet ist, bei dem anderen System aber nicht, wäre auch ne Idee...

[Privateer3000]

Die gleiche Idee hatte ich auch schon
aber nein leider nicht.
Alles Querys sind "sauber".

[Bummi]

Warum nicht einfach

Delphi-Quellcode:

if ReadDSNFromRegistry(DSN) then 
  begin
    AdoConnection.Connected := false;
    AdoConnection.ConnectionString:= DNS;
    AdoConnection.Connected := true; 
  end else Messagedlg('FEHLER',mtError,[mbok],0);

[p80286]

Leicht OT:
Irgendwer hat hier vor ein paar Monaten propagiert, wann immer es geht mit nur einer Connection zu arbeiten, er scheint zu wissen warum.

Gruß
K-H

[Sybok Factor]

Versuche mal vor dem setzen auf DSN
AdoConnection.ConnectionString='';
Ist DSN als Widestring deklariert? Auch so eine mögliche Fehlerquelle.

Viele Grüße
Sybok Factor