请问在DELPHI里用调用存贮过程那个控件如何用!急急急 我存贮过程有三个参数,第一个是输出参数,后两个是输入参数。都是字符串 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 首先output参数是一定要写在最后的! with myStoredProc do begin try Close; ProcedureName := 'OW_Clr_Orders'; Parameters.Clear; Parameters.AddParameter; Parameters[0].DataType:=ftInteger; Parameters[0].Direction:=pdReturnValue; Parameters[0].Name:='@Return'; Parameters.AddParameter; Parameters[1].DataType:=ftstring; Parameters[1].Direction:=pdinput; Parameters[1].Name:='@Lister'; Parameters[1].Value:=pShareData.pOperator.sUserCode; Parameters.AddParameter; Parameters[2].DataType:=ftstring; Parameters[2].Direction:=pdInputOutput; Parameters[2].Name:='@OrdersNo'; Parameters[2].Size:=10; Parameters[2].Value:=sFormNo; ExecProc; if Parameters[0].Value = 0 then begin sOrdersNo :=Parameters[2].Value; Edit_OrdersNo.text :=sOrdersNo; end else begin Showmessage('出错'); Self.Close; Exit; end; end; 还少了几句是关于Try,with语句的,我就不写了吧,你自己加。 其实也跟Query差不多,调用时先传参数,用ParambyName('a2').AsSring := Edti1.TextParambyName('a2').AsSring := Edti2.Text;在回传值时用 Edit3.Text := ParambyName('a1').AsString;注意不能用FieldByName! 用TADOStoredProc控件!!!过程名属性连到你的过程名上你在它的参数属性就可以看么你在过程中定义的参数了 Excel保存问题!! 谁有用DELPHI发ARP包的源代码 这样的过滤条件怎么写? Table+DBGrid 显示数据后,怎样改变表格的列数? ADO中如何删除所有记录 举个例子 好吗 【通告】2004年上半年Delphi版牛奖揭晓 怎样将panel上所有的label和image等--保存为一幅完整的图片(当然是panel大小)?苦思瞑想毛渐少!!! 谁知道用SMTP发信是从哪个端口发出去的 各位在真正开始编代码前一般用什么工具进行系统分析和设计?谈者有分!!! delphi如何注册ocx 两个‘猫’的问题 有谁了解delphi6有那些好得得反编译工具?
begin
try
Close;
ProcedureName := 'OW_Clr_Orders';
Parameters.Clear;
Parameters.AddParameter;
Parameters[0].DataType:=ftInteger;
Parameters[0].Direction:=pdReturnValue;
Parameters[0].Name:='@Return';
Parameters.AddParameter;
Parameters[1].DataType:=ftstring;
Parameters[1].Direction:=pdinput;
Parameters[1].Name:='@Lister';
Parameters[1].Value:=pShareData.pOperator.sUserCode;
Parameters.AddParameter;
Parameters[2].DataType:=ftstring;
Parameters[2].Direction:=pdInputOutput;
Parameters[2].Name:='@OrdersNo';
Parameters[2].Size:=10;
Parameters[2].Value:=sFormNo;
ExecProc;
if Parameters[0].Value = 0 then
begin
sOrdersNo :=Parameters[2].Value;
Edit_OrdersNo.text :=sOrdersNo;
end
else
begin
Showmessage('出错');
Self.Close;
Exit;
end;
end;
ParambyName('a2').AsSring := Edti2.Text;在回传值时用 Edit3.Text := ParambyName('a1').AsString;注意不能用FieldByName!
控件!!!
过程名属性连到你的过程名上你在它的参数属性就可以看么你在过程中定义的参数了