🚀 go-pugleaf

W dniu 30-06-2017 o 12:29, konsul41@wp.pl pisze:
> Zeos Delphi XE2
>
> Jak ograniczyć ilość wierszy pobieranych do ZTable
> FZTable1.FetchRow:=1;
> FZTable1.Open;


Poradziłem sobie
Query:=TZQuery.Create(nil);
   try

     Query.Connection:=Poczta.ZQPoczta.Connection;
     Query.SQL.Text:='INSERT INTO pliki(dane, typ, nazwapliku, 
id_sprawy,opis) '+
                     ' VALUES (:dane, :typ, :nazwapliku, 
:id_sprawy,:opis) returning id;';
     Query.ParamByName('typ').Text := 'plik';
     Query.ParamByName('nazwapliku').Text := ExtractFileName(filename);
     Query.ParamByName('id_sprawy').AsInteger := 0;
     Query.ParamByName('opis').Text := ExtractFileName(filename);
     Query.ParamByName('dane').LoadFromStream(Stream,ftBlob);
     //BS := Query.CreateBlobStream(Query.FieldByName('dane'),bmWrite);
     //TBlobField(Query.FieldByName('dane')).LoadFromStream(Stream);
     Query.Open;
     result:=Query.FieldByName('id').AsInteger;

     //BS.Free;
   finally
     Query.free;
   end;