RE:procedimientos almacenados en Oracle
Publicado por
pablo (1 intervención) el 07/06/2007 21:44:55
Espero que te sirva el siguiente codigo
Dim cadena As String
cadena = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=impmprod;Data Source=EMPRESAL;user=PMAR;password=IACC"
Dim oConexion As New ADODB.Connection
Dim oCommand As New ADODB.Command
oConexion.Open (cadena)
oCommand.ActiveConnection = oConexion
oCommand.CommandType = adCmdStoredProc
oCommand.CommandText = "NOMBRE_PROCEDIMIENTO"
''new
Dim oParameter As New ADODB.Parameter
oParameter.Name = "codigo"
oParameter.Type = adInteger
oParameter.Direction = adParamInput
oParameter.Value = 86
oCommand.Parameters.Append oParameter
Dim oParameter2 As New ADODB.Parameter
oParameter2.Name = "v"
oParameter2.Type = adInteger
oParameter2.Direction = adParamOutput
oCommand.Parameters.Append oParameter2
Dim rdo As Variant
oCommand.Execute
MsgBox "se ejecuta con exito"
rdo = oCommand.Parameters("v").Value
'lngENTC_PESADA = .Parameters("p_ENTC_PESADA").Value
MsgBox rdo