Next test read data from "CurData" (which are constantly updated) only first time. All is OK with uncommited "db.Reconnect" but this consump twice more time in cycle
Thanks.
[font=Courier New]procedure TstDBx;
var ok : Boolean; i : Integer; u, s : String; dt : TDateTime;
sql: TZReadOnlyQuery;
db : TZConnection;
begin
db := TZConnection.Create(nil);
db.User := 'ROML'; db.password := 'rkln'; db.hostName := '10.11.1.131'; db.Database := 'RCM'; db.Protocol := 'firebird-1.5';
db.Connect;
sql := TZReadOnlyQuery.Create(nil);
sql.Connection := db;
u := '''01.01.1888 00:00:00''';
for i := 0 to 500 do
begin
s := 'SELECT timIndex, timMark FROM CurData' +
' WHERE timMark > ' + u + ' ORDER BY timMark DESC';
sql.SQL.Clear;
sql.SQL.Add(s);
sql.Open;
ok := not sql.EOF;
if ok then
begin
dt := sql.Fields.FieldByName('timMark').AsDateTime;
u := '''' + DateTimeToStr(dt) + '''';
end;
// Sleep(1000);
sql.Close;
// db.Reconnect; // this statement is needed in FireBird ??
end;
end;[/font]
