Store procedure en Visual Basic
Publicado por Eithel Solano (2 intervenciones) el 25/11/2006 18:03:04
Estimados, necesito desde un procedimiento almacenado en SQL 7 me retorne un valor a Visual Basic 6.
El procedimiento almacenado es:
---------------------
REATE PROCEDURE GETNroDoc
@tipocorr INTEGER,
@empresa INTEGER,
@serie CHAR(2),
@clavecorr CHAR(5),
@nrodoc NUMERIC OUTPUT
AS
DECLARE @correla NUMERIC
IF @tipocorr=1
BEGIN
SET @correla = ISNULL( (SELECT correlativo FROM correlativo WHERE empresa=@empresa AND serie=@serie AND clavecorr=@clavecorr) , 0 )
SELECT @nrodoc=ISNULL(MAX(nrodoc),0)+1 FROM documentos WHERE empresa=@empresa AND serie=@serie AND clavecorr=@clavecorr
IF @correla > @nrodoc
BEGIN
SET @nrodoc = @correla
END
END
ELSE
SELECT @nrodoc=ISNULL(MAX(nrodoc),0)+1 FROM documentos_pend WHERE empresa=@empresa AND serie=@serie AND clavecorr=@clavecorr
**************************************************************
GO
Mi sentencia en Visual Basic 6 es :
**************************************************************
Set rsfile = New ADODB.Recordset
rsfile.CursorType = adOpenDynamic
rsfile.ActiveConnection = cndbm
cndbm.BeginTrans
cndbm.Execute ("EXEC GETNroDoc")
Como recibo el valor @nrodoc a Visual basic ??? Si el procedimiento devuelve dos parametros como los recibo los dos.???
Favor enviarme la repuesta a mi correo [email protected]
Gracias
El procedimiento almacenado es:
---------------------
REATE PROCEDURE GETNroDoc
@tipocorr INTEGER,
@empresa INTEGER,
@serie CHAR(2),
@clavecorr CHAR(5),
@nrodoc NUMERIC OUTPUT
AS
DECLARE @correla NUMERIC
IF @tipocorr=1
BEGIN
SET @correla = ISNULL( (SELECT correlativo FROM correlativo WHERE empresa=@empresa AND serie=@serie AND clavecorr=@clavecorr) , 0 )
SELECT @nrodoc=ISNULL(MAX(nrodoc),0)+1 FROM documentos WHERE empresa=@empresa AND serie=@serie AND clavecorr=@clavecorr
IF @correla > @nrodoc
BEGIN
SET @nrodoc = @correla
END
END
ELSE
SELECT @nrodoc=ISNULL(MAX(nrodoc),0)+1 FROM documentos_pend WHERE empresa=@empresa AND serie=@serie AND clavecorr=@clavecorr
**************************************************************
GO
Mi sentencia en Visual Basic 6 es :
**************************************************************
Set rsfile = New ADODB.Recordset
rsfile.CursorType = adOpenDynamic
rsfile.ActiveConnection = cndbm
cndbm.BeginTrans
cndbm.Execute ("EXEC GETNroDoc")
Como recibo el valor @nrodoc a Visual basic ??? Si el procedimiento devuelve dos parametros como los recibo los dos.???
Favor enviarme la repuesta a mi correo [email protected]
Gracias
Valora esta pregunta


0