Zeoslib Portal

Hi all !

Here is the patch for Zeos 6.6.4-stable !

Just unpack and copy-replace this files to zeos/src/components and
(it is good practice to make backup !)
recompile zeos components ...

Now You have FetchRow property and FetchAll method on ZTable and ZQuery components ...

Have fun !

Problem is solved !

I convert database : default charset to UTF8, all varchar, char filelds charset, collation to UTF8 and in ZConnection.Properties I put line : charset=UTF8.

I's now wok fine !!!

I'm not sure that is the Lazarus bug, so I made an litle test program with Lazarus SQLDB components and it is correct !!! :shock: In TIBConnection you can specify CharSet=UTF8 property and it's wirk ! Certanly I try to set ZConnection parameter : codepage=EAST_EUROPEEAN or UTF8 ... but with no affec...

Hi all ! I have problem with Lazarus 0.9.26. In DBGrid I can't see some Varchar(30) fields with charset NONE, and contain East Europeean characters. Those field values is totally empty (invisible)-nothing is shown ! Fields that not contain this characters is shown normaly. Specification : Lazarus 0....

Hi mdaems !

I'm now hapy, and thanks !
(I know that you are serius guys !)

Hi Michael !

Ok, in the next version ...

Hi all ! I made patch to ZAbstractRODataset.pas and ZDataset.pas on new Zeos 6.6.3-stabel. (it is in attachment) Hou have simply replace this 2 files in src\Component folder, recompile, and install the library. Added new property : FetchRow (description is in my erlier posts) and new method : FetchA...

Hi Zippo ! Very nice ! I just want to notice one mistake in code if I fallow the logic correctly: procedure SaveDatasetToFile(DataSet: TDataSet; FileName: string; Separ: char=';'); var i, r : integer; Row, Fld : string; F : TextFile; begin AssignFile(F, FileName); Rewrite(F); r := DataSet.RecNo; Dat...

Hi Zippo !

I'm very glad that You find it useful ... and of cours I'm agree to publish changes !

Hi All ! I made this procedures a several jears ago, and use it succesfuly ... (saved and restored dataset must bee identical !) procedure QSaveToFile(DataSet: TDataSet; FileName: string; Separ: char=';'); var i, r : integer; t, s : string; F : TextFile; begin AssignFile(F, FileName); Rewrite(F); r ...

Hi gto !

Did you try it ?

patyi

Hi all,

I'm made new method FetchAll in case if you have to fetch all records in
runtime (when FetchRow is set to > 0) without calling Last, locate etc. keeping the cursor position unchanged.

The modifications is in attachment...

Tray it, test it ...

Hi, A simple work a round for connecting to Firebird 2.1 First time you have to open tvice the query... Connection.Connect; if Connection.Connected then begin try Query.Open; // firs time is error except Query.Open; // second tim is success end; end; error occures only in design time ... My investig...

Hi,

Scrolling down is fetching one by one record more.
Locate, Last, Sort etc. fetches all records.

You can test it making an simple program with DBGrid and
labels with RecNo and RecotdCount in captions...

Hi all I'm made some changes in ZAbstractRODataset.pas and ZDataset.pas. The new peoperty FetchRow is added. When value of FethRow is 0 (zero) then component is working exactly like before (this is the default value). When value of FetchRow is for example 50, max 50 rows is fetched or more, depend o...