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 Fri, 30 Jun 2017 10:29

#82809

Author: konsul41
Date: Fri, 30 Jun 2017 10:29

5 lines
1002 bytes

Zeos Delphi XE2

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

Re: Zeosy

#82810

Author: konsul41
Date: Fri, 30 Jun 2017 10:50

31 lines
1979 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

#82811

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

19 lines
1644 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

#82812

Author: konsul41
Date: Mon, 03 Jul 2017 06:34

37 lines
1977 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