delphi调用存储过程的错误

Question

你在查询分析器里看看有没有问题？
或者是控件设置的问题？
要不然用set @ytd_sales = 1 这样试试？

Answer 1

测试后可以使用。
procedure TForm1.Button1Click(Sender: TObject);
var sTitle: String;
    iRetu: Integer;
begin
  sTitle := '123';
  iRetu := -2;
  with ADOStoredProc1 do
  begin
    Parameters[1].Value := sTitle;
    Parameters[2].Value := iRetu;
    Prepared;
    ExecProc;
    ShowMessage(ADOStoredProc1.Parameters[0].Value);  //返回值
    ShowMessage(ADOStoredProc1.Parameters[2].Value);  //返回第二个参数的值
  end;
end;

Answer 2

在查询分析器里面没有问题，结果都是正确的。现在需要的是用delphi 调用。

Answer 3

报错ADOStoredProc1:CommandText does not return a result set

Answer 4

你先要保证存储过程是正确的，然后这样进行：
用ADOStoredProc1连接好数据库中的相应存储过程。设置好所有的Parameters。
并填好Parameters中的属性Value，也就是给它值，然后把ADOStoredProc1的
ACTIVE设置成TRUE，如果这样过去了，你就可以在程序中动态写了。

Answer 5

ADOStoredProc1:CommandText does not return a result set]
这个是什么样的错误？？？？

Answer 6

你的存储过程不是返回一个结果集，
我想你一定是用的ADOStoredProc1.open
象 genphone_ru(票票) 那样用ADOStoredProc1.ExecProc
应该可以的！