I'd guess you have one or more TField objects associated
with the query that are there at design time (and saved
in the DFM file and recreated at runtime) but you're not
creating them when you do it on the fly.
-ns
----- Original Message -----
From: "Sergei Stenkov" <[EMAIL PROTECTED]>
To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
Sent: Thursday, June 21, 2001 12:18 PM
Subject: [DUG]: Run time TQuery problem
> Hello,
>
> I have a problem with running a query created at run time. (use D5 on 2K
and
> Oracle 8.17)
> Both TDatabase and TQuery comps are created and set at run time and when I
> try execute the query, I get a EDBEngineError saying "Could not find
> object".
> Executing the same query with comps created at design time has no problem
> what so ever. The run time creation is shown in the following piece of
code.
>
> The question is - Am I missing out something or doing something wrong? Or,
> what could be wrong here?
>
> Thank you for any suggestions.
>
> Best regards,
> Sergei
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> procedure TForm1.Button1Click(Sender: TObject);
> var
> sqlTrans : TQuery;
> dbTrans : TDatabase;
> begin
> dbTrans := TDatabase.Create(nil);
> sqlTrans := TQuery.Create(nil);
> try
> with dbTrans do begin
> DatabaseName := 'Blah';
> AliasName := 'BlahAlias';
> Params.Add('USER NAME=USERNAME');
> Params.Add('PASSWORD=USERPASSWORD');
> LoginPrompt := False;
> Connected := True;
> end;
>
> with sqlTrans do begin
> DatabaseName := 'Blah';
>
> with SQL do begin
> Add('SELECT ...');
> Add('FROM ...');
> Add('WHERE ...');
> Add('AND CUSTOMER_ID = :CustId');
> end;
>
> with Params do begin
> CreateParam(ftString, 'CustId', ptInput);
> ParamByName('CustId').AsString := '1';
> end;
>
> Open; // Fails here
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> First;
> ...............
> Close;
> end;
> finally
> if sqlTrans.Active then sqlTrans.Close;
> sqlTrans.Free;
> if dbTrans.Connected then dbTrans.Connected := False;
> dbTrans.Free;
> end;
> end;
>
> --------------------------------------------------------------------------
-
> 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"
