Visual Basic - parametro devuelve Nulo

Life is soft - evento anual de software empresarial
   
Vista:

parametro devuelve Nulo

Publicado por Juan Salazar (4 intervenciones) el 23/05/2009 00:39:11
Amigos :
Estoy en un problema grave, resulta que este modulo lee un archivo de texto : Cabecera y Detalle y lo graba en las tablas de la BD mediante un package graba en la cabecera y genera un Id (piderecterc) para poder grabar el detalle, pero me devuelve NULO.
Yo he probado el package por fuera y si funciona...

Por favor ayudenme es un caso de vida o muerte.

Saludos Juan

Function RegistraCabecera(registro As String)
Dim cmd As ADODB.Command
Dim lsNombre As String
Dim idrecterc As Integer
Dim exito As String
Dim ID As String
Set cmd = New ADODB.Command
With cmd
Set .ActiveConnection = cnn
.CommandType = adCmdStoredProc
.CommandText = "krecaudacion_terceros.pregistra_rtrecterc"
End With
Set par_cadena = cmd.CreateParameter("Nombre", adVarChar, adParamInput, 200, registro)
Set par_idrecterc = cmd.CreateParameter("pidrecterc", adNumeric, adParamOutput, 10, idrecterc)
Set par_exito = cmd.CreateParameter("pexito", adVarChar, adParamOutput, 5, exito)
cmd.Parameters.Append par_cadena
cmd.Parameters.Append par_idrecterc
cmd.Parameters.Append par_exito
cmd.Execute
If cmd.Parameters(2).Value = "TRUE" Then
exito = True
MsgBox "A"
ID = CStr(cmd.Parameters(1).Value)
MsgBox "B"
Else
exito = False
ID = 0
End If
idcabecera = ID
End Function
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:parametro devuelve Nulo

Publicado por smokalot (203 intervenciones) el 17/03/2010 13:51:06
Hola!

creo que el problema puede estar en el cuerpo del stored.

Suerte,

SMK
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar