Atendiendo a todos los usuarios de Visual Basic, vamos a realizar el uso de Procedmientos Almacenados en SQL Server 2005y Visual Basic. El primer paso , es diseñar nuestro formulario.

Hay que considerar que este ejemplo es similar al que hice con Visual C#. Los elementos a utilizar son:

SQLConnection

SQL Command

Stored Procedured SQL SERVER 2005

Si ya tenemos el formulario, ahora hay que agregarle el código. Empezaremos por agregarle en el encabezado antes de Public Class Form1 esto:

Imports System.Data.SqlClient

Este es mi formulario de ejemplo, es una pantalla para dar de alta a los clientes, en ella solo voy a estar afectando a los campos clave, nombre, direccion y negocio. Hay que agregrar una nueva conexion a una base de datos declaramos esto agregandole la cadena de conexión.

Dim cnn As SqlConnection
Dim cmd As SqlCommand
Dim dr As DataRow
Dim conexion As String = “Data Source=.;Initial Catalog=dbDemo;Integrated Security=true”

Coloreo la linea de la conexion porque es importante recordar lo siguiente:

Data Source: Se debe indicar el nombre del servidor, si se tiene SQLSERVER Express, sera necesario darselo, si se cuenta con una versión superior, podemos utilizar unicamente el . (punto)

Initial Catalog: Debemos colocar el nombre de la base de datos a utilizar.

Botón Altas.

Primero hay que crear el procedimiento almacenado, en la venta de Server Explorer , hay que escoger la Base de Datos, y de ahi la carpeta de Stored Procedure, damos un clic con el boton derecho y escogemos Add New Stored Procedure

Aqui vamos a crear los procedimientos almacenados (stored procedure).

Esto hará que muestre una pantalla para editar el respectivo código en SQL, los siguientes procedimientos están compuestos de dos partes, la primera donde se declaran los parametros a utilziar, y en la segunda donde se realiza la transacción SQL.

El procedimiento de Insertar un registro queda de esta forma, recuerda que el nombre que le des al Store Proceudure será como se almacenará y se llamará desde tu programa en VS.

Stored Procedure Altas

ALTER PROCEDURE dbo.spAltaCliente

@prmId int,
@prmNombre nvarchar(50),
@prmDireccion nvarchar(50),
@prmNegocio nvarchar(50)

AS

INSERT INTO CLIENTES (ID,NOMBRE,DIRECCION,NEGOCIO)
VALUES (@prmId,@prmNombre,@prmDireccion,@prmNegocio)

RETURN

Código del Botón Altas

cnn = New SqlConnection(conexion)
cnn.Open();
cmd=New SqlCommand(“spAltaCliente”,cnn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add(“@prmClave”, SqlDbType.Int).Value = Convert.ToInt16(TextBox1.Text)
cmd.Parameters.Add(“@prmNombre”, SqlDbType.NVarChar).Value = TextBox2.Text
cmd.Parameters.Add(“@prmDireccion”, SqlDbType.NVarChar).Value = TextBox3.Text
cmd.Parameters.Add(“@prmNegocio”, SqlDbType.NVarChar).Value = TextBox4.Text
cmd.ExecuteNonQuery()
MessageBox.Show(“Cliente Activado”)
TextBox1.Text = “”
TextBox2.Text = “”
TextBox3.Text = “”
TextBox4.Text = “”

Stored Procedure Eliminar

CREATE PROCEDURE dbo.spEliminaCliente

@prmId int
AS
DELETE FROM CLIENTES WHERE ID=@prmId

RETURN

Código del Butón Eliminar

cnn = New SqlConnection(conexion)
cnn.Open()
cmd = New SqlCommand(“spEliminaCliente”, cnn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add(“@prmClave”, SqlDbType.Int).Value = Convert.ToInt16(TextBox1.Text)
cmd.ExecuteNonQuery()
MessageBox.Show(“Cliente ELIMINADO”)
TextBox1.Text = “”
TextBox2.Text = “”

Stored Procedure Modificar

CREATE PROCEDURE dbo.spModificaCliente

@prmId int,
@prmNombre nvarchar(40)
AS
UPDATE clientes SET nombre=@prmNombre WHERE Id=@prmId
RETURN

Código del Botón Modificar

cnn = New SqlConnection(conexion)
cnn.Open()
cmd = new SqlCommand(“spModificaCliente”, cnn)
cmd.CommandType = CommandType.StoredProcedure;
cmd.Parameters.Add(“@prmId”, SqlDbType.Int).Value = Convert.ToInt16(TextBox1.Text)
cmd.Parameters.Add(“@prmNombre”, SqlDbType.NVarChar).Value = TextBox2.Text
cmd.ExecuteNonQuery()
MessageBox.Show(“Cliente Modificado”)
textBox1.Text = “”
textBox2.Text = “”

Y les anexo el botón de consulta mas tarde.

Saludos!!!

About these ads