来吧,来吧。快来吧。

Rose1234567890 2002-10-15 08:57:23
这样的存储过程。
CREATE PROCEDURE www
@sun1_1 char(10),
@sun2_1 char(10)
AS
insert into sun
(sun1,sun2)
values
(@sun1_1,@sun2_1)
GO
这样的代码。
procedure TForm1.Button1Click(Sender: TObject);
begin
storedproc1.DatabaseName:='human';
storedproc1.StoredProcName:='www';
storedproc1.Active:=true;
storedproc1.Close;
storedproc1.Prepare;
storedproc1.ParamByName('sun1_1').AsString:=edit1.Text;
storedproc1.ParamByName('sun2_1').AsString:=edit2.Text;
storedproc1.ExecProc;
storedproc1.Open;
datasource1.DataSet:=storedproc1;
dbgrid1.DataSource:=datasource1;
end;
这样的代码错在哪里能告诉我吗。

...全文
13 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
Drate 2002-10-15
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender: TObject);
begin
storedproc1.DatabaseName:='human';
storedproc1.StoredProcName:='www';
storedproc1.Active:=true;
storedproc1.Close;
storedproc1.Prepare;
storedproc1.ParamByName('sun1_1').AsString:=edit1.Text;//这里错了
storedproc1.ParamByName('sun2_1').AsString:=edit2.Text;//还有这里

storedproc1.ParamByName('sun1_1').Value:=edit1.text;
storedproc1.ParamByName('sun2_1').Value:=edit2.text;


storedproc1.ExecProc;
storedproc1.Open;
datasource1.DataSet:=storedproc1;
dbgrid1.DataSource:=datasource1;
end;

5,392

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧