Connection übergeben verschiedene Datenbanken

[TiGü]

Delphi-Quellcode:

uses
  FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
  FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.VCLUI.Wait,
  Data.DB, FireDAC.Comp.Client, FireDAC.Stan.Param, FireDAC.DatS,
  FireDAC.DApt.Intf, FireDAC.DApt, FireDAC.Comp.DataSet, Data.Win.ADODB;

function CreateFDQuery(eineVerbindung:TCustomConnection): TFDQuery;
begin
  Result := TFDQuery.Create(nil);
  Result.Connection := eineVerbindung as TFDCustomConnection;
end;

function CreateADOQuery(eineVerbindung:TCustomConnection): TADOQuery;
begin
  Result := TADOQuery.Create(nil);
  Result.Connection := eineVerbindung as TADOConnection;
end;

procedure MeinZugriff(eineVerbindung:TCustomConnection;irgendwas:String);
var
  myquery: TDataset;
begin
  if eineVerbindung is TFDConnection then
    myquery := CreateFDQuery(eineVerbindung);
  if eineVerbindung is TADOConnection then
    myquery := CreateADOQuery(eineVerbindung);
end;