永发信息网

delphi 存储过程 传递输入参数

答案:2  悬赏:10  手机版
解决时间 2021-02-21 09:08
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
最佳答案
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.
全部回答
执行的是 插入删除吧? select 时是用open的 但是更新、插入时是要用 Execute 的,楼上的正确。。 再看看别人怎么说的。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
路由器wds桥接后 也很稳定 只是用2天就要重启
同价格的台式电脑和笔记本电脑哪个好
早上睡觉起来嘴巴很臭是什么回事拜托各位大神
芒果帮地址在哪,我要去那里办事
...上搭讪陌生妹子要联系方式的男生是怎么想
韩立什么时候救她老婆来灵界呀,她老婆寿命快
我成绩差但我想上大学体验大学的生活又怕上个
佛家果位排序是那几个阶层?
德艺园房地产置换公司地址在什么地方,想过去
【盒饭外卖经营技巧】...案例分析有点急案例
新亚瑟出什么装备无敌
无氧运动会导致横纹肌溶解症吗
《细想解放运动与王蒙王蒙艺术创新》选题背景
公馆1号在哪里啊,我有事要去这个地方
车有买保险,出事故赔偿的钱全部都保险公司还
推荐资讯
电视是谁发明的?其原理是什么?
2019年自主高效练九年级科学全一册浙教版答案
重庆鸡公煲洲桥分店地址有知道的么?有点事想
出生日期查五行属性
宁西铁路复线到底什么时候可以通车
水晶有没有能量,什么能量,对身体有没有好处,
我走路落地声音有点儿重,怎么走路可以轻一点
微波炉里怎么弄枣茶怎么烤枣
肩袖吃什么药能好的快
春季如何预防过敏?
官坝村这个地址在什么地方,我要处理点事
四川农业大学都江堰校区-教职工活动中心这个
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?