ADO UserName zur Laufzeit herausfinden?

[Olaf Schwenk]

Hallo,<br>
bei der Komponente TDatabase gab es über Params die Möglichkeit den <br>Username auszulesen.<br>
with DB do<br>
for i := 0 to Params.Count - 1 do<br>
if Pos(KeyWord, Params[i]) <> 0 then<br>
begin<br>
UserStart := Pos('=', Params[i]) + 1;<br>
Result := Copy(Params[i], UserStart,<br>
(Length(Params[i]) - UserStart) + 1);<br>
end;<br>
Gibt es bei TADOConnection auch eine Möglichkeit den Username<br>
zur Laufzeit herauszufinden?<br>
Wer hat eine Idee?<br>
Besten Dank!<br>
Olaf<br>

[Andreas Kosch]

Hallo,

ja - das kann aktiviert werden, wie das folgende Beispiel demonstriert. Bei der Konfiguration von TADOConnection muss dazu im Dialog die Checkbox <i>Speichern des Kennworts zulassen</i> angekreuzt werden, so dass der folgende ConnectionString generiert wird:

<i>Provider=SQLOLEDB.1;<b>Persist Security Info=True</b>;<br>
User ID=sa;Initial Catalog=Northwind;Data Source=192.168.1.11</i>

Nach dem Öffnen der Verbindung kann der ConnectionString erneut abgefragt werden - dort wird das vom Benutzer im Login-Dialog eingetragene Passwort aufgeführt:
<pre>
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.Connected := True;
ShowMessage(ADOConnection1.ConnectionString);
end;
</pre&gt

[Olaf Schwenk]

Hallo Herr Kosch,<br>
vielen Dank für den Tipp. SUPER<br>
P.S.<br>
Wo holen Sie nur die Zeit her?<br>
Autor von vielen guten Büchern<br>
und dann noch Zeit Foren zu beantworten! Echt genial

[Andreas Kosch]

Hallo,

das ist nur Selbstzweck. Da mein InterBase 6+IBX-Buch fertig ist, kommt nun ein ADO-Buch an die Reihe. Und durch die Fragen im Forum bekomme ich ein aktuelles Feedback, was in meinen Büchern als Thema auftauchen sollte.

P.S: Eine Portion verückter Idealismus ist natürlich auch dabei ;-