Foros del Web » Programación para mayores de 30 ;) » .NET »

Algun codigo de como trabajar VB.net con SP de Sql Severver

Estas en el tema de Algun codigo de como trabajar VB.net con SP de Sql Severver en el foro de .NET en Foros del Web. Hola a todo el mundillo queria ser tan patudo si alguien tuviera un codigo como trabajar con VB.net y Procedimientos Almacenados de SQL Server solo ...
  #1 (permalink)  
Antiguo 29/11/2006, 19:41
 
Fecha de Ingreso: marzo-2003
Mensajes: 524
Antigüedad: 21 años, 2 meses
Puntos: 2
Algun codigo de como trabajar VB.net con SP de Sql Severver

Hola a todo el mundillo queria ser tan patudo si alguien tuviera un codigo como trabajar con VB.net y Procedimientos Almacenados de SQL Server solo pido eso, no quiero molestar en preguntar muchas cosas.

Disculpen la molestia


Saluda Atte Ud
Escorpion_Negro
  #2 (permalink)  
Antiguo 30/11/2006, 10:16
Avatar de erick_arcini  
Fecha de Ingreso: julio-2005
Ubicación: Jaltenco / DF
Mensajes: 1.723
Antigüedad: 18 años, 10 meses
Puntos: 50
De acuerdo espero sirva

Tengo este codigo, el nombre del procedimiento almacenado, la cadena de conexion y los nombres de los values para el SP se encuentran en el web.config, que es eso de ConfigurationSettings, lo demas es cosa sencillita

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)
command.Parameters(ConfigurationSettings.AppSettin gs("varinc")).Value = Nlicencia
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'dato que se va a devolver
__________________
Mejoremos nuestro país, ayudemos al planeta... próximamente.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:53.