请教delphi 调用mysql存储过程的问题

[yxluocn]

本人用delphi7 的TADOStoredProc调用mysql 的存储过程。在存储过程不需要传入参数的时候，能顺利获取到返回的数据集。
存储过程代码如下：
CREATE DEFINER=`root`@`localhost` PROCEDURE `test`()
begin
DECLARE GoodsID int default 0;
DECLARE no_more_products, quantity_in_stock INT DEFAULT 0;
DECLARE cur_product CURSOR FOR select distinct goods_id from ecs_order_goods;
DECLARE CONTINUE HANDLER FOR NOT FOUND SET no_more_products=1;

drop table if exists tmptable;
create TEMPORARY table tmptable
(
ID INT(11) NOT NULL AUTO_INCREMENT,
strInfo varchar(1000),
strTotal varchar(500),
primary key (ID)
);

OPEN cur_product;
fetch cur_product into GoodsID;

REPEAT
INSERT INTO tmptable(strInfo) VALUES('123');

fetch cur_product into GoodsID;
UNTIL no_more_products=1
END REPEAT;
CLOSE cur_product;

SELECT * FROM tmptable;
DROP TABLE tmptable;
end；

delphi调用代码如下：
with spExec do
begin
Close;
ProcedureName:='ecs_test';
Parameters.Clear;
Prepared := false;
//Parameters.CreateParameter('iUserID', ftInteger, pdInput, 4, iRow);
prepared:=true;
Open;
....
end；

然后我在过程声明中添加传入参数，其它内容不变。
CREATE DEFINER=`root`@`localhost` PROCEDURE `test`(in iUserID int)
begin
... /* 所有的代码不变。 */
end;

delphi调用代码改为如下：
iRow ：= 1；
with spExec do
begin
Close;
ProcedureName:='test';
Parameters.Clear;
Prepared := false;
Parameters.CreateParameter('iUserID', ftInteger, pdInput, 4, iRow);
prepared:=true;
Open;
....
end；
结果就执行报错，如图所示：


如果此时把存储过程的内容删除，随便添加一条 select语句返回一个数据集，又没有问题，说明参数传入应该没错。

请诸位达人指点迷津，谢谢！

[yxluocn]

不行啊~

[BlueStorm]

ado已经是很古老的东西了，建议改用UniDAC。我发现论坛上还有很多人还在用BDE、ADO这类古董，实在令人困惑。

[BlueStorm]

  with spExec do
  begin
    Close;
    ProcedureName:='test';
    Parameters.Clear;
    Parameters.CreateParameter('iUserID', ftInteger, pdInput, 4, iRow);
    Open;
  end;

[日立奔腾浪潮微软松下联想]

惯性而已，估计大部分开发者只用了Delphi 1/10不到的能力而已...

[BlueStorm]

  //也可以这样写
  with spExec do
  begin
    Close;
    ProcedureName:='TestProc';
    Parameters.Refresh;
    Parameters.ParamByName('@iUserID').Value := iRow;
    Open;
  end;

[BlueStorm]

with spExec do
begin
      Close;
      ProcedureName:='test';
      Prepare;
      ParamByName('iUserID').Value := 4; //4还是iRow？不太明白
      //Parameters.CreateParameter('iUserID', ftInteger, pdInput, 4, iRow);
      Open;
     ....
end；

[BlueStorm]

  with spExec do
  begin
    Close;
    ProcedureName:='test';
    Prepared := True;
    Parameters.ParamByName('iUserID').Value := iRow;
    //Parameters.CreateParameter('iUserID', ftInteger, pdInput, 4, iRow);
    Open;
  end;

[秋天之落叶]

还是喜欢一些大众的东西，或者delphi自带的东西，否则，一是出了问题无从查找解决方案，二是一旦升级delphi而第三方插件没有跟上，那可就哭死在厕所了，哈哈

[BlueStorm]

可以在FireDAC组件（例如FDQuery）的基础上写自己的类，并根据这个类定义自己所需的接口(interface)，程序存取数据库只通过这个接口进行。 自己定义的类和接口(interface)写在一个单元里面，如果要把FireDAC换成ADO，把那个单元里面的类换成在ADO基础上写的类就可以了。 这样的话，不管你的程序多大、有多少地方涉及数据库访问，也不管是换成UniDAC、ADO、DBExpress或SDAC等，所需的工作量就很少了。

[BlueStorm]

数据存取组件开发公司对各种数据库存取方式做了抽象化，我也可以对各种不同的存取组件做进一步的抽象化。

[lyhoo163]

引用 14 楼 BlueStorm 的回复:

可以在FireDAC组件（例如FDQuery）的基础上写自己的类，并根据这个类定义自己所需的接口(interface)，程序存取数据库只通过这个接口进行。
自己定义的类和接口(interface)写在一个单元里面，如果要把FireDAC换成ADO，把那个单元里面的类换成在ADO基础上写的类就可以了。
这样的话，不管你的程序多大、有多少地方涉及数据库访问，也不管是换成UniDAC、ADO、DBExpress或SDAC等，所需的工作量就很少了。

支持，顶一个。

[秋天之落叶]

引用 5 楼 BlueStorm 的回复:

ado已经是很古老的东西了，建议改用UniDAC。我发现论坛上还有很多人还在用BDE、ADO这类古董，实在令人困惑。

应用不深的人，比如我这样的，也就是写几个简单的应用，使部门工作起来简便一些，反而是习惯了简单的ADO+MSSQL，太深了反而影响开发了。
这几天尝试了一下fircedac，基本上和ADO差不多，但是很多不一样的地方就抓瞎了，网上的教程也很少，果断的放弃了，哈哈

[秋天之落叶]

另外关键是我几乎不用三层的架构，甚至连存储都用不着，就是一个连接数据库、读写数据库、出个表格、备份一下而已，哈哈

[BlueStorm]

想简单的话可以用sdac(用于sql server)和MyDac(用于MySql），可以直连数据库，根本不需要驱动，从使用的角度来讲也比bde或ado更简单。 其实UniDAC也是比较简单的，而且能连接几乎所有类型的数据库，而且其中有不少数据库是能通过tcpip直连的(不需要驱动)，如oracle、sql server、MySQL、DBF等。 我也觉得FireDAC似乎弄得太复杂了，不过熟悉了以后也没有太大的问题。

[BlueStorm]

其实Delphi还提供了另外一种连接连接数据库的方式：DBExpress，用起来也算比较简单，但麻烦之处是：dbx驱动（dll文件）要随程序一起发布，不能把它编译连接在exe文件里。

[日立奔腾浪潮微软松下联想]

EMB不把FireDAC做成全能是为了给第三方组件留出一定的生存空间，不是技术问题