Stored Procedure y VB6

Hola, yo utilizo el siguiente codigo desde vb6 para verificar. fijate en la
variable @Retorno

Private Sub ActualizarAlumno()
Dim Cmd As ADODB.Command
Set Cmd = New ADODB.Command
With Cmd
.ActiveConnection = Cnx
.CommandText = "pa_actualizar_alumno"
.CommandType = adCmdStoredProc
.Parameters.Item(1) = vNroAlu
.Parameters.Item(2) = CmbTipoDoc.ItemData(CmbTipoDoc.ListIndex)
.Parameters.Item(3) = CDbl(TxtNroDoc.Text)
.Parameters.Item(4) = TxtApe.Text
.Parameters.Item(5) = TxtNom.Text
.Parameters.Item(6) = ControlNull(TxtLegajo)
If OptMasc(0).Value = True Then
.Parameters.Item(7) = "M"
Else
.Parameters.Item(7) = "F"
End If
.Parameters.Item(8) = DtpFechaNacAlu.Value
.Parameters.Item(9) CmbLocalidades.ItemData(CmbLocalidades.ListIndex)
.Parameters.Item(10) = CmbLugNac.Text
.Parameters.Item(11) = ControlNull(TxtLibroMatriz)
.Parameters.Item(12) = ControlNull(TxtFolio)
.Parameters.Item(13) = ControlNull(TxtCertIng)
.Parameters.Item(14) = ControlNull(TxtPMoT)
.Parameters.Item(15) = ControlNull(TxtDir)
.Parameters.Item(16) = ControlNull(TxtTel)
.Parameters.Item(17) = ControlNull(TxtEmail)
.Parameters.Item(18) = ControlNull(TxtPiso)
.Parameters.Item(19) = ControlNull(TxtDpto)
.Execute
If .Parameters("@Retorno").Value > 0 Then
MsgBox "El tipo y número de documento ingresado ya pertenece a
un Alumno, verifique", vbCritical
vCodigoRepetido = True
Else
vCodigoRepetido = False
End If
.Parameters.Refresh
End With
Set Cmd = Nothing
End Sub

"Aprendiz de Informatico"
escribió en el mensaje
news:

hola ,pregunto aca porque en el lugar de vb6 nadie me da pelota y

necesitaria

saberlo rapido
el tema es asi:

hice un stored procedure en sql server 2000, anda perfecto, lo probe
desde vb6 y tambien lo ejecuta bien, ahora el problema es que el stored
procedure retorna un valor para indicar si se ejecuto bien o no, y queria
saber como hacer para recibir ese valor en el vb6 y guardarlo en una

variable

para mostrar el mensaje en caso de que devuelva un error.


desde ya gracias :-)


pd. el valor este de retorno lo envio con "return 0" por ejemplo si el sp

se

completo bien... por las dudas aclaro...

Using Return Code and Output Parameters for Stored Procedure
http://msdn.microsoft.com/library/d...2_525v.asp


AMB

"Aprendiz de Informatico" wrote:

hola ,pregunto aca porque en el lugar de vb6 nadie me da pelota y necesitaria
saberlo rapido
el tema es asi:

hice un stored procedure en sql server 2000, anda perfecto, lo probe
desde vb6 y tambien lo ejecuta bien, ahora el problema es que el stored
procedure retorna un valor para indicar si se ejecuto bien o no, y queria
saber como hacer para recibir ese valor en el vb6 y guardarlo en una variable
para mostrar el mensaje en caso de que devuelva un error.


desde ya gracias :-)


pd. el valor este de retorno lo envio con "return 0" por ejemplo si el sp se
completo bien... por las dudas aclaro...