Question

delphi 存储过程 传递输入参数

with adoStoredproc1 do
begin
Parameters.ParamByName('@sno').Value:=edit1.text;
parameters.ParamByName('@cno').Value := edit3.Text;
parameters.ParamByName('@result').Value :=edit5.Text;
ExecProc;
end;

可以运行，但是提交时候，他说参数找不到传递的值？？为什么啊。。不能这样赋值吗？？？

Answer 1

with adoStoredproc1 do begin
close;
Parameters.Clear;
ProcedureName := 'PRO;1';
Parameters.CreateParameter('@sno',ftString,pdInput,100,edit1.text);
Parameters.CreateParameter('@cno',ftString,pdInput,100,edit3.text);
Parameters.CreateParameter('@result',ftString,pdInput,100,edit5.text);
ExecProc;
end;

Answer 2

parameters.ExecProc;