Thanks Leigh....at this point anything would help!
Regards,
Michael
> -----Original Message-----
> From: Leigh Wanstead [SMTP:[EMAIL PROTECTED]]
> Sent: Thursday, 9 November 2000 10:56
> To: Multiple recipients of list delphi
> Subject: Re: [DUG]: Parameterised update query
>
> Dear Michael,
>
> I recalled that in one issue of Delphi
> Magazine(http://www.itecuk.com/delmag/) they got an article about how to
> trace exception, access viloation and give full details about how that bug
> got fired. If you want that file, I will forward that download address to
> you.
>
> Best Regards
> Leigh
>
> ----- Original Message -----
> From: "Michael White" <[EMAIL PROTECTED]>
> To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
> Sent: Thursday, November 09, 2000 10:39 AM
> Subject: RE: [DUG]: Parameterised update query
>
>
> > Thanks again Leigh,
> >
> > unfortunately the client site is in Queenstown and we are in
> Christchurch,
> > which makes it difficult (not that a trip to Queenstown would be a bad
> thing
> > <grin>). I may have to ship *debug* version of our app down there that
> has
> > some more user-friendly error messages or something.
> >
> > Regards,
> > Michael
> >
> > > -----Original Message-----
> > > From: Leigh Wanstead [SMTP:[EMAIL PROTECTED]]
> > > Sent: Thursday, 9 November 2000 10:40
> > > To: Multiple recipients of list delphi
> > > Subject: Re: [DUG]: Parameterised update query
> > >
> > > 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"
> >
> --------------------------------------------------------------------------
> -
> > 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"
