Zeoslib Portal

I want indicate in a dbgrid edited and inserted values with red color. 1) I created this function http://zeoslib.sourceforge.net/viewtopic.php?f=40&t=80907&p=102892#p102892 . It is working good, except the user changes sorting client side. (User clicks on column title and programm adds to zq...

If someone interested I found better way. Add this to ZDbcCachedResultSet.pas: function TZAbstractCachedResultSet.GetOldValAsString(ARecNo, AColumnIndex: Integer; var AIsNull: Boolean): String; //20180917 soner for oldvalue var aIndex: Integer; aOldRowAccessor: TZRowAccessor; begin CheckClosed; if (...

I think I found one bug and the reason for incorrect oldvalues. Look my comments in this code.: // from ZDbcCachedResultSet.pas procedure TZAbstractCachedResultSet.MoveToInitialRow; var Index: Integer; begin CheckClosed; if (RowNo >= 1) and (RowNo <= LastRowNo) and (FSelectedRow <> nil) then begin I...

Or I don't really need the old value. Is there any way to detect if the field is changed for chachedupdates?
I want indicate changed values in TDBGrid.

When I set TZQuery.CachedUpdates to true then TField.OldValue returns incorrect values. Is it not supported for cachedupdates?
I use Lazarus 1.8.5 fpc 3.0.4. and sqlite
Same result with Turbo Delphi and Firebird-DB.

I put one example for lazarus and one for turbo delphi.

This problem is resolved with version 7.2.4. If someone wants to check if firebird-server is available then use ping-funcktion like this: if ZConnection1.Ping then Writeln('Connection exists'); //ZConnection1.Connected is true, even when connection lost. (Only tested with Firebird 2.5, Windows)

No thanks. I updated my zeos to version 7.2.4 now and I saw you took the code from above in the library. Your are great boys, thanks.
Sorry for late answer.

Hello, I am using cachedupdates with TZQuery. I have in my query one fkinternalcalc-Field and I am using this as variable for one data row. I had to change some code to take values for fkinternalcalc-Fields like this: // Don't take it now to ZEOS-Library it must be tested, // maybe can cause problem...

Hello, in my program I have active TZConnection with Firebird datebase, then I connect with TFBAdmin to the Database server to change password from other user. When I do this TZConnection looses the connection, but the program does not know about it, ZConnection1.Connected is true and ZConnection1.P...

Thanks for the explanation.
Now I chose third way, I read the charakter lenth once then set in in controls (i.e. TDBEdit.MaxLength).
Best wishes.

Hello, first I read this: http://zeoslib.sourceforge.net/viewtopic.php?t=3595 I think TField.Size can be used for character length. TField.DataSize can be used for needed bytes to save. Here is informations from emba and fpc. http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdat...

Hello, Calling of TZQuery.UpdatesPending at TZQuery.DoBeforeClose causes Error(listindex-error), here is the solution: ZDbcCachedResultSet.pas function TZAbstractCachedResultSet.IsPendingUpdates: Boolean; begin Result := Assigned(FInitialRowsList) and (FInitialRowsList.Count > 0); //Original: Result...