单物料进仓ADOStoredProc1:commandtext does not return a result set

Question

单物料进仓
ADOStoredProc1:commandtext does not return a result set procedure TForm11.Button1Click(Sender: TObject);
var
   s2,d1:string;
   //t1,t2:int64;
begin
d1:=Formatdatetime('YYMMDD', Now) ;
with ADOquery1 do
   begin
      Close;
      sql.Clear;
      sql.Add('select max(进仓单号) as maxno from rj100204_进仓表 where 进仓单号 LIKE ''%'+d1+'%''' );
      open;
      end;
      if ADOquery1.fieldbyname('maxno').asstring ='' then
      begin
        s2:=d1+'01';
        end ;
ADOStoredProc1.Close;
ADOStoredProc1.Parameters.Clear;
ADOStoredProc1.ProcedureName:='j100404进仓';
ADOStoredProc1.Prepared;
//ADOStoredProc1.Parameters.Refresh;
ADOStoredProc1.Parameters.ParamByName('@out').Value:='''';
ADOStoredproc1.Parameters.ParamByName('@进仓单号').Value:=s2 ;
ADOStoredProc1.Parameters.ParamByName('@进仓日期').Value := formatdatetime('yyyy-MM-dd',now);
ADOStoredProc1.Parameters.ParamByName('@操作人员代码').Value := ComboBox1.Text;
ADOStoredProc1.Parameters.ParamByName('@备注').Value := Edit3.Text;
ADOStoredProc1.Parameters.ParamByName('@物料代码').Value := ComboBox2.Text;
ADOStoredProc1.Parameters.ParamByName('@物料名称').Value := ComboBox3.Text;
ADOStoredProc1.Parameters.ParamByName('@进仓数量').Value:=edit1.Text;
ADOStoredproc1.ExecProc ;
label2.Caption:='显示结果:  '+ADOStoredproc1.Parameters.ParamByName('@out').Value;end;end.存储过程一直连不上

Answer 1

先在数据库里面测试下数据。然后在调用就知道了。在调用的时候showmessage（）；看调用是否正确。