Hi Leigh,
thanks for your response. Unfortunately I don't think that is the problem
because the value I am passing to "Rounding Error" is actually 0.000. This
(and other values) is set immediately prior to the query code I posted
before. The values are set like this:
intBranchID := BranchTable.FieldByName(fn_braID).AsInteger;
intToReceiveID := ToReceiveTable.FieldByName(fn_torID).AsInteger;
dtDateReceived :=
ToReceiveTable.FieldByName(fn_torDateReceived).AsDateTime;
fltRoundingError := 0.000; {Rounding Error value being passed to query}
{Code I posted earlier goes here}
Thanks anyway, but there must be something more to it (probably will jump
out and hit me between the eyes when I least expect it!).
Regards,
Michael
> -----Original Message-----
> From: Leigh Wanstead [SMTP:[EMAIL PROTECTED]]
> Sent: Thursday, 9 November 2000 09:57
> To: Multiple recipients of list delphi
> Subject: Re: [DUG]: Parameterised update query
>
> 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"
---------------------------------------------------------------------------
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"
