FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Tdolphin y procesos almacenados... Error al volver...
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Tdolphin y procesos almacenados... Error al volver...
Posted: Mon Apr 11, 2016 12:19 AM
Buenas y Santas,

Me veo en un problema al ejecutar este fragmento de codigo, ya que cuando regresa de la llamada (CALL...) el programa hace un error en tiempo de ejecucion.
Mi procedimiento almacenado:
Code (fw): Select all Collapse
CREATE DEFINER=`usuario`@`localhost` PROCEDURE `guardarusuario`(
    in _usuario varchar(10),
    in _password varchar(10)
)
BEGIN
    declare iCK int;
    
    set @sql= concat('insert into tbusuario (usuario, password) values("', _usuario, '","', _password, '" )');
    prepare operacion from @sql;
    execute operacion;
    
    deallocate prepare operacion;
    set @sql = null;

END


y el codigo desde donde lo llamo:
Code (fw): Select all Collapse
METHOD guardarUsuario( vGets )
   LOCAL    cQuery, ;
                   oQry
   
   cQuery := "CALL guardarusuario('" + vGets[ 1 ] + "','" + vGets[ 2 ] + "')"
   oQry := ::oCnx:query( cQuery )
   ::oCnx:nextResult()

return (nil)


Una vez que el programa regresa del CALL y se produce el error verifico que el procedimiento se ejecuto correctamente, o sea,
los datos que le pase se INSERTARON en la tabla.

Que puede ser?

gracias.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Tdolphin y procesos almacenados... Error al volver...
Posted: Mon Apr 11, 2016 01:19 PM
Tenes que usar Execute en lugar de Query
Code (fw): Select all Collapse
cQuery := "CALL guardarusuario('" + vGets[ 1 ] + "','" + vGets[ 2 ] + "')"
   oQry := ::oCnx:Execute( cQuery )
   ::oCnx:nextResult()
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Tdolphin y procesos almacenados... Error al volver...
Posted: Tue Apr 12, 2016 02:21 AM

gracias!

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Continue the discussion