25/10/2006, 16:57
|
| | | Fecha de Ingreso: julio-2005 Ubicación: Jaltenco / DF
Mensajes: 1.723
Antigüedad: 19 años, 4 meses Puntos: 50 | |
Que tal rody, yo tengo un codigo parecido a lo que quieres, pero el unico dilema esta en que lo tengo para SQLS, pero no hay problema con cambiarlo a OLEDB u ORACLE, pero te pego el codigo, esto es una funcion en la cual tu introduces el nombre del procedimiento, el valor de entrada y te da un valor de salida, que es el return de la funcion
Dim Cn As New SqlConnection(ConfigurationSettings.AppSettings("i nfraccionString"))
Dim infraccion As String
Dim command As New SqlCommand(ConfigurationSettings.AppSettings("Nomb reProcedimientoc"), Cn) command.CommandType = CommandType.StoredProcedure
command.Parameters.Add(ConfigurationSettings.AppSe ttings("varinc"), SqlDbType.NVarChar, 50)'variable de entrada
command.Parameters(ConfigurationSettings.AppSettin gs("varinc")).Value = Nlicencia'<-el valor de entrada de un txt
command.Parameters.Add(ConfigurationSettings.AppSe ttings("varoutc"), SqlDbType.VarChar)
command.Parameters(ConfigurationSettings.AppSettin gs("varoutc")).Direction = ParameterDirection.Output
command.Parameters(ConfigurationSettings.AppSettin gs("varoutc")).Size = 100
Try
Cn.Open()
command.ExecuteNonQuery()
infraccion = command.Parameters(ConfigurationSettings.AppSettin gs("varoutc")).Value
Catch ex As Exception
Finally
If Not IsNothing(Cn) Then
Cn.Close()
End If
End Try
Return infraccion
End If
__________________ Mejoremos nuestro país, ayudemos al planeta... próximamente. |