Connection übergeben verschiedene Datenbanken

[Delphi.Narium]

Sowas in diese Richtung:

Delphi-Quellcode:

procedure OpenSQL(eineVerbindung : TCustomConnection; myQuery : TDataSet; sSQL : String);
begin
  myQuery.Close;
  if eineVerbindung is TFDConnection then begin
    TFDQuery(myQuery).SQL.Text := sSQL;
    TFDQuery(myQuery).Open;
  end else
  if eineVerbindung is TADOConnection then begin
    TADOQuery(myQuery).SQL.Text := sSQL;
    TADOQuery(myQuery).Open;
  end;
end;

oder:

Delphi-Quellcode:

procedure OpenSQL(myQuery : TDataSet; sSQL : String);
begin
  myQuery.Close;
  if myQuery is TFDQuery then begin
    TFDQuery(myQuery).SQL.Text := sSQL;
    TFDQuery(myQuery).Open;
  end else
  if myQuery is TADOQuery then begin
    TADOQuery(myQuery).SQL.Text := sSQL;
    TADOQuery(myQuery).Open;
  end;
end;