ejecutar Store Procedure desde Visual Basic
alguien me podria indicar como ejecuto un store procedure en oracle.
Lo que pasa es que necesito ejecutarlo desde visual basic y no funciona y al tratar ejecutarlo desde sql plus tampoco, por lo tanto es la ejecucion del sp.
Son primeros pasos con oracle y no se como realizarlo, lo que si estoy seguro es que el SP estaba bien realizado -claro desde de algunas correciones-.
ejemplo de laejecucion que estoy realizando
EXEC SP_ejecuta ('PM1H74E29C', '01','01','88',TO_DATE('10/16/2004'))
Gracias.
Lo que pasa es que necesito ejecutarlo desde visual basic y no funciona y al tratar ejecutarlo desde sql plus tampoco, por lo tanto es la ejecucion del sp.
Son primeros pasos con oracle y no se como realizarlo, lo que si estoy seguro es que el SP estaba bien realizado -claro desde de algunas correciones-.
ejemplo de laejecucion que estoy realizando
EXEC SP_ejecuta ('PM1H74E29C', '01','01','88',TO_DATE('10/16/2004'))
Gracias.
D贸s parametros de entrada y uno de salida. Espero que te sirva de ayuda el siguiente c贸digo:
' Realiza la llamada al package PKG_XXX.XXX
sSQL = "{ ? = call PKG_XXX.XXX(?,?,?) }"
Set qDef = cntORACLE.CreateQueryDef("", sSQL)
' Paso de par谩metros
qDef.Parameters(0).Direction = dbParamReturnValue
qDef.Parameters(1).Direction = dbParamInput
qDef.Parameters(1).Type = dbLong
qDef.Parameters(1).Value = nParametro
qDef.Parameters(2).Direction = dbParamInput
qDef.Parameters(2).Type = dbText
qDef.Parameters(2).Value = sParametro
qDef.Parameters(3).Direction = dbParamOutput
qDef.Parameters(3).Type = dbText
qDef.Execute
If Not IsNull(qDef.Parameters(3).Value) Then
sOutErr = qDef.Parameters(3).Value
Else
sOutErr = ""
End If
Set qDef = Nothing
' Realiza la llamada al package PKG_XXX.XXX
sSQL = "{ ? = call PKG_XXX.XXX(?,?,?) }"
Set qDef = cntORACLE.CreateQueryDef("", sSQL)
' Paso de par谩metros
qDef.Parameters(0).Direction = dbParamReturnValue
qDef.Parameters(1).Direction = dbParamInput
qDef.Parameters(1).Type = dbLong
qDef.Parameters(1).Value = nParametro
qDef.Parameters(2).Direction = dbParamInput
qDef.Parameters(2).Type = dbText
qDef.Parameters(2).Value = sParametro
qDef.Parameters(3).Direction = dbParamOutput
qDef.Parameters(3).Type = dbText
qDef.Execute
If Not IsNull(qDef.Parameters(3).Value) Then
sOutErr = qDef.Parameters(3).Value
Else
sOutErr = ""
End If
Set qDef = Nothing
