Hallo Andreas,
zusätzlich zum Hinweis von Robert noch folgendes. Der gemeinsame Vorfahr beider Queries ist TDataSet und der stellt alle Methoden und Eigenschaften zur Verfügung um mit fertigen Queries zu arbeiten. Das Aufsetzen einer
Query mit
SQL ist spezifisch.
Dein Code tut nicht das, was du eigentlich willst, weil es keine conditional with blocks gibt.
Delphi-Quellcode:
var
ds: TDataSet;
begin
if dbtyp = 0
then ds := ibqImage
else ds := such_query;
...
ds.Close;
if ds is TADOQuery
then TADOQuery(ds).SQL.Text := sqlText
else TIBQuery(ds).SQL.Text := sqlText;
ds.Open;
...
end;
Grüße vom marabu