Adocn:=TADOConnection.Create(self);
Adocn.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=True;'+
'User ID=sa;Workstation ID=PERL;Initial Catalog=F6;Use Procedure for Prepare=1;Auto Translate=True;'+
'Packet Size=4096;Data Source=cw3';
Adocn.LoginPrompt:=false;
Adocn.KeepConnection:=true;
showmessage(adocn.ConnectionString);
Adocn.open;
adostor:=tadostoredproc.create(self);
adostor.Connection:=adocn;
adostor.Close;
adostor.ProcedureName:= 'sp_f_rptqry1';
adostor.Parameters.ParamByName('@c_id').Value:='01';
adostor.Prepared:= true;
adostor.Open;
edit1.Text:=adostor.fields[0].asstring;为何报错说找不到参数‘@c_id’,不解,请各位前辈赐教;
Adocn.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=True;'+
'User ID=sa;Workstation ID=PERL;Initial Catalog=F6;Use Procedure for Prepare=1;Auto Translate=True;'+
'Packet Size=4096;Data Source=cw3';
Adocn.LoginPrompt:=false;
Adocn.KeepConnection:=true;
showmessage(adocn.ConnectionString);
Adocn.open;
adostor:=tadostoredproc.create(self);
adostor.Connection:=adocn;
adostor.Close;
adostor.ProcedureName:= 'sp_f_rptqry1';
adostor.Parameters.ParamByName('@c_id').Value:='01';
adostor.Prepared:= true;
adostor.Open;
edit1.Text:=adostor.fields[0].asstring;为何报错说找不到参数‘@c_id’,不解,请各位前辈赐教;
试试
你是动态生成的 肯定没有
adostor.Param.Create('@c_id',.. ptInput);
self.ADOStoredProc1.Parameters.CreateParameter('@result',ftstring,pdoutput,20,null);
with adostor.Parameters.AddParameter do
begin
Name:='@c_id';
Attributes:=[paNullable];
DataType:=ftString;
Size:=12;
end;