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"
