MyClasses.pas - Error !

[kamrava]

Hello there

when i wanna execute MyStoredProce , this error is showing :

...
(D:\Project\Delphi\Dac\MySql\Source\MyClasses.pas, line 2810)

I'm using : Delphi XE2 and MyDac 7.0.2
please help me.I need it

Thank You

Regards
Hamed Kamrava

[AndreyZ]

Hello,

Please specify the exact error message that occurs (the message line before the '(D:\Project\Delphi\Dac\MySql\Source\MyClasses.pas, line 2810)' line). Also please specify the script to create your stored procedure.

[kamrava]

Tnx for you'r reply.

it's error shot :


and this is stored proc code in mysql :

Code: Select all

DELIMITER $$

USE `bimarestan`$$

DROP PROCEDURE IF EXISTS `save_user2`$$

CREATE DEFINER=`root`@`localhost` PROCEDURE `save_user2`(IN $_id VARCHAR(50),IN $_name VARCHAR(50),IN $_lname VARCHAR(50))
BEGIN
IF LTRIM(RTRIM($_id))<>'' THEN
 BEGIN
  IF NOT EXISTS(SELECT * FROM user1 WHERE id=$_id) THEN
    INSERT INTO user1 VALUES($_id,$_name,$_lname);
     END IF;
    END; 
END IF;
END$$

DELIMITER ;

and this is Delphi code :

Code: Select all

sp_save := TMyStoredProc.Create(nil);
sp_save.Connection := con;
sp_save.Active := False;
sp_save.StoredProcName := 'save_user2';
sp_save.ParamByName('$_id').Value := '100';
sp_save.ParamByName('$_name').Value := 'hamed';
sp_save.ParamByName('$_lname').Value := 'mofagh shodim';
sp_save.ExecProc;

Thank You

[kamrava]

Please help me faster guys:(

I have to do this project for 2 days later .
I'm waiting for you'r answers.
Regards

Hamed Kamrava

[AndreyZ]

This problem is caused by the '$' symbol in the names of your stored procedure parameters. MyDAC treats this symbol as a MySQL special character. To avoid the problem, you should remove the '$' symbol from the names of your stored procedure parameters. For example:

Code: Select all

DELIMITER $$

USE `bimarestan`$$

DROP PROCEDURE IF EXISTS `save_user2`$$

CREATE DEFINER=`root`@`localhost` PROCEDURE `save_user2`(IN _id VARCHAR(50),IN _name VARCHAR(50),IN _lname VARCHAR(50))
BEGIN
IF LTRIM(RTRIM(_id))<>'' THEN
 BEGIN
  IF NOT EXISTS(SELECT * FROM user1 WHERE id=_id) THEN
    INSERT INTO user1 VALUES(_id,_name,_lname);
     END IF;
    END; 
END IF;
END$$

DELIMITER ;

Code: Select all

sp_save := TMyStoredProc.Create(nil);
sp_save.Connection := con;
sp_save.Active := False;
sp_save.StoredProcName := 'save_user2';
sp_save.ParamByName('_id').Value := '100';
sp_save.ParamByName('_name').Value := 'hamed';
sp_save.ParamByName('_lname').Value := 'mofagh shodim';
sp_save.ExecProc;

[kamrava]

Ow!
Yes that's right.
Thank you so much.

[AndreyZ]

Feel free to contact us if you have any further questions about MyDAC.