procedure TForm1.Button1Click(Sender: TObject);
begin
with adoStoredproc1 do begin
close;
Parameters.Clear;
ProcedureName := 'charu;1';
Parameters.CreateParameter('@stno',ftString,pdInput,100,edit1.text);
Parameters.CreateParameter('@stname',ftString,pdInput,100,edit2.text);
Parameters.CreateParameter('@stsex',ftString,pdInput,100,edit3.text);
Parameters.CreateParameter('@stage',ftString,pdInput,100,edit4.text);
Parameters.CreateParameter('@stdept',ftString,pdInput,100,edit5.text);
Open;
end;
end;
end.
运行后提示adoStoredproc1;commandtext does not return a result set
delphi 存储过程 传递输入参数
答案:2 悬赏:10 手机版
解决时间 2021-02-21 09:08
- 提问者网友:送舟行
- 2021-02-20 18:03
最佳答案
- 五星知识达人网友:动情书生
- 2021-02-20 19:13
procedure TForm1.Button1Click(Sender: TObject);
begin
with adoStoredproc1 do begin
close;
Parameters.Clear;
ProcedureName := 'charu;1';
Parameters.CreateParameter('@stno',ftString,pdInput,25,edit1.text);
Parameters.CreateParameter('@stname',ftString,pdInput,25,edit2.text);
Parameters.CreateParameter('@stsex',ftString,pdInput,25,edit3.text);
Parameters.CreateParameter('@stage',ftfloat,pdInput,0,strtofloat(edit4.text));
Parameters.CreateParameter('@stdept',ftString,pdInput,25,edit5.text);
ExecProc;
end;
end;
end.
begin
with adoStoredproc1 do begin
close;
Parameters.Clear;
ProcedureName := 'charu;1';
Parameters.CreateParameter('@stno',ftString,pdInput,25,edit1.text);
Parameters.CreateParameter('@stname',ftString,pdInput,25,edit2.text);
Parameters.CreateParameter('@stsex',ftString,pdInput,25,edit3.text);
Parameters.CreateParameter('@stage',ftfloat,pdInput,0,strtofloat(edit4.text));
Parameters.CreateParameter('@stdept',ftString,pdInput,25,edit5.text);
ExecProc;
end;
end;
end.
全部回答
- 1楼网友:神也偏爱
- 2021-02-20 19:39
执行的是 插入删除吧?
select 时是用open的
但是更新、插入时是要用 Execute 的,楼上的正确。。
再看看别人怎么说的。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯