Zur laufzeit auf die ADOConnection Parameter zugreifen

[Elke Sausy]

Hallo,

wie kann ich zur Laufzeit auf die einzelnen Parameter des Connectionstrings zugreifen, um z.B. den Server Name, User ID oder das aktuelle Passwort auszulesen und gegebenenfalls zu ändern ?
Kann mir da jemand ganz schnell helfen ?

Gruß Elke

[Michael Witzsche]

Hallo Elke,

ich verstehe vielleicht das Problem nicht ganz.
Du kannst doch z.B. mit :

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:= ADOConnection1.ConnectionString;
end;

den String auslesen. Und dann zerlegst Du den String einfach.

Tschau Mich

[Elke Sausy]

Hallo Michael,

ich will ja nicht den kompletten String angezeigt bekommen, sondern mit dem Programm z.B die User ID und das Passwort, mit dem sich der Anwender eingeloggt hat, mit dem im ConnectionString vergleichen. Wie kann ich den String denn so zerlegen, dass er mir nur diese Informationen anzeigt ?

Gruß Elk

[Falk Prüfer]

Hallo Elke,

dazu kannst Du die Möglichkeiten von TStrings nutzen:
<pre>
procedure TForm1.Button1Click(Sender: TObject);
var
AStr: string;
begin
ADOConnection1.Open;
AStr := '"' + ADOConnection1.ConnectionString + '"';
AStr := StringReplace(AStr, ';', '","', [rfReplaceAll]);
Memo1.Lines.CommaText := AStr;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption := Memo1.Lines.Values['User ID'];
end;
</pre>
Die Umwandlung mit den Hochkommas und ; -> , ist notwendig, damit CommaText den String richtig zerlegt. Für deine Interne Verwendung kannst du dir ja über Liste := TStrings.Create eine "Konvertierungsliste" anlegen.

Gruß Fal

[Elke Sausy]

Danke Falk, das probiere ich gleich mal aus.

Gruß Elk