Trabajar con SP desde VB6

[DongatoAR]

En una aplicacion que estoy desarrollando en VB6, necesito ejecutar un SP que valida al usuario y devuelve un valor y debo tomarlo desde la aplicacion.

el SP es el siguiente (perdon, pero no tomo la identacion):

CREATE PROCEDURE spLogin (@usuario VARCHAR(20),@clave VARCHAR(20), @resultado INT OUTPUT) AS


DECLARE
@NomUsuario VARCHAR(30),
@IdUsuario INT,
@NroIntentos INT,
@bloqueado INT

BEGIN TRANSACTION chklogin

SELECT @bloqueado=bloqueado, @IdUsuario=IdUsuario, @NomUsuario=NomUsuario, @resultado=pwdcompare(@clave, clave, 0) FROM tUsuarios WHERE Nick LIKE @Usuario



IF @@ROWCOUNT > 0
BEGIN
IF @bloqueado=0
BEGIN
IF @resultado=0
BEGIN
INSERT INTO tUsuariosAuditoria (idusuario) VALUES (@idUsuario)
SELECT @NroIntentos=COUNT(idUsuario) FROM tUsuariosAuditoria WHERE idUsuario=@idUsuario
IF @NroIntentos=5
BEGIN
SET @resultado=2
@idUsuario as idusuario, @nomusuario as nomusuario
UPDATE tUsuarios SET bloqueado=1 WHERE idUsuario=@idUsuario


END
END
ELSE
BEGIN
SET @resultado=1
DELETE FROM tUsuariosAuditoria WHERE idUsuario=@idUsuario

END
END
ELSE
BEGIN
SET @resultado=3
END
END
ELSE
BEGIN
SET @resultado=4
END

IF @@ERROR=0
BEGIN
COMMIT TRANSACTION chklogin
END
ELSE
BEGIN
ROLLBACK TRANSACTION chklogin
SET @resultado=0
END

desde VB6 como llamo al SP y como tomo el valor que me devuelve?

Muchas gracias

[Sir Matrix]

una posibilidad es generar un select al final del SP:

Select @resultado

y lo recuperas en VB mediante un recordset

saludos

[DongatoAR]

Gracias....eso es lo que estabamos haciendo, pero a veces no funciona....
saludos

[Sir Matrix]

mm.. tal vez es por los mensajes de los query. Prueba colocar al principio del SP:
SET NOCOUNT ON
SET ANSI_WARNINGS OFF


de manera que no exista nada más que pueda retornar tu SP más que el "Select @resultado".

Si hay algun mensaje, u otro select más arriba, el VB tomará el primero de ellos y el otro lo ignorará.

Saludos

[Andres95]

Iniciado por DongatoAR

desde VB6 como llamo al SP y como tomo el valor que me devuelve?

Muchas gracias

Tienes que definir un comando de ADO por ejemplo. y agregarle los parametros correspondientes. Y al de salida lo defines como adParamOutput (salida) para traer el valor.

Yo prefiero el uso de los parametros de salida al recordset....

Aunque supongo que este tema corresponde al foro de VB....ahi te podran dar el detalle...

Saludos!

[DongatoAR]

Gracias a todos, pero ya lo habia resuelto de la manera que plantea SIR MATRIX, es decir, utilizando el SET NOCOUNT ON.

Gracias

[iislas]

La 2a linea, despues del AS, debe ser exactamente SET NOCOUNT ON

AS
BEGIN
SET NOCOUNT ON
......
......
......
END