Seleccionar página

Estuve Buscando un ejemplo como el que voy a dar, por la web y no encontre nada completo.

Este ejemplo es una mezcla de esos ejemplos mas lo que he armado yo, ha quedado funcionando.
para conectar a una base de datos Microsoft SQL Server 2008 desde VB.NET para ejecutar un procedimiento almacenado lo primero que hacemos es crear una base de datos, dentro de esa BD una tabla que va a quedar asi:

tabla-baseClave primaria, con la especificación de identidad activada.

Posteriormente creamos nuestro procedimiento almacenado, para insertar.
Como dato importante, puedo decir que es mucho mejor crear un procedimiento almacenado y llamarlo, a pasar un sql del tipo «insert into … » ya que las buenas practicas dicen que debe ser hecho con SP’s y aparte es mucho mas seguro.

Nuestro SP:

USE [Mutual]
GO
/****** Object: StoredProcedure [dbo].[InsertUsers] Script Date: 06/11/2013 01:56:23 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER Procedure [dbo].[InsertUsers] 
@alias varchar(20), @Alta bit, @credserv bit, @InforList bit, @Contabilidad bit, @Buscar bit, @AdmUser bit, @contraseña varchar(10)
as
begin
insert into Usuarios 
values (@alias, @Alta, @credserv, @InforList, @Contabilidad, @Buscar, @AdmUser, @contraseña)
end

una vez creado, vamos a visual studio.
Creamos una interfaz con 2 textbox, 6 checkbox y un boton.

vbaguser

 

El codigo de esto es:

Private Sub btnAltaUser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAltaUser.Click
 Dim conexion As New SqlConnection("Data Source=MATI-PC\SQLEXPRESS;Initial Catalog=MUTUAL;Integrated Security=True")
 Dim command As New SqlCommand("SP_InsertUsers", conexion)
 command.CommandType = CommandType.StoredProcedure
 command.Parameters.AddWithValue("@alias", txtalias.Text)
 command.Parameters.AddWithValue("@Alta", chkalta.CheckState)
 command.Parameters.AddWithValue("@credserv", chkcredser.CheckState)
 command.Parameters.AddWithValue("@inforlist", chkinforlis.CheckState)
 command.Parameters.AddWithValue("@contabilidad", chkcontabilidad.CheckState)
 command.Parameters.AddWithValue("@buscar", chkbuscar.CheckState)
 command.Parameters.AddWithValue("@admuser", chkadmuser.CheckState)
 command.Parameters.AddWithValue("@contraseña", txtpass.Text)
 Try
 conexion.Open()
 command.ExecuteNonQuery()
 Catch ex As Exception
 MessageBox.Show(ex.Message)
 Finally
 conexion.Dispose()
 command.Dispose()
 MsgBox("Usuario Registrado Correctamente", vbInformation, "Sistema")
 End Try
 End Sub
End Class

Si alguien necesita que explique el codigo, comenten y con gusto le explico.
Ya con eso tenemos nuestro sistema funcionando.

ACTUALIZACION DICIEMBRE 2015:

he realizado un video tutorial de como consumir un procedimiento almacenado desde .NET les recomiendo que lo vean y que se suscriban a mi canal.
Sin mas aqui les dejo EL VIDEO

A %d blogueros les gusta esto: