Zeoslib Portal

Code: Select all

 ZQuery1.Close;
 ZQuery1.SQL.Clear;
 ZQuery1.SQL.Add('SELECT count(*) as ile from zapisy where NR_KONTRA = :u');
 ZQuery1.ParamByName('u').AsString:='20';
 ZQuery1.Open;
 i:=ZQuery1.Fields[0].AsInteger; // <-- 0
 ZQuery1.Close;
 ZQuery1.ParamByName('u').AsInteger:=20;
 ZQuery1.Open;
 j:=ZQuery1.Fields[0].AsInteger; // <-- 17

Code: Select all

procedure ZTestCompCoreBugReport.TestParamUx;
var
  Query: TZQuery;
begin
  if SkipForReason(srClosedBug) then Exit;

  Query := CreateQuery;
  try
    // Query.RequestLive := True;
    Query.CachedUpdates := False;

    { Remove previously created record }
    Query.SQL.Text := 'DELETE FROM equipment WHERE eq_id>=:id';
    Query.ParamByName('id').AsInteger := TEST_ROW_ID - 2;
    Query.ExecSQL;

    Query.SQL.Text := 'INSERT INTO equipment (eq_id, eq_name) VALUES (:u, :u1)';
    Query.ParamByName('u').AsString := IntToStr(TEST_ROW_ID - 2);
    Query.ParamByName('u1').AsString := 'ab''cd''ef';
    Query.ExecSQL;
    Query.ParamByName('u').AsInteger := TEST_ROW_ID - 1;
    Query.ParamByName('u1').AsString := 'ab\cd\ef';
    Query.ExecSQL;
    Query.ParamByName('u').AsInteger := TEST_ROW_ID;
    Query.ParamByName('u1').AsString := 'ab\''cd\''ef';
    Query.ExecSQL;

    { Opens a result set. }
    Query.SQL.Text := 'SELECT * FROM equipment WHERE eq_id = :u or eq_id = :u +1 or eq_id = :u +2  ORDER BY eq_id';
    Query.ParamByName('u').AsString := IntToStr(TEST_ROW_ID-2);
    Query.Open;
    CheckEquals(TEST_ROW_ID - 2, Query.FieldByName('eq_id').AsInteger);
    CheckEquals('ab''cd''ef', Query.FieldByName('eq_name').AsString);
    Query.Next;
    CheckEquals(TEST_ROW_ID - 1, Query.FieldByName('eq_id').AsInteger);
    CheckEquals('ab\cd\ef', Query.FieldByName('eq_name').AsString);
    Query.Next;
    CheckEquals(TEST_ROW_ID, Query.FieldByName('eq_id').AsInteger);
    CheckEquals('ab\''cd\''ef', Query.FieldByName('eq_name').AsString);

    { Remove newly created record }
    Query.SQL.Text := 'DELETE FROM equipment WHERE eq_id>=:id';
    Query.ParamByName('id').AsInteger := TEST_ROW_ID - 2;
    Query.ExecSQL;
  finally
    Query.Free;
  end;
end;