Hi Neven,
As for your comment about a function to format the string, in BCB you
can use:
Now().FormatString("dd/MM/yyyy")
In Delphi I assume it would be something like:
Now.FormatString('dd/MM/yyyy')
Regards,
Bevan
Neven MacEwan wrote:
>
> Mark
>
> Sorry called you "Mike" is the last email, You don't have to create the
> param
> It sounds like the error you are getting is from the BDE, so I'll be
> interested
> to see if my suggestions work
>
> If you want to do a 'static' param do
>
> SQL.Text := 'select * from table where date = '''%s'''';
> SQL.Text := format(SQL.Text,[DateToStr(CurrentDate)]);
>
> I'd really like a DateToStrF function where you can pass the format string
> i.e. DateToStrF(CurrentDate,'dd/MM/yyyy')
>
> HTH
>
> Neven
>
> ----- Original Message -----
> From: Mark Howard <[EMAIL PROTECTED]>
> To: Multiple recipients of list delphi <[EMAIL PROTECTED]>
> Sent: Wednesday, 30 May 2001 16:48
> Subject: Re: [DUG]: SQL and Parameters
>
> You were right.
> I had no idea that I had to specifically add parameter objects to the
> TQuery. I can't find any mention of this in any of my 4 Delphi books.
> My procedure is now as follows, but I still get "Could not find object". Is
> the code that I have used to add the parameter correct?
>
> procedure RunPQuery(SQLFile: string);
> begin
> with RSQuery do
> begin
> Close;
> Unprepare;
> SQL.LoadFromFile(HomeDir + '\SQLFiles\' + SQLFile + '.SQL');
> Params.CreateParam(ftDate, 'SaveDate', ptOutput);
> ParamByName('SaveDate').AsDate := CurrentDate;
> Prepare;
> ExecSQL;
> MainForm.Memo.Lines.Add('Done');
> end;
> end;
>
> Tomorrow, I will build the SQL in my code - but its not as nice.
>
> Mark
>
> ----- Original Message -----
> From: James Low
> To: Multiple recipients of list delphi
> Sent: Wednesday, May 30, 2001 4:11 PM
> Subject: RE: [DUG]: SQL and Parameters
>
> Maybe it cannot find an object because the query has NO parameters (I
> cannot see where your code creates one). So maybe you need to add (using
> CreateParam or otherwise) a Param Object to the datsets Params (with the
> name "SaveDate", type Output (I think), ftdate) - before you call prepare.
> -----Original Message-----
> From: Mark Howard [mailto:[EMAIL PROTECTED]]
> Sent: 30 May 2001 15:41
> To: Multiple recipients of list delphi
> Subject: Re: [DUG]: SQL and Parameters
>
> 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 -----
> From: Mike Osborne
> To: Multiple recipients of list delphi
> 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 -----
> From: Mark Howard
> To: Multiple recipients of list delphi
> 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
>
> ---------------------------------------------------------------------------
> 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"
--
Bevan Edwards mailto:[EMAIL PROTECTED]
Achieve Software Limited http://www.achieve.co.nz
Phone: (64-9) 444-4210 ICQ: 732011
Fax: (64-9) 444-4201
Mobile: (64-21) 979-603
---------------------------------------------------------------------------
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"
