with Syntax korrekt ???

[marabu]

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