Dear Michael,
I would suggest to install a Delphi copy on that site to debug it, Delphi
integrate debugging will automatically jump to the code which cause the
error. I believe this would be the quickest way to find that bug.
Good luck.
Leigh
----- Original Message -----
From: "Michael White" <[EMAIL PROTECTED]>
To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
Sent: Thursday, November 09, 2000 10:06 AM
Subject: RE: [DUG]: Parameterised update query
> 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"
>
>
---------------------------------------------------------------------------
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"
