Tdolphin y procesos almacenados... Error al volver...

Tdolphin y procesos almacenados... Error al volver...

Postby goosfancito » 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: Select all  Expand view

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: Select all  Expand view

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/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Re: Tdolphin y procesos almacenados... Error al volver...

Postby cmsoft » Mon Apr 11, 2016 1:19 pm

Tenes que usar Execute en lugar de Query
Code: Select all  Expand view
cQuery := "CALL guardarusuario('" + vGets[ 1 ] + "','" + vGets[ 2 ] + "')"
   oQry := ::oCnx:Execute( cQuery )
   ::oCnx:nextResult()
User avatar
cmsoft
 
Posts: 1288
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: Tdolphin y procesos almacenados... Error al volver...

Postby goosfancito » Tue Apr 12, 2016 2:21 am

gracias!
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot], Horizon and 90 guests