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"
