6 messages in com.mysql.lists.mysql-esProblema con los stored procedures en...| From | Sent On | Attachments |
|---|---|---|
| Martín G. M. | 13 Aug 2005 12:06 | |
| CLS Carlos Puero | 15 Aug 2005 06:45 | |
| Edwin Cruz | 15 Aug 2005 07:06 | |
| Martín G. M. | 18 Aug 2005 09:24 | |
| CLS Carlos Puero | 18 Aug 2005 09:30 | |
| Mark | 19 Aug 2005 08:32 |
| Subject: | Problema con los stored procedures en Visual Basic 6![]() |
|---|---|
| From: | Martín G. M. (epul...@hotmail.com) |
| Date: | 08/13/2005 12:06:30 PM |
| List: | com.mysql.lists.mysql-es |
Hola a todos.
Les escribo para solicitarles una ayuda. Resulta que estoy comenzando mi camino de aprendizaje con mysql, y estuve probando los stored procedure. La creacion de los mismos fue todo un exito como asi tambien la ejecucion desde el Mysql Query Browser. El problema surgio cuando comence a acceder desde Visual Basic 6. Alli pude ejecutar los stored procedure que insertan y modifican registros de las tablas, pero tuve problemas con los que devuelven registros.
En el mysql he creado el stored procedure "buscar" de la siguiente forma:
------------------------------ DELIMITER $$
DROP PROCEDURE IF EXISTS `baseprueba`.`buscar`$$ CREATE PROCEDURE `baseprueba`.`buscar`(pusuario varchar(20)) BEGIN SELECT * FROM Usuarios WHERE Usuario = pusuario; END$$ DELIMITER ;
------------------------------
El codigo que utilizo en visual basic es:
---------------------------------- Dim rs As New ADODB.Recordset Dim cnn As New ADODB.Connection
rs.CursorLocation = adUseClient
cnn.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; PORT=3306;" & _ "DATABASE=BasePrueba; USER=root; PASSWORD=xxx;OPTION=3;"
rs.Open "CALL buscar ('Juan')", cnn, adOpenStatic, adLockBatchOptimistic
--------------------------------
El problema que tengo es que cuando se ejecuta la linea rs.Open ... me aparece el siguiente mensaje:
Error '-2147217871 (80040e31' en tiempo de ejecucion : PROCEDURE baseprueba.buscar can't return a result set in the given context.
Alguien le ha pasado algo parecido o conoce como resolver este problema?
Desde ya muchas gracias.
_________________________________________________________________ Las mejores tiendas, los precios mas bajos, entregas en todo el mundo, YupiMSN Compras: http://latam.msn.com/compras/




