Dear Michael,
Basically that you tried to set a value of column "Rounding Error" in table
Lot greater than limit of float.
Hope this help.
Best Regards
Leigh Wanstead
Software Engineer
SoftTech NZ Ltd.
----- Original Message -----
From: "Michael White" <[EMAIL PROTECTED]>
To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
Sent: Thursday, November 09, 2000 8:17 AM
Subject: [DUG]: Parameterised update query
> Morning all,
>
> I'm hoping that someone out there can help with this....
> We have an app (Delphi 1) that runs a parameterised update query (code
> below) successfully at multiple sites, bur at one particular site they are
> getting a syntax error message related to the "Rounding Error" field and
> something about "image 2". Can anyone see why this would be happening or
> had this problem before?
>
> with qryQStock do begin
> Close;
> SQL.Clear;
> SQL.Add('UPDATE Lot');
> SQL.Add('SET Lot.Branch = :BranchID, Lot.Receipt = :ReceiptID, ' +
> 'Lot."Receipt Date" = :ReceiptDate, Lot."Rounding Error" =
> :RoundingError, ' +
> 'Lot.Status = :Status, Lot."Cost Supplied" =
:CostSupplied');
> SQL.Add('WHERE (Lot."Cost Each" > 0.001) AND (Lot.Branch IS NULL)');
> {Set the data types}
> Params.ParamByName('BranchID').DataType := ftInteger;
> Params.ParamByName('ReceiptID').DataType := ftInteger;
> Params.ParamByName('ReceiptDate').DataType := ftDateTime;
> Params.ParamByName('RoundingError').DataType := ftFloat;
> Params.ParamByName('Status').DataType := ftInteger;
> Params.ParamByName('CostSupplied').DataType := ftInteger;
> {Pass the parameter values}
> ParamByName('BranchID').AsInteger := intBranchID;
> ParamByName('CostSupplied').AsInteger := lc_CostKnown;
> ParamByName('ReceiptDate').AsDateTime := dtDateReceived;
> ParamByName('ReceiptID').AsInteger := intToReceiveID;
> ParamByName('RoundingError').AsFloat := fltRoundingError;
> ParamByName('Status').AsInteger := ls_Available;
> ExecSQL;
> end;
>
> Regards,
> Michael
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
>
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
