Connection übergeben verschiedene Datenbanken

[Delphi.Narium]

Alles gut und schön.

Die für mich zentrale Frage ist, wieso benötigt man überhaupt unterschiedliche Datenbankkomponenten?

Aus alten Zeiten:

Über die BDE konnte ich damals auf alles zugreifen, was es so an Datenbanken gab.

Später, als die dann obsolet wurde, konnte ich z. B. über ADO auf alles zugreifen, was es dann an Datenbanken gab und heute noch gibt.

Mit Zeos ist es eigentlich ähnlich.

Habe halt kein aktuelles Delphi, aber wenn ich mir mal so die Doku zu TFConnection anschaue, scheint es mir nicht so, als hätte sich diese "altbekannte Flexibilität beim Datenbankzugriff" in heutigen Delphiversionen verschlechtert.

Für mich ist, ehrlich gesagt, die Sinnhaftigkeit des angestrebten Vorgehens nicht erkennbar.

Es wird eine (höchstwahrscheinlich absolut) unnötige, künstliche Komplexität produziert.

Vielleicht sollte man, bevor man hier nach 'ner Lösung für ein Gemisch aus unterschiedlichen Datenbankkomponenten sucht, mal genauer analysieren, was überhaupt gewünscht ist.

Z. B. eine Liste der zu unterstützenden Datenbanken.

Prüfen:

Welche Datenbanken nur über TFDConnection angesprochen werden können, aber nicht über TADOConnection.

Welche Datenbanken nur über TADOConnection angesprochen werden können, aber nicht über TFDConnection.

Sollte es überhaupt Datenbanken geben, die nicht über beide Komponentenarten angesprochen werden können, so wäre hier zuerst mal zu prüfen, in wieweit deren Unterstützung erforderlich ist.

Gibt es derartige Datenbanken nicht, wäre zu prüfen, welche der Komponentenarten am Besten für die gestellte Aufgabe geeignet ist.

Ist tatsächlich eine Mischung beider Komponentenarten erforderlich, so baut man sich dazu z. B. zwei Datenmodule, die jeweils eine Komponentenart unterstützen.

Je nach Datenbank wird dann eines der Datenmodule genutzt.

Aber die Mischung der Zugriffe, über die jeweilige Typabfrage der gerade genutzten Komponenten, dürfte die fehleranfälligste und damit die schlechteste Lösungsmöglichkeit für diese Aufgabenstellung sein.

[MyRealName]

Ich sehe nicht viel Sinn drin, da es ja Sachen wie FireDAC oder UniDAC gibt, aber sei es drum...

Man kann auch für jede Art Verbindung eine Klasse bilden, welche die wichtigen Funktionen, die man so nutzt hinter einem gemeinsamen interface kapselt.

Code:

Type IdbConnection = interface
       procedure Connect(AConnectionStr: String);
       procedure CreateQuery: IdbQuery; // liefert ein interface zu einem query passend zur connection
       // mehr funktionen hier
     end;
     
     TUniDACConnection = class(TInterfaceObject, IdbConnection)
     private
       FDbObject: TUniConnection;  
     public
       procedure Connect(AConnectionStr: String);
       procedure CreateQuery: IdbQuery;
     end;

     TFireDACConnection= class(TInterfaceObject, IdbConnection)
     private
       FDbObject: TUniConnection;  
     public
       procedure Connect(AConnectionStr: String);
       procedure CreateQuery: IdbQuery;
     end;

Muss man natürlich die einzelnen Funktionen, die man so braucht auch extra implementieren, aber naja, so auf die schnelle fällt mir da nichts anderes ein. Damit kannst wohl alles machen, was du brauchst.
Ich würde vielleicht noch eine ConnectionFactory dazubauen, denen gibst Du den Namen des Datenbank-Profils und der baut dir die connection zusammen mit den Parametern des Profils (DBName, Login, zusätzliche Connect-Params...)