delphi - How to pass parameters to an ADOQuery object? -
i using adoquery in delphi 7 , oracle. getting error while passing parameters adoquery. have used following line. please me identify error.
adoquery.sql.text:= 'select * temp_table '+ 'where column1 in (select column table2 id=:id) , id=:id'; adoquery.parameters.parambyvalue('id').value= 'abc'; adoquery.open;
when open query following error:
parameter object improperly defined. inconsistent or incomplete information provided.
we have same problem, ended "masking" class tparameters this:
declaration:
tmyparameter = class(tparameter) private function getasvalue: variant; procedure setasvalue(const value: variant); public property value: variant read getasvalue write setasvalue; end;
implementation:
procedure tmyparameter.setasvalue(const value: variant); var ipar: integer; begin ipar:= 0 collection.count - 1 if (name = tparameter(collection.items[ipar]).name) tparameter(collection.items[ipar]).value:= value; end; function tmyparameter.getasvalue: variant; begin result:= inherited value; end;
and how use:
tmyparameter(adoquery.parameters.parambyname('id')).asvalue:= 'abc';
i hope helps.
Comments
Post a Comment