DB- umschalten

[d.adams]

Hallo,
ich stehe ein bisschen auf dem Schlauch.Ich habe eine ältere Anwendung "geerbt" die im Prinzip nichts anderes macht als SQL-Skripts abschicken.

Das Programm geht per ADO auf einen SQL-Server, den Connection-String liest es aus einer UDL-Datei beim Start und verbindet sich dann mit einer Datenbank. Ich muss die Anwendung erweitern und zwar soll zur Laufzeit ein Wechsel der Datenbank (Testsystem / Livesystem) möglich sein.

Umsetzen möchte ich das Umschalten über eine Auswahlbox. Dort hinein schreibe ich alle DB´s des Servers. Wie aber stelle ich nach Auswahl einer anderen DM in dieser Auswahlbox die DB-Verbindung um? Und zwar möglichst sinnvoll....

Ich dachte schon daran das UDF-File zu lesen, dort den DB-Namen zu ersetzen und dann neu Verbinden. Aber geht das auch eleganter? Zumal ich mir vorstelle noch mehr zu erweitern, nämlich mehrere Abfragen gleichzeitig zu öffnen (ist im Moment nicht möglich) und für jedes Abfragefenster die Connection zu speichern....

[himitsu]

Irgendwo gibt es bestimmt eine TADOConnection und Jene hat vermutlich ein Database-Property ein TADOConnection.ConnectionString-Property, welches du natürlich ändern kannst.

Und dann bietet diese Connection auch noch .Close und TADOConnection.Open.

[d.adams]

Zitat:

Zitat von himitsu (Beitrag 1524338)

Irgendwo gibt es bestimmt eine TADOConnection und Jene hat vermutlich ein Database-Property ein TADOConnection.ConnectionString-Property, welches du natürlich ändern kannst.

Und dann bietet diese Connection auch noch .Close und TADOConnection.Open.

erstmal Danke!

Ich habe vergessen: Ich muss mit Delphi 7 arbeiten, die ADOConnection hat kein Database-Property, lediglich ein DEFAULTDATABASE..

[Delphi.Narium]

Habe auch "nur" Delphi 7 und die TAdoConnection hat einen Connectionstring. Benutze ich täglich in meinen Programmen.

Und wenn Du zur Laufzeit 'ne neue Verbindung aufbauen willst, geht das z. B. mit

Delphi-Quellcode:

var
  sConnection   : String;
begin
  ADOConnection.Connected := false;
  ADOConnection.ConnectionString := PromptDataSource(handle,sConnection);
  ADOConnection.Connected := true;
end;

Den Connctionstring kannst Du dann ja irgendwo speichern (INI-Datei, ...) und bei Bedarf wieder zuweisen.