出错信息:存储过程test需要参数;@id但未有提供参数??? +存储过程返回结果null无法把varaint转换为string。(100分)

tongwenhuan2003 · 2006-10-27

在sql server 中创建并执行. create procedure test  @id varchar(10) output as begin  set @id = 'agc' end procedure TForm2.Button4Click(Sender: TObject); var iProc:String; begin  //ts:=cdsCustomer.AppServer.GetSum_Proc;  ADOStoredProc1.Close;  ADOStoredProc1.ProcedureName:='test;1';  ADOStoredProc1.Parameters.Refresh;  ADOStoredProc1.ExecProc;  iProc:= ADOStoredProc1.Parameters.ParamByName('@id').Value;  ListBox1.Items.Add(iProc); end; 出错信息:过程test需要参数'@id',但未有提供参数 是不是在调用时候还有创建@id这个? 不知道怎么解决,急!!!   问题可以解决，但是还未找到错误原因。 来自：52free, 时间：2006-10-27 15:27:00, ID：3607964 这个问题好像讨论了好几天了，其实你在查询分析器里能实现的在delphi里一样可以实现 他也是一个SQL,这个我好像提示过，但似乎没人去试试  AdoQuery1.SQL.Clear;  AdoQuery1.SQL.Add('Exec Test

ID output');  AdoQuery1.ExecSQL;  Caption := AdoQuery1.Parameters.ParamByName('@ID').value 就这么简单，我用delphi很多年都没用过ADOStoredProc   根据你提供的方法可以得到值。 来自：hongxing_dl, 时间：2006-10-27 15:34:23, ID：3607977 那你将它定义为函数吧: create function test()  returns varchar(10) as begin  return ('agc'); end to hongxing_dl 你的意思是把sql server 中的存储过程改为函数吗，有的不明白！

tongwenhuan2003 · 2006-10-27

to sefeng1982 非常感谢你的指点，我一定尝试下。也谢谢大家。 祝大家工作学习一切都好吧。

hongxing_dl · 2006-10-27

是的,定义成自定义的函数就如我上面写的那样

bjaman · 2006-10-27

需要在TADOStoredProc组件的Parameters里定义一个参数

id,用以传回存储过程的输出值 如下: procedure TForm2.Button4Click(Sender: TObject); var iProc:String; begin  //ts:=cdsCustomer.AppServer.GetSum_Proc;  ADOStoredProc1.Close;  ADOStoredProc1.ProcedureName:='test;1';  ADOStoredProc1.Parameters[0].Name := '@id';  ADOStoredProc1.Parameters[0].Direction := pdOutput;  ADOStoredProc1.Parameters[0].DataType := ftString;  ADOStoredProc1.ExecProc;  iProc:= ADOStoredProc1.Parameters.ParamByName('@id').Value;  ListBox1.Items.Add(iProc); end;

tongwenhuan2003 · 2006-10-27

还有个问题来求教[

][

] MIDAS 三层中遇到错误:存储过程返回结果null无法把varaint转换为string。 CREATE PROCEDURE get_income @icount int OUTPUT AS begin select icount=sum(income) from gjp end GO 上面的是sql server中的数据库，本想返回多值，因为一个都有问题，暂这样设计 function Tdb121.GetIncome: OleVariant; var iProc:String; begin  ADOQuery2.SQL.Clear;  ADOQuery2.SQL.Add('Exec get_income

ID output');  ADOQuery2.ExecSQL;  iProc := ADOQuery2.Parameters.ParamByName('@ID').value;  // 建立一个变量数组给函数返回变量Result。    Result := VarArrayCreate([0, 1], varOleStr);      Result[0] := iProc;     // Result[1] := iProc2; end; 上面的写在中间层中。 procedure TForm2.Button4Click(Sender: TObject); var  I: Integer;  midret: OleVariant; begin    // ListBox1.Items.Add(iProc);   // 连上应用程序服务器  cdsCustomer.Connected := True;  midret := cdsCustomer.AppServer.GetIncome;  if VarIsArray(midret) then    for I := 0 to VarArrayHighBound(midret, 1) do      self.ListBox1.Items.Add(midret); end; 上面的写在客户端调用层上。 出现上面的错误。我无所适从。中间层不知道怎么调试，根本进不去。向大虾们指点了。。。。

bjaman · 2006-10-27

iProc := ADOQuery2.Parameters.ParamByName('@ID').AsString;

出错信息:存储过程test需要参数;@id但未有提供参数??? +存储过程返回结果null无法把varaint转换为string。(100分)

tongwenhuan2003

Unregistered / Unconfirmed

tongwenhuan2003

Unregistered / Unconfirmed

hongxing_dl

Unregistered / Unconfirmed

bjaman

Unregistered / Unconfirmed

tongwenhuan2003

Unregistered / Unconfirmed

bjaman

Unregistered / Unconfirmed

Similar threads