Acceso a datos oracle
Hola maestro, soy de Ecuador, quiero ver si me ayudas en el siguiente inconveniente, estoy haciendo una aplicativo con base de datos oracle y front-end visual basic, si programo con procedimientos no he tenido ningún inconveniente al accesar a los datos, se me presento el inconveniente al meter este procedimiento a un package de Oracle, no me funciona como si lo hiciera desde FORMS sabes alguna manera de accesar a esto...
El furnte del visual que estoy utilizando el el siguiente:
Function EjecutarSP(sp As String, Error As String, conn) As Boolean
On Error GoTo errorHandle
EjecutarSP = True
'Limpiar el log de errores
Err.Clear
Set cmd.ActiveConnection = conn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = sp
If NumParametros% > 0 Then
For i% = 0 To UBound(collParametros) - 1
cmd.Parameters(collParametros(i%).nombre) = collParametros(i%).valor
Next i%
End If
Set rst = cmd.Execute()
Exit Function
End Function
donde sp= {call paquete.procedimiento}
El furnte del visual que estoy utilizando el el siguiente:
Function EjecutarSP(sp As String, Error As String, conn) As Boolean
On Error GoTo errorHandle
EjecutarSP = True
'Limpiar el log de errores
Err.Clear
Set cmd.ActiveConnection = conn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = sp
If NumParametros% > 0 Then
For i% = 0 To UBound(collParametros) - 1
cmd.Parameters(collParametros(i%).nombre) = collParametros(i%).valor
Next i%
End If
Set rst = cmd.Execute()
Exit Function
End Function
donde sp= {call paquete.procedimiento}
1 respuesta
Respuesta de denciso
1