有几个问题想请教大家,请进来看看

Question

可以啊.
.fetchparamers....取出参数.

Answer 1

  With mySQLProc do
  begin
    try
      Close;UnPrepare;
      StoredProcName:='zl_clr_SCRK';
      Params.Clear;
      Params.Add;
      Params[0].Name:='@Result';
      Params[0].DataType:=ftInteger;
      Params[0].ParamType:=ptResult;
      Params.Add;
      Params[1].Name:='@SCRK_Code';
      Params[1].DataType:=ftString;
      Params[1].ParamType:=ptInput;
      Params[1].Value:='';
      Prepare;
      Active:=True;
      SqlRet := ParamByName('@Result').AsInteger;
      if SqlRet<0 then
      begin
        WARNING('系统不能取得单据编号！');
        exit;
      end;
      SCRK_Code.Text := FieldByName(MainCodeName).AsString;
      Close;
      UnPrepare;
    except
      WARNING('系统不能取得单据编号，请在退出后重试！');
      Close;
      UnPrepare;
    end;
  end;

Answer 2

begin
try
Close;
UnPrepare;
      StoredProcName:='pro_newusercode';
      Params.Clear;
      Params.Add;
      Params[0].Name:='@Result';
      Params[0].DataType:=ftInteger;
      Params[0].ParamType:=ptResult;
      Params.Add;
      Params[1].Name:='@newusercode';
      Params[1].DataType:=ftString;
      Params[1].ParamType:=ptoutput;
      //Params[1].Value:='';
      Prepare;
      execproc;
      //Active:=True;
    // SqlRet := ParamByName('@Result').AsInteger;
      {if SqlRet<0 then
      begin
        WARNING('系统不能取得单据编号！');
        exit;
      end;}
      form1.Caption :=parambyname('@newusercode').asstring;
      //SCRK_Code.Text := FieldByName(MainCodeName).AsString;
      Close;
      UnPrepare;
    except
      //WARNING('系统不能取得单据编号，请在退出后重试！');
      Close;
      UnPrepare;
    end;
我是像上面那样写的，一个机器上能取出用户编号，而另一机器人取提示说“capbility not supported”,
另外我写的存储过程只能在我的机器调出，而别的机器提示没有发现，
在设完databasename后的storedprocname的下拉列表中也有此过程名呀，为什么执行时说是没发现，我已被这个问题折磨了好长时间了，再不解决，那么多的存储过程不就白写了吗？所以想到了动太地他建，但也出现了这个问题。难道它了认人，不会吧？