Zeosy

Thread View: pl.comp.lang.delphi.bazy-danych

4 messages

[T] Back to Threads [V] Tree View [G] Group Articles

4 total messages Started by "konsul41@wp.pl" Fri, 30 Jun 2017 12:29

#81079

Author: "konsul41@wp.pl"
Date: Fri, 30 Jun 2017 12:29

4 lines
107 bytes

Zeos Delphi XE2

Jak ograniczyć ilość wierszy pobieranych do ZTable
FZTable1.FetchRow:=1;
FZTable1.Open;

Re: Zeosy

#81080

Author: "konsul41@wp.pl"
Date: Fri, 30 Jun 2017 12:50

30 lines
1004 bytes

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;

Re: Zeosy

#81081

Author: wloochacz
Date: Sun, 02 Jul 2017 18:56

18 lines
457 bytes

W dniu 2017-06-30 o 12:50, konsul41@wp.pl pisze:
> 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
/ciach/
IMO gówno sobie poradziłeś.
Pokazujesz wstawienie nowego wiersza za pomocą TZQuery i twierdzisz, że
poradziłeś sobie z "ograniczeniem ilości zwracanych wierszy w TZTable".

WTF?

--
wloochacz

Re: Zeosy

#81082

Author: "konsul41@wp.pl"
Date: Mon, 03 Jul 2017 08:34

36 lines
992 bytes

W dniu 02-07-2017 o 18:56, wloochacz pisze:
> W dniu 2017-06-30 o 12:50, konsul41@wp.pl pisze:
>> 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
> /ciach/
> IMO gówno sobie poradziłeś.
> Pokazujesz wstawienie nowego wiersza za pomocą TZQuery i twierdzisz, że
> poradziłeś sobie z "ograniczeniem ilości zwracanych wierszy w TZTable".
>
> WTF?
>
Późno było więc może nie zauważyłeś.

Początkowo było
 >>> FZTable1.FetchRow:=1;
 >>> FZTable1.Open;

czyli Table

Następnie było
Query

więc inny komponent.

W pierwszym przypadku Table wpierw zasysało tabelę i trwało to cholernie
długo. Następnie zmieniłem na Query i już nie trwa to długo.

Potrzebowałem zapisywać plik do bazy i za pomocą Table trwało to za
długo. Problemem było długie wysyłanie pliku i to jest moje rozwiązanie
tego problemu.

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads