Download TALLER DE PROGRAMACIÓN DISTRIBUIDA IESTP MANUEL

TALLER DE PROGRAMACIÓN DISTRIBUIDA
IESTP MANUEL SEOANE CORRALES
CONEXIÓN A BASE DE DATOS SQL SERVER – VISUAL BASIC.NET
En esta sesión realizaremos una conexión hacia una base de datos creada en SQL, para ello es
necesario en la presente actividad tener las aplicaciones MICROSOFT SQL Server 2012
Management Studio y Visual Studio 2012 Ultimate.
Realizaremos los siguientes pasos:
1. En primer lugar Ingresaremos al programa SQL Server para crear una base de datos (Nos
daremos cuenta que al ingresar deberemos conectarnos al servidor de la PC:
* En este caso mi servidor tiene de
nombre OMARCITOS, el cual es asignado
por Mi ordenador, debes saber el nombre
de tu servidor.
2.
Dentro de nuestro SQL procederemos a crear una Base de datos la cual utilizaremos ya
desde el programa Visual Basic.Net.
Creamos una BD con el nombre Sistemas y
una tabla Users.
CREATE DATABASE SISTEMAS
GO
USE SISTEMAS
GO
CREATE TABLE USERS(
DNI INT,
CLAVE VARCHAR(30))
GO
3. En este caso vamos a utilizar procedimientos almacenados para poder realizar
operaciones dentro de la base de datos y del Visual Basic.net
Creamos un P.A. con el nombre
INGRESARUSERS que permita ingresar CREATE PROCEDURE INGRESARUSERS
(
registros a la tabla USERS
@DNI INT,
@CLAVE VARCHAR(30)
)
AS
BEGIN
INSERT INTO USERS
(DNI,CLAVE)
VALUES (@DNI,@CLAVE)
END
4. Ingresaremos dos registros en la tabla Users utilizando el P.A. IngresarUsers
EXECUTE INGRESARUSERS '40261470','OMAR'
EXECUTE INGRESARUSERS '40262030','LUCIA'
SELECT * FROM USERS
Lic. Omar Angel Mamani Rodriguez
[email protected]
TALLER DE PROGRAMACIÓN DISTRIBUIDA
IESTP MANUEL SEOANE CORRALES
5. Como ya tenemos nuestra Base de Datos, una tabla Users y un procedimiento
almacenado para insertar registros a la tabla Users, ingresaremos a Visual Studio 2012
(Basic.Net)
6. Crearemos un nuevo proyecto, le colocaremos el nombre de MiSistema en una carpeta
del mismo nombre.
7. En este caso utilizaremos un nuevo elemento solo para
obtener la cadena de conexión a la Base de datos SQL
Server (Servidor y Base de Datos), para ello realizamos
clic derecho sobre cualquier botón del Cuadro de
Herramientas / Elegir elemento…
8. Ubicamos en Componentes de .Net Framework y
activamos SQLConnection <Aceptar>
9.
Ubicamos el nuevo elementos y lo insertamos
en el nuevo formulario de nuestro proyecto,
utilizamos en sus propiedades la opción
ConnectionString / clic en Nueva Conexión:
10. Escribe el nombre del servidor de tu PC, el
mismo que empleaste para conectarte al SQL
Server, y se encuentra en la parte superior de
tu explorador de objetos en SQL Server, y en
la parte inferior la Base de Datos que hemos creado SISTEMAS. Clic en probar conexión
y finalmente <Aceptar>
11.
Diseñaremos el siguiente formulario incluyendo
un DataGridView1 y un botón registrar.
Lic. Omar Angel Mamani Rodriguez
[email protected]
TALLER DE PROGRAMACIÓN DISTRIBUIDA
IESTP MANUEL SEOANE CORRALES
12. Realizaremos doble clic sobre el formulario y en la parte de declaraciones colocaremos
el siguiente comando para hacer uso de la interfaz SQL.
13. Crearemos una subrutina (Procedimiento Sub) para crear la conexión y posterior
llamarla en el Load del Formulario
(*)
(**)
(***)
(****)
(*) La cadena de conexión se obtiene del objeto SqlConnection que se realizó enel paso
9, deberás copiar y pegar en…
(**) El Comando Sql que empleamos será para llamar a la tabla
(***) El comando Fill permite cargar los datos y (****) mostrarlo en el DataGridView1
creada.
14. Seguidamente llamaremos al procedimiento Sub Cargar en el Load del Formulario
15. Ejecutaremos el formulario y obtendremos los datos en el DataGridView1.
16. Ahora programaremos el botón Registrar para que se genere un nuevo registro.
(*)
(**)
(*) Especificamos el procedimiento almacenado de nuestra Base de Datos
(INGRESARUSERS)
(**) Volvemos a llamar al procedimiento Cargar para actualizar los datos de la tabla y se
muestren en el DataGridView1.
Lic. Omar Angel Mamani Rodriguez
[email protected]
TALLER DE PROGRAMACIÓN DISTRIBUIDA
IESTP MANUEL SEOANE CORRALES
17. Ahora ejecutamos el formulario e insertamos un nuevo registro empleando los cuadros
de textos (textbox1 y textbox2) y el botón Registrar, notaremos que se agregara el
registro.
18. Podemos crear otro procedimiento para limpiar los cuadros de textos y llamarlo dentro
del botón Registrar, después de cargar()
ANEXO
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Sub Cargar()
Using cnn As New SqlConnection("Data Source=OMARCITOS;Initial Catalog=SISTEMAS;Integrated Security=True" )
Dim cmd As New SqlCommand("Select * from users", cnn)
cmd.CommandType = CommandType.Text
Dim da As New SqlDataAdapter(cmd)
Dim dt As New DataTable
da.Fill(dt)
DataGridView1.DataSource = dt
End Using
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Cargar()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Using cnn As New SqlConnection("Data Source=OMARCITOS;Initial Catalog=SISTEMAS;Integrated Security=True" )
cnn.Open()
Dim cmd As New SqlCommand("INGRESARUSERS", cnn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@dni", TextBox1.Text)
cmd.Parameters.AddWithValue("@clave", TextBox2.Text)
cmd.ExecuteNonQuery()
Cargar()
limpiar()
End Using
End Sub
Sub limpiar()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
End Sub
End Class
Lic. Omar Angel Mamani Rodriguez
[email protected]