Forums Últimos mensajes - Powered by IBM
 

Stored Procedure y VB6

05/09/2005 - 18:08 por Aprendiz de Informatico | Informe spam
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...
 

Leer las respuestas

#1 Matías
05/09/2005 - 19:32 | Informe spam
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...

Preguntas similares