Re: [DUG]: SQL and Parameters

Tue, 29 May 2001 20:24:06 -0700

Mike
Have tried this change, now.  No better.  I assume the question about Short Date Format is only relevant while I am using the DateToStr format?
I think there must be something quitye fundamental, that I have not passed on to you guys.
I assume that I can use a vanilla TQuery with no properties set; and that setting the ParamByName is ALL I need to.  (I have also tried Params[0].AsDate := CurrentDate.)
Is there some other fundamental aspect that I may not be aware of?
Mark
 
----- Original Message -----
Sent: Wednesday, May 30, 2001 3:22 PM
Subject: Re: [DUG]: SQL and Parameters

Mark
Have you tried -
ParamByName('SaveDate').AsDate := CurrentDate;
as opposed to
ParamByName('SaveDate').AsString := DateToStr(CurrentDate);
 
What is your Short Date Format - dd/mm/yy or mm/dd/yy?
DateToStr may not be giving you a valid date for SQL
Why you would get "could not find object", I don't know. 
 
HTH
Mike
 
----- Original Message -----
Sent: Wednesday, May 30, 2001 10:03 AM
Subject: [DUG]: SQL and Parameters

Hi
 
Using Paradox.
 
When I run the following SQL code (DocNos.Sql) using the LoadFromFile method, things work fine;
 
Delete from DocketNos
Where DocketNo in (
Select DocketNo from Dockets
Where ForCode not in (
Select distinct forcode from dockets
where docketdate > '03/31/2001'))
 
But when I try to parameterise it as follows, and with the final line of the Sql file changed to :
 
where docketdate > :SaveDate))
 
then I get an error message "Could not find object"
 
  procedure RunPQuery(SQLFile: string);
  begin
    with RSQuery do
    begin
      Close;
      Unprepare;
      SQL.LoadFromFile('DocNos.SQL');
      ParamByName('SaveDate').AsString := DateToStr(CurrentDate);
      Prepare;
      Open;
      MainForm.Memo.Lines.Add('Done');
    end;
  end;
Can any one see where I have gone wrong?
 
TIA  Mark

Reply via email to