La Web del Programador: Comunidad de Programadores
 
    Pregunta:  42012 - ¿CÓMO LLAMO A UN PROCEDIMIENTO ALMACENADO EN VB.NET?
Autor:  Batman Bat
¿Cómo llamo (ejecuto) un Procedimiento Almacenado en VB.NET?

  Respuesta:  Pablo Riojas
Mejor usa el SQLHELPER de microsoft de paso te acostumbras al ORDEN y no tener objetos regados :D (puedes bajar el HELPER de la web de microsoft o pon en GOOGLE: SQLHELPER)

Te dejo este ejemplo:

Public Function registro(ByVal cod as string, byval nom as string) As Integer

Dim oSqlParameter() As SqlParameter = New SqlParameter(1) {}

oSqlParameter(0) = New SqlParameter("@CODIGO", SqlDbType.Char)
oSqlParameter(0).Value = cod

oSqlParameter(1) = New SqlParameter("@NOMBRE", SqlDbType.varChar)
oSqlParameter(1).Value = nom

Try
registro = CInt(SqlHelper.ExecuteNonQuery("TU_CONEXION", CommandType.StoredProcedure, "TU_SP", oSqlParameter))

Return registro
Catch ex As Exception
Throw ex
End Try

End Function

PARA USARLO:

If registro("E001", "PEPIN") = 1 Then
MsgBox("Registrado", MsgBoxStyle.Information, "XD")
Else
MsgBox("Error.", MsgBoxStyle.Information, ":(")
End If

* De esta forma puedes usar un SP, si tienes muchos parametros que enviar usa un arreglo o clases (ENTIDADES)

  Respuesta:  FER ARM
dim ejecuta_sp as new OleDb.OledbCommand

ejecuta_sp.Connection = "tu conexión"
ejecuta.CommandText = "begin nombre_store; end;"
ejecuta_sp.ExecuteNonQuery()

  Respuesta:  Carlos Urrutia
Primero declaras la variable tipo string para mandar la sentencia SQL

dim SQL as string

SQL = "exec sp_ALTA_Vendendores"

donde sp_alta_vendedores es el nombre del procedimiento almacenado.
luego le mandas los parametros al procedimiento almacenado .

que seria
SQL = SQL & "@codigo_vendedor=" & codigo_vendedor

  Respuesta:  Eduardo Cantillo Fernandez
Al Comienzo del Archivo .Vb de tu Formulario Agrega esta Linea
Imports System.Data.SqlClient

Para Poder Ejecutar El Procedimiento necesitas un objeto SqlConnection y un SqlCommand

Dim Conexion As SqlConnection = New SqlConnection("Aqui Escribes
la Cadena de Conexion")

Dim Command As SqlCommand = New SqlCommand("Nombre del Procedimiento",El objeto SqlConnection o "La Cadena de conexion")

Command.CommandType = CommandType.StoredProcedure

Si El Procedimiento Tiene Parametros
Dim SqlP As SqlParameter
Sqlp = Command.Parameters.Add("Nombre del Parametro",Valor)
Realizarlo por Cada Parametro del Procedimiento
Abrir la Conexion
Conexion.Oen
Ejecutar el Procedimiento
Si Este no devuelve un conjunto de filas "Orden Select"
Command.ExecuteNonQuery
De lo Contrario
Declara un SqlDataReader
Dim Datar as SqlDataReader
Datar = Command.ExecuteReader
Cierras el SqlDataReader cuando no lo necesites
DataR.Close
Cerrar la Conexion
Conexion.Close

Si no Agregas la Clausula Imports debes Anteceder SQLCLIENT.
a todas las Declaraciones Que te he Dicho

SUERTE...