Firebird: Simple Abfrage per IBX... O_o

[Lemmy]

Hi Robert,

versuch mal folgendes:

Delphi-Quellcode:

procedure TMetaTable.FetchColumns;
var
   ColumnId               : Int64;
begin
   fColumns.Clear();

   with TIBDataSet.Create(nil) do  
   try
      Database := TMetaDatabase.Instance;
      Transaction := TIBTransaction.Create(nil);
      Transaction.DefaultDatabase := Database;

      Sql do
      begin
         Add('SELECT Id');
         Add('FROM   MetaColumns');
         Add('WHERE  MetaTable = :MetaTable');
      end;

      ParamByName('MetaTable').AsInt64:=Id;

      Open(); // <--- Hier zickt er rum

      while not Eof do
      begin
         ColumnId:= Fields[0].AsInteger;
         fColumns.Add(TMetaColumn.Create(ColumnId));
         Next();
      end;

   finally
      Free();
   end;
end;

IBQuery und IBTable sind nur aus kompatibilitätsgründen implementiert worden!!!!! Die sollen bei einr Umstellung von BDE->IBX zum Einsatz kommen, bis der entsprechende Co