Visual 2010 sql server 2008

20/12/2011

UNC MANUAL DE PROGRAMACIÓN APLICADA I

Programación Aplicada I | SALAZAR CACHO, Iris Nohely

Universidad Nacional de Cajamarca MANUAL DE PROGRAMACIÓN APLICADA I

I. BASES DE DATOS Y VISUAL BASIC

Visual Basic no es un administrador de Bases de Datos, sólo utiliza un
gestor de Bases de Datos, para nuestro caso será, Microsoft SQL Server
2008; para permitir la visualización de una manera más estética de los
datos, también para poder mostrar, o realizar algunos cambios en alguna
base de datos.

Es necesario tener conocimiento del concepto de algunas sentencias que
utilizaremos en la segunda parte del curso Programación Aplicada I:

.1. Espacio de nombres “System.Data.SqlClient”:
Es el proveedor de datos de .NET Framework para SQL Server. Un
proveedor de datos de .NET Framework para SQL Server describe
una colección de clases utilizada para tener acceso a una base de
datos de SQL Server en el espacio administrado.

.2. SqlConnection (Clase):
Representa una conexión abierta con una base de datos de SQL
Server. Esta clase no se puede heredar.

SALAZAR CACHO, Iris Nohely Página 2


.3. SqlDataAdapter (Clase):
Representa un conjunto de comandos de datos y una conexión de
base de datos que se utilizan para rellenar un DataSet y actualizar
una base de datos de SQL Server. Esta clase no se puede heredar.
SqlDataAdapter, se utiliza como un puente entre DataSet y SQL
Server para recuperar y guardar datos. SqlDataAdapter
proporciona este puente mediante la asignación de Fill, que cambia
los datos en DataSet para que coincidan con los datos del origen de
datos.

.4. SqlDataAdapter.Fill (Método):
Rellena un objeto DataSet o un objeto DataTable. Agrega filas a
DataSet o las actualiza para hacerlas coincidir con las filas del
origen de datos utilizando los nombres de DataSet y DataTable.

Sintaxis:

SqlDataAdapter.Fill(DataSet, String)

.5. DataSet (Clase):
Representa una caché de memoria interna de datos. DataSet, que
es una caché de memoria interna de datos recuperados de un
origen de datos, representa un componente fundamental de la
arquitectura de ADO.NET. DataSet está compuesto por una
colección de objetos DataTable que se pueden relacionar entre
ellos mediante objetos DataRelation.



.6. Ejemplo de conexiones a una Base de Datos:

Dim conex As New SqlConnection("server=.;database = Northwind;
trusted_connection=true")

Conex: Nombre de la conexión a la base de datos.

Server: Es el nombre del servidor; en este caso, la conexión es local, también
podemos escribir (local), localhost; si la conexión no es local, se debe
escribir el nombre propio de dicha conexión.

Database: Indica el nombre de la base de datos a la cual se desea conectar.

Trusted_connection: Permite conectarse a la base de datos con el mecanismo de
autenticación de Windows.

"Data Source=. ; Initial Catalog = Northwind; Integrated Security= True"
Data Source: Es el nombre del servidor; en este caso, la conexión es local; si la
conexión no es local, se debe escribir el nombre propio de dicha conexión.

Initial Catalog: Indica el nombre de la base de datos a la cual se desea conectar.

Integrated Security: Permite conectarse a la base de datos con el mecanismo de
autenticación de Windows.



PRÁCTICA I

1. VISUALIZAR LOS ESTUDIANTES QUE ESTÁN EN UNA BASE DE
DATOS.
Se tiene la información en una hoja de Excel y es necesario trasferir
esos datos a SQL, para ello seguiremos los siguientes pasos:
 En SQL, creamos la nueva tabla en la base de datos Northwind
(la base de datos es opcional, si se desea se puede crear una
base de datos o crear la tabla en otras bases de datos
existentes) y seleccionamos el tipo de dato adecuado para
cada fila y clave primaria:



 Guardamos el registro de datos de Excel en formato con
extensión csv (delimitado por comas):

 Obtendremos lo siguiente (para visualizar el archivo así, es
necesario hacer un clic derecho sobre el archivo y escoger la
opción editar)



 Para poder obtener sólo los datos de los alumnos, debemos
eliminar la primera fila que corresponde a los encabezados:

 Escribiremos el siguiente código SQL Transact para poder
migrar los datos a la tabla:

BULK
INSERT ESTUDIANTES
FROM 'F:UNcPAIalumnos.csv'  ruta del archivo
with(
FIELDTERMINATOR=',',  Indica que al encontrar una coma éste termina e inicia otro.
ROWTeRMINATOR='n'
)

 Ahora, ya tenemos los datos en una tabla de una base de datos
y podemos ejecutar sobre ellos códigos SQL Transact:

select *
from estudiantes



 Luego de tener los datos ya en el gestor SQL, haremos el
trabajo en visual, necesitaremos utilizar la herramienta
DataGriediew y escribiremos el siguiente código:

Imports System.Data.SqlClient

Public Class Form1

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles
MyBase.Load
Dim datos As New SqlDataAdapter("select * from estudiantes", conex)
Dim ds As New Data.DataSet

datos.Fill(ds, "Alumnos")
DGV1.DataSource = ds.Tables("alumnos")

End Sub

End Class



2. VISUALIZAR LOS DATOS DE LOS ALUMNOS DESDE LA WEB:

 Crearemos un formulario web:

 Utilizaremos la herramienta GriedView:



 El código en visual será:


Public Class WebForm1

Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Me.Load


Dim datos As New SqlDataAdapter("select * from estudianTes", conex)


datos.Fill(ds, "Alumnos")

GridView1.DataSource = ds.Tables("Alumnos")
GridView1.DataBind()

End Sub

End Class



3. CREAR UN PROGRAMA QUE PERMITA VISUALIZAR LOS DATOS DE
UN ESTUDIANTE CUYO CÓDIGO ANR SEA INGRESADO MEDIANTE
UN LECTOR DE CÓDIGO DE BARRAS:

 Crearemos un procedimiento almacenado en SQL, para poder
usar el programa las veces que deseemos y para facilitar el
desarrollo de este ejercicio:

CREATE PROC BUSCAR_ALUMNO
@ID CHAR(10)
AS
SELECT * FROM ESTUDIANTES
WHERE IDESTUDIANTE =@ID

 Código en visual:


Public Class Form3

Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs)
Handles TextBox1.KeyPress

If e.KeyChar = Chr(13) Then

Dim conex2 As New SqlConnection("server=.; database=northwind;
trusted_connection=true ")

Dim traerdatos As New SqlDataAdapter("select * from estudiantes where
idestudiante=@id ", conex2)

traerdatos.SelectCommand.Parameters.Add("@id", SqlDbType.Char,10).Value =
TextBox1.Text

Dim contenedordatos As New Data.DataSet

traerdatos.Fill(contenedordatos, "Alumnos")

DataGridView1.DataSource = contenedordatos.Tables("Alumnos")

End If

End Sub

End Class



NOTA: Cuando el lector de código de barras
lee el código simula un enter al finalizar; es
por eso que en el código en visual se programó
el código bajo la condición del enter.

PRÁCTICA II – TRABAJO DE CICLO

La novena práctica consiste en crear un menú con opciones que nos
permitan visualizar distintas y numerosas consultas a la base de
datos Northwind; así como también hacer algunas modificaciones a
los datos de la misma:

1. REALIZAR UNA CONEXIÓN QUE SIRVA PARA TODOS LOS
FORMULARIOS QUE SE IMPLEMENTARÁN

 Es necesario agregar un módulo; para ello, sobre el
proyecto clic derecho y luego elegir la opción agregar;
finalmente clic en la opción módulo:



 Se nos mostrará la siguiente ventana y tendremos que
escribir un nombre para la conexión, la
denominaremos “GLOBALES”:



 Finalmente, el código de la conexión es:

Module GLOBALES
Public conex As New
System.Data.SqlClient.SqlConnection("server=.;database=northwind;trusted_connection=true")

End Module

2. CREAR UN MENÚ QUE NOS MUESTRE LAS SIGUIENTES
OPCIONES:
 Mantenimiento
 Reportes
 Consultas
 Acerca de



3. VISUALIZAR EL NÚMERO DE PRODUCTOS POR CATEGORÍA:

 Código SQL:

CREATE PROC QUERY1
AS
SELECT CATEGORYNAME,COUNT(*) AS TOTAL
FROM Categories AS C INNER JOIN Products AS P
ON C.CategoryID =P.CategoryID
GROUP BY CategoryName
ORDER BY CategoryName

 Código visual, para poder mostrar los datos:


Public Class consulta01
Private Sub consulta01_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim datos As New SqlDataAdapter("QUERY1", conex)
datos.SelectCommand.CommandType = CommandType.StoredProcedure
datos.Fill(ds, "QUERY1")
dg.DataSource = ds.Tables("QUERY1")
End Sub
End Class

 Código visual para poder mostrar el formulario que
contiene dichos datos:

Private Sub ProductosPorCategoriaToolStripMenuItem_Click(sender As System.Object,
e As System.EventArgs) Handles ProductosPorCategoriaToolStripMenuItem.Click
Dim Fm As New consulta01
Fm.MdiParent = Me
Fm.Show()
End Sub



NOTA: El código en visual, que nos
permite mostrar los formularios que
deseamos ver es similar, sólo es necesario
cambiar los nombres de los formularios.

4. REALIZAR UNA CONSULTA QUE PERMITA VER CÓDIGO DEL
PRODUCTO, NOMBRE DEL PRODUCTO, PRECIO DEL PRODUCTO,
STOCK, NOMBRE DEL PROVEEDOR Y CATEGORÍA DEL
PRODUCTO, LAS CATEGORÍAS SE MOSTRARÁN EN UNA LISTA
DESPLEGABLE:

 Haremos una conexión especial para la lista
desplegable, seguiremos los siguientes pasos:

a) Clic sobre el triángulo de la esquina superior derecha
de la lista, luego clic en la opción desplegable de
“Origen de Datos” y se nos mostrará la siguiente
ventana, elegiremos entonces la opción “Agregar
origen de datos del proyecto”:



b) Aparecerá la siguiente ventana y luego clic sobre el
botón “Siguiente”

c) En esta ventana, seleccionaremos “Conjunto de
Datos” y luego clic en el botón “Siguiente”:



d) Clic en el botón “Nueva Conexión”

e) Se mostrará una ventana que solicita llenar algunos datos
sobre el tipo de conexión y el nombre de la base de datos a
la que se desea conectar, luego probaremos la conexión
para evitar errores posteriores:



f) Se nos presentará la siguiente ventana, en la cual, debemos
elegir que objetos deseamos tener en el conjunto de datos:

g) Finalmente, tendremos especial cuidado al seleccionar qué
datos debemos seleccionar en las etiquetas: Si la etiqueta es
“Mostrar Miembro” hace referencia a lo que se va a mostrar;
pero si la etiqueta es “Miembro de valor” lo que contiene son
los valores de los datos:



 Código SQL:

create proc query2
@cate int
as
select ProductID ,ProductName ,UnitPrice
,UnitsInStock ,companyname,CategoryID
from Products as p inner join Suppliers as s
on p.SupplierID =s.SupplierID
where CategoryID =@cate


Public Class Form3
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
ListBox1.SelectedIndexChanged
Dim datos As New SqlDataAdapter("query2", conex)
datos.SelectCommand.Parameters.Add("@cate", SqlDbType.Int).Value =
ListBox1.SelectedValue
datos.Fill(ds, "tablas")
DataGridView1.DataSource = ds.Tables("tablas")
End Sub
End Class



5. MOSTRAR LOS SIGUIENTES DATOS DE LOS PRODUCTOS:
NOMBRE, PRECIO, CATEGORÍA Y PROVEEDOR; SÓLO DE LOS
PRODUCTOS QUE ESTÉN DENTRO DE UN RANGO DE PRECIOS:

 Código SQL:

create proc query3
@menor int,
@mayor int
as
select ProductName , UnitPrice, CategoryName ,companyname
from Products as p inner join Categories as c
on p.CategoryID =c.CategoryID inner join Suppliers as s
on p.SupplierID =s.SupplierID
where UnitPrice between @menor And @mayor



Public Class Form4

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
datos.SelectCommand.Parameters.Add("@menor", SqlDbType.Int).Value = TextBox1.Text
datos.SelectCommand.Parameters.Add("@mayor", SqlDbType.Int).Value = TextBox2.Text
datos.Fill(ds, "t")
DataGridView1.DataSource = ds.Tables(0)
End Sub
End Class



6. MOSTRAR NOMBRE, PRECIO, CATEGORÍA Y PROVEEDOR DE
LOS PRODUCTOS QUE EMPIECEN CON UNA DETERMINADA
LETRA:

 Código SQL:

create proc query4
@nom varchar(10)
as
select ProductName ,UnitPrice, CategoryID ,SupplierID
from products
where ProductName like @nom+'%'



 Código en Visual:

Public Class Form5
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e
As System.Windows.Forms.KeyPressEventArgs) Handles
TextBox1.KeyPress
datos.SelectCommand.CommandType =
CommandType.StoredProcedure
datos.SelectCommand.Parameters.Add("@nom",
SqlDbType.NVarChar, 10).Value = TextBox1.Text
datos.Fill(ds, "productitos")
End Sub



7. VISUALIZAR LOS PRODUCTOS QUE PERTENECEN A UN
DETERMINADO PORVEEDOR:

 Código SQL:

create proc query5
@id int
as
select ProductName ,UnitPrice ,UnitsInStock
,s.SupplierID, s.CompanyName
from Products as p inner join Suppliers as s
on p.SupplierID =s .SupplierID
where s.SupplierID = @id


Public Class Form6

Private Sub Form6_Load(sender As System.Object, e As System.EventArgs)
Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla
'PAIDataSet1.Suppliers' Puede moverla o quitarla según sea necesario.
Me.SuppliersTableAdapter1.Fill(Me.PAIDataSet1.Suppliers)
End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As
System.EventArgs) Handles ListBox1.SelectedIndexChanged
datos.SelectCommand.Parameters.Add("@id", SqlDbType.Int).Value =
ListBox1.SelectedValue
datos.Fill(ds, "prod")
End Sub
End Class







8. VER LOS DETALLES DE UNA ORDEN DE COMPRA:

 Código SQL:

create proc query6
@oid as int
as
select od.OrderID,p.ProductId,ProductName ,p.UnitPrice ,Quantity
from Orders as o inner join [Order Details] as od
on o.OrderID =od.OrderID inner join Products as p
on od.ProductID =p.ProductID
where od.OrderID =@oid


Public Class Form7

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles
Button1.Click
datos.SelectCommand.Parameters.Add("@oid", SqlDbType.Int).Value = TextBox1.Text
datos.Fill(ds, "p")
End Sub
End Class



9. PRODUCTOS CON STOCK Y PRODUCTOS SIN STOCK:

 Código SQL:

Productos con stock:
create proc query8
as
select ProductID ,ProductName ,UnitPrice ,UnitsInStock
from Products
where UnitsInStock > 0

Productos sin stock:
create proc query8
as
select ProductID ,ProductName ,UnitPrice ,UnitsInStock
from Products
where UnitsInStock = 0



Public Class Form8

Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As
System.EventArgs) Handles RadioButton1.CheckedChanged
datos.Fill(ds, "p")
End Sub

Private Sub RadioButton2_CheckedChanged(sender As System.Object, e As
System.EventArgs) Handles RadioButton2.CheckedChanged
datos.Fill(ds, "p")
End Sub

Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load

End Sub
End Class



10. MOSTRAR LOS PRODUCTOS VIGENTES Y LOS
DESCONTINUADOS:

 Código SQL:

create proc query9
@value as bit
as
select ProductID , ProductName , UnitPrice ,Discontinued
from Products
where Discontinued=@value

 Código Visual:

Public Class Form9

Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs)
Handles CheckBox1.CheckedChanged
datos.SelectCommand.Parameters.Add("@value", SqlDbType.Bit).Value = CheckBox1.Checked

datos.Fill(ds, "a")
DataGridView1.DataSource = ds.Tables("a")
End Sub

End Class


Public Class Form9

Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles
CheckBox1.CheckedChanged
Dim valor As Integer

If CheckBox1.Checked Then
valor = 1
Else
valor = 0
End If
datos.SelectCommand.Parameters.Add("@value", SqlDbType.Bit).Value = valor
datos.Fill(ds, "a")
DataGridView1.DataSource = ds.Tables("a")
End Sub

End Class



PRÁCTICA III

CREACIÓN DE LA CONEXIÓN:

Module CONEXIÓN
Public conex As New
System.Data.SqlClient.SqlConnection("server=.;database=northwind;trusted_connection=true")
End Module

1. EN UN LISTBOX O COMBOBOX, COLOCAR EL SIGUIENTE TEXTO (SON LOS
TIPOS DE BUSQUEDA):

Comienza con
Termina con
Contiene a
No contiene a
Exactamente igual a

El proceso es seleccionar un tipo de búsqueda en la Lista, luego escribir un texto en
el TextBox y al darle <ENTER> al TextBox, se debe filtrar el DatagridView por el
nombre del producto, respetando el tipo de búsqueda seleccionado.

Los datos que deben salir en el DatagridView son: ProductId ProductName,
UnitPrice, UnitsInStock, Categoryname, Companyname (Suppliers).

a) DISEÑO:



b) CONSULTA SQL:

create procedure definido
@nombre as nvarchar(40),
@tipo as int
as

if @tipo=0
SELECT ProductId, ProductName, UnitPrice, UnitsInStock,
Categoryname, Companyname
FROM Categories AS C INNER JOIN Products AS P ON C.CategoryID=
P.CategoryID INNER JOIN
Suppliers AS S ON P.SupplierID= S.SupplierID
WHERE ProductName LIKE @NOMBRE+'%'

else if @tipo=1
WHERE ProductName LIKE '%'+@NOMBRE

else if @tipo=2
WHERE ProductName LIKE '%'+@NOMBRE + '%'

else if @tipo=3
WHERE ProductName NOT LIKE '%'+@NOMBRE+'%'

else
WHERE ProductName LIKE @NOMBRE



c) CÓDIGO EN VISUAL:

Private Sub TextBox1_KeyPress(sender As Object, e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = ChrW(13) Then

Dim datos As New SqlDataAdapter("definido", conex)
datos.SelectCommand.Parameters.Add("@NOMBRE", SqlDbType.NVarChar,
40).Value = TextBox1.Text
datos.SelectCommand.Parameters.Add("@tipo", SqlDbType.Int).Value =
ListBox1.SelectedIndex
datos.Fill(ds, "p")

d) PANTALLAS:



2. EN UN GRUPO DE RADIOBUTTON, COLOCAR LOS FILTROS COMO SE MUESTRA
EN LA PANTALLA.

El procedimiento es seleccionar un filtro, luego darle un click en el botón, para
que aparezcan los datos de los Productos en el DataGridView.

Los campos a mostrar en el DataGridView son: ProductName, UnitPrice,
UnitsinStock, CategoryID, Discontinued.

a) DISEÑO:



b) CONSULTAS SQL:

CREATE PROCEDURE CONSULTA6
AS
SELECT ProductName, UnitPrice, UnitsinStock, C.CategoryID,
Discontinued
FROM PRODUCTS AS P INNER JOIN CATEGORIES AS C ON
P.CategoryID = C.CategoryID
WHERE UnitsInStock >0

AS
Discontinued
WHERE Discontinued = '0'

@CAT INT
AS
Discontinued
WHERE C.CategoryID =@CAT

ALTER PROCEDURE CONSULTA9
AS
Discontinued





Public Class SEGUNDO

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)
Handles Button1.Click
If RadioButton1.Checked Then
Dim datos As New SqlDataAdapter("CONSULTA6", conex)
datos.Fill(ds, "p")
ElseIf RadioButton2.Checked Then
datos.Fill(ds, "p")
ElseIf RadioButton3.Checked Then
datos.SelectCommand.Parameters.Add("@CAT", SqlDbType.Int).Value =
TextBox1.Text
datos.Fill(ds, "p")
Else
datos.Fill(ds, "p")
End If
End Sub
End Class



d) PANTALLAS:



3. IMPLEMENTAR LA INTERFACE DEL EJERCICIO 2, ESTA VEZ SIN EL
COMMANDBUTTON, LA BÚSQUEDA SE HARÁ AL SELECCIONAR EL
RADIOBUTTON (EN EL CASO DEL FILTRO DE CATEGORÍA, SE HARÁ CON EL
ENTER DEL TEXTBOX).

a) DISEÑO:

b) CONSULTAS SQL:

AS
SELECT ProductName, UnitPrice, UnitsinStock, C.CategoryID, Discontinued
FROM PRODUCTS AS P INNER JOIN CATEGORIES AS C ON P.CategoryID = C.CategoryID
WHERE UnitsInStock >0

AS
WHERE Discontinued = '0'

@CAT INT
AS
WHERE C.CategoryID =@CAT

ALTER PROCEDURE CONSULTA9
AS





Public Class TERCERO
Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles
RadioButton1.CheckedChanged
datos.Fill(ds, "p")
End If
End Sub

datos.Fill(ds, "p")
End If
End Sub

Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles
TextBox1.KeyPress
datos.SelectCommand.Parameters.Add("@CAT", SqlDbType.Int).Value = TextBox1.Text
datos.Fill(ds, "p")
End If
End If
End Sub
datos.Fill(ds, "p")
End If
End Sub
End Class



d) PANTALLAS:



4. COLOCAR UN OBJETO MONTHCALENDAR, UN DATAGRIDVIEW Y UN TEXTBOX
(SERÁ TEMPORAL, UNA VEZ SE IMPLEMENTE EL FORMULARIO, SE ELIMINARÁ)

El GridView debe mostrar: OrderId, OrderDate, ProductName, UnitPrice, Quantity.

Al seleccionar una fecha, automáticamente se debe filtrar el DatGridView por el
campo OrderDate, se debe configurar el MonthCalendar, para que la fecha inicie el
01/01/1996 y finalice el 31/12/1997 (fechas del campo OrderDate de la Tabla Orders).

a) DISEÑO:



b) CÓDIGO SQL:

@FECHA DATETIME
AS
SELECT O.OrderId, OrderDate, ProductName,
P.UnitPrice, Quantity
FROM Orders AS O INNER JOIN [Order Details] AS OD ON
O.OrderID = OD.OrderID INNER JOIN Products AS P
ON OD.ProductID= P.ProductID
WHERE O.OrderDate = @FECHA

c) CÓDIGO VISUAL:


Public Class CUARTO
Private Sub MonthCalendar1_DateSelected(sender As
Object, e As System.Windows.Forms.DateRangeEventArgs)
Handles MonthCalendar1.DateSelected
TextBox1.Text = CStr(MonthCalendar1.SelectionStart)
End Sub
Private Sub MonthCalendar1_DateChanged(sender As
System.Object, e As
System.Windows.Forms.DateRangeEventArgs) Handles
MonthCalendar1.DateChanged

Dim datos As New SqlDataAdapter("CONSULTA10",
conex)
datos.SelectCommand.Parameters.Add("@FECHA",
SqlDbType.DateTimeOffset).Value =
MonthCalendar1.SelectionStart
datos.Fill(ds, "p")
End Sub
End Class



d) PANTALLAS:



II. RELACIONES DE LAS TABLAS EN VISUAL:

En la base de datos Northwind podemos observar que existen tablas
relacionadas y que de algunas de ellas pasa su clave principal como clave
foránea; esto permite que podamos realizar aplicaciones bajo el mismo
concepto de relación; en la siguiente práctica implementaremos
ejercicios de este tipo; en muchos casos será necesaria la
implementación de dos o más procedimientos almacenados en la Base
de Datos Northwind.

PRÁCTICA IV

1. MOSTRAR CATEGORÍA, NOMBRE DE LA CATEGORÍA Y DESCRIPCIÓN DE LOS
PRODUCTOS, A LA VEZ MOSTRAR TODOS LOS PRODUCTOS QUE
PERTENECEN A CIERTA CATEGORÍA (SE ELEGIRÁ MEDIANTE UN CLIC DE
QUÉ CATEGORÍA DESEAMOS VER LOS PRODUCTOS):

 Código SQL:

Mostrar todas las categorías:
create procedure QUERY14
as
select categoryid, categoryname,
description
from Categories

Mostrar productos de una determinada categoría:
create procedure QUERY14i
@cat int
as
select productid, productname, unitprice, c.categoryid
from products as p inner join Categories as c
on p.CategoryID = c.CategoryID
where p.CategoryID = @cat




Public Class Form14

Private Sub Form14_Load(sender As System.Object, e As System.EventArgs)
Handles MyBase.Load
datos.Fill(ds, "prod1")
dgv_cab.DataSource = ds.Tables(0)
End Sub

Private Sub dgv_cab_CellEnter(sender As Object, e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv_cab.CellEnter
Dim datos As New SqlDataAdapter("QUERY14i", conex)
datos.SelectCommand.Parameters.Add("@cat", SqlDbType.Int).Value =
dgv_cab.Rows(e.RowIndex).Cells(0).Value
dgv_det.DataSource = ds.Tables(0)
End Sub

End Class



2. MOSTRAR LAS ÓRDENES REALIZADAS, LUEGO MOSTRAR LOS DETALLES DE
CIERTA ORDEN (SE SELECCIONARÁ LA ORDEN PARA VER LOS DETALLES):

 Código SQL:

Mostrar todas las órdenes:
CREATE PROCEDURE QUERY15
AS
SELECT OrdERID, ORDERDATE, FREIGHT
FROM Orders

Mostrar detalles de una determinada orden:
CREATE PROCEDURE QUERY15i
@IDE INT
AS
SELECT OD.ORDERID, O.ORDERDATE, OD.PRODUCTID,
P.PRODUCTNAME, P.UNITPRICE, Quantity
FROM Orders AS O INNER JOIN [Order Details] AS
OD
ON O.OrderID = OD.OrderID
INNER JOIN Products AS P
ON OD.ProductID =
P.ProductID
WHERE O.OrderID = @IDE





Public Class Form15

MyBase.Load
End Sub

datos.SelectCommand.Parameters.Add("@IDE", SqlDbType.Int).Value =
End Sub

End Class



3. MOSTRAR LA FOTO DE LOS EMPLEADOS, SE MOSTRARÁ LA RELACIÓN DE
EMPLEADOS Y SE SELECCIONARÁ ALGUNO:

 Código SQL:

Mostrar la relación de empleados:
AS
SELECT EmployeeID , LastName , FirstName
FROM Employees

Mostrar un sólo empleado, utilizamos un parámetro:
CREATE PROCEDURE QUERY16i
@ID INT
AS
SELECT LastName
FROM Employees
WHERE EMPLOYEEID = @ID


Public Class Form16

MyBase.Load
End Sub

Private Sub dgv_cab_CellContentClick(sender As System.Object, e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv_cab.CellContentClick
Dim index As Integer
index = dgv_cab.Rows(e.RowIndex).Cells(0).Value

datos.SelectCommand.Parameters.Add("@ID", SqlDbType.Int).Value = index
datos.Fill(ds, "QUERY16i")
PictureBox1.Image = Image.FromFile("C:Documents and SettingsIRIS
NOHELYEscritorioimag músican_n" + CStr(index) + ".jpg")

End Sub
End Class



4. MOSTRAR LAS ÓRDENES REALIZADAS POR CIERTO EMPLEADO, SE
PRESENTARÁ LA RELACIÓN DE EMPLEADOS:

 Código SQL:

AS
SELECT EmployeeID , LastName
, FirstName
FROM Employees

Mostrar las órdenes realizadas por un
empleado:
CREATE PROC QUERY17i
@IDE INT
AS
SELECT OrderID , OrderDate ,
E.EmployeeID
FROM Employees AS E INNER JOIN
Orders AS O
ON
E.EmployeeID = O.EmployeeID
WHERE E.EmployeeID = @IDE





Public Class Form17

MyBase.Load
End Sub

datos.SelectCommand.Parameters.Add("@IDE", SqlDbType.Int).Value =
Label2.Text = dgv_cab.Rows(e.RowIndex).Cells(1).Value + " " +

End Sub
End Class

Nota: para poder ir a un nuevo datagried view a partir de uno debemos tener
en cuenta la siguiente sentencia:

Datagriedview1.Rows(valor).Cells(valor).Value

En donde:

 Rows hace referencia a la fila.
 Cells hace referencia a la columna.



5. MOSTRAR LA RELACIÓN DE EMPLEADOS, LAS ÓRDENES QUE REALIZÓ UN
DETERMINADO EMPLEADO Y LOS PRODUCTOS DE DICHA ORDEN:

 Código SQL:

AS
SELECT EmployeeID , LastName , FirstName
FROM Employees

Mostrar las órdenes realizadas por un empleado:
CREATE PROC QUERY17i
@IDE INT
AS
SELECT OrderID , OrderDate , E.EmployeeID
FROM Employees AS E INNER JOIN Orders AS O
ON E.EmployeeID =
O.EmployeeID
WHERE E.EmployeeID = @IDE

Mostrar los productos y detalles de dicha orden:
CREATE PROCEDURE QUERY17ii
@iden int
as
select o.orderid, p.productid, p.productname,
p.unitprice, quantity
from orders as o inner join [Order Details] as od
on o.orderid= od.orderid
inner join products as p
on od.productid =
p.productid
where od.orderid= @iden




Public Class Form18

Private Sub Form18_Load(sender As System.Object, e As
System.EventArgs) Handles MyBase.Load
End Sub

Private Sub dgv_cab_CellContentClick(sender As System.Object, e
As System.Windows.Forms.DataGridViewCellEventArgs) Handles
dgv_cab.CellContentClick
datos.SelectCommand.Parameters.Add("@IDE",
SqlDbType.Int).Value = dgv_cab.Rows(e.RowIndex).Cells(0).Value
Label2.Text = dgv_cab.Rows(e.RowIndex).Cells(1).Value + " "
+ dgv_cab.Rows(e.RowIndex).Cells(2).Value
End Sub

Private Sub dgv_det_CellContentClick(sender As System.Object, e
As System.Windows.Forms.DataGridViewCellEventArgs) Handles
dgv_det.CellContentClick
Dim datos As New SqlDataAdapter("QUERY17ii", conex)
datos.SelectCommand.Parameters.Add("@iden",
SqlDbType.Int).Value = dgv_det.Rows(e.RowIndex).Cells(0).Value
datos.Fill(ds, "QUERY17ii")
Label4.Text = dgv_det.Rows(e.RowIndex).Cells(0).Value
End Sub



III. FORMULARIOS – HEREDADOS

Visual Studio 2010 nos permite crear formularios que hereden las
características que puede poseer otro formulario; a este tipo de
formularios se les denomina Formularios Heredados.

Para crear este tipo de formularios debemos seguir los siguientes pasos:

 Crear el formulario plantilla con un diseño determinado:



 Clic derecho en el nombre del proyecto para poder agregar un nuevo
elemento; en el explorador de soluciones:



 Aparecerá la siguiente ventana; en ella debemos elegir la opción Windows
Form, en la opción “Elementos comunes”:

 Tendremos las siguientes opciones a elegir; en este caso seleccionaremos
“Formulario Heredado:”



 Aparecerá la ventana “Selector de Herencia”; aquí debemos elegir de qué
formulario deseamos heredar las características (para el ejemplo será el
formulario renombrado anteriormente como “Plantilla”):

 Finalmente, tenemos nuestro nuevo formulario Heredado:



PRÁCTICA V

Crear una tabla en la base de datos Northwind llamada “Personas”, la tabla
debe contener los siguientes atributos y sus respectivos tipos de datos:

ATRIBUTO TIPO DE DATO REFERENCIA
Idperso (clave primaria) Char (8) Código
nomperso Varchar (30) Nombres
apeperso Varchar (40) Apellidos
email Varchar (50) Correo Electrónico
genero Char (1) Género
estadocivil Char (1) Estado civil
fechanac datetime Fecha de Nacimiento

1. LLENAR DATOS EN LA TABLA PERSONAS, MEDIANTE UNA VENTANA
HECHA EN VISUAL:

 Código SQL:

Stored Procedure:
create procedure insertar
@id char(10) ,
@NOMBRE VARCHAR(30) ,
@APELLIDOS VARCHAR(40) ,
@CORREO VARCHAR(50) ,
@GEN CHAR(1) ,
@ESTCIV CHAR(1),
@NAC DATETIME
as
insert into personas
VALUES (@id, @NOMBRE,@APELLIDOS, @CORREO, @GEN , @ESTCIV,
@NAC)
SELECT *
FROM personas




Public Class Form19

Sub LIMPIAR_INGRESO() ' SUBPROGRAMA QUE VA A LIMPIAR TDAS LAS CAJAS
'For Each objeto In Me.Controls
' If TypeOf objeto Is TextBox Then
' objeto.text = Space(0)
' End If
'Next

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox1.Focus()
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)
Handles Button1.Click
Dim insert_per As New SqlCommand("insertar", conex)
Dim respuesta As Integer ' si es 1 se ejecuta si es 2 no se ejecuta el
insert

insert_per.CommandType = CommandType.StoredProcedure
insert_per.Parameters.Add("@id", SqlDbType.Char, 8).Value =
TextBox1.Text
insert_per.Parameters.Add("@N", SqlDbType.VarChar, 30).Value =
TextBox2.Text
insert_per.Parameters.Add("@A", SqlDbType.VarChar, 40).Value =
TextBox3.Text
insert_per.Parameters.Add("@C", SqlDbType.VarChar, 50).Value =
TextBox4.Text
insert_per.Parameters.Add("@G", SqlDbType.Char, 1).Value =
TextBox5.Text
insert_per.Parameters.Add("@EC", SqlDbType.Char, 1).Value =
TextBox6.Text
insert_per.Parameters.Add("@FN", SqlDbType.DateTime).Value =
TextBox7.Text
conex.Open()
respuesta = insert_per.ExecuteNonQuery ' devuelve el numero de filas o
registros afectados.

If respuesta = 1 Then
MessageBox.Show("SE GRABÓ EL REGISTRO")
LIMPIAR_INGRESO()



2. MODIFICAR EL MODO DE INGRESO DE LOS DATOS “GÉNERO” Y
“ESTADO CIVIL” DEL EJERCICIO 1:

En el caso de “Género” se deberá ingresar mediante un clic en una
opción de un Radiobutton.

Para “Estado Civil” se seleccionará de una lista desplegable la opción que
deseemos.

 Código SQL:

Stored Procedure:

@id char(10) ,
@NOMBRE VARCHAR(30) ,
@APELLIDOS VARCHAR(40) ,
@CORREO VARCHAR(50) ,
@GEN CHAR(1) ,
@ESTCIV CHAR(1),
@NAC DATETIME
as
VALUES (@id, @NOMBRE,@APELLIDOS, @CORREO, @GEN
, @ESTCIV, @NAC)
SELECT *
FROM personas




Public Class Form20


TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox7.Text = ""
TextBox1.Focus()
End Sub

Button1.Click
Dim respuesta As Integer ' si es 1 se ejecuta si es 2 no se ejecuta el insert

Dim genero As Char
genero = "F"
Else
genero = "M"
End If

Dim SC As Integer
Dim ESTADO As Char

SC = ListBox1.SelectedIndex

Select Case SC

Case 0
ESTADO = "S"
Case 1
ESTADO = "C"
Case 2
ESTADO = "V"
Case 3
ESTADO = "D"

End Select

insert_per.Parameters.Add("@id", SqlDbType.Char, 8).Value = TextBox1.Text
insert_per.Parameters.Add("@N", SqlDbType.VarChar, 30).Value = TextBox2.Text
insert_per.Parameters.Add("@A", SqlDbType.VarChar, 40).Value = TextBox3.Text
insert_per.Parameters.Add("@C", SqlDbType.VarChar, 50).Value = TextBox4.Text
insert_per.Parameters.Add("@G", SqlDbType.Char, 1).Value = genero
insert_per.Parameters.Add("@EC", SqlDbType.Char, 1).Value = ESTADO
insert_per.Parameters.Add("@FN", SqlDbType.DateTime).Value = TextBox7.Text
conex.Open()
respuesta = insert_per.ExecuteNonQuery
LIMPIAR_INGRESO()
End If
End Sub

End Class



3. BORRAR TODOS LOS REGISTRO DE LA TABLA “PERSONAS” PARA
PODER MODIFICARLA, LA CLAVE PRINCIPAL IDPERSO, DEBERÁ SER UN
ENTERO AUTOINCREMENTABLE (SE INICIALIZA EN 1 Y EL INCREMENTO
ES UNA UNIDAD).

Idperso (clave primaria) int Código
nomperso Varchar (30) Nombres
apeperso Varchar (40) Apellidos
email Varchar (50) Correo Electrónico
genero Char (1) Género
estadocivil Char (1) Estado civil
fechanac datetime Fecha de Nacimiento



NOTA: Si al querer modificar algún atributo de alguna

tabla nos aparece un mensaje de error, debemos

desactivar la opción “Impedir guardar cambios que

requieran volver a crear tablas”.



Para solucionar el inconveniente, antes descrito; seguiremos los
siguientes pasos:

 Clic en el menú “Herramientas”, luego elegir la opción “Opciones”:

 Aparecerá la siguiente ventana:



 Elegir la opción “Designers” y desactivar la opción “Impedir
cambios que requieran volver a crear tablas”:

4. INGRESAR REGISTROS EN LA NUEVA TABLA “PERSONAS”.

 Código SQL:

Stored Procedure “INSERTAR” modificado:

alter procedure insertar
@N VARCHAR(30) ,
@A VARCHAR(40) ,
@C VARCHAR(50) ,
@G CHAR(1) ,
@Ec CHAR(1),
@FN DATETIME
as
(nomperso, apeperso, email, genero, estadocivil, fechanac)
VALUES (@N,@A, @C, @G , @EC, @FN)





Public Class Form21

Sub LIMPIAR_INGRESO()
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox7.Text = ""
End Sub

Button1.Click
Dim respuesta As Integer
Dim SC As Integer
Dim ESTADO As Char
Dim genero As Char

genero = "F"
Else
genero = "M"
End If


Select Case SC

Case 0
ESTADO = "S"
Case 1
ESTADO = "C"
Case 2
ESTADO = "V"
Case 3
ESTADO = "D"

End Select

conex.Open()
respuesta = insert_per.ExecuteNonQuery conex.Close()

LIMPIAR_INGRESO()
End If
End Sub
End Class



5. LLENAR REGISTROS DE LA TABLA PERSONAS Y MOSTRARLOS:
 Código SQL:

alter procedure insertar
@N VARCHAR(30) ,
@A VARCHAR(40) ,
@C VARCHAR(50) ,
@G CHAR(1) ,
@Ec CHAR(1),
@FN DATETIME
as
(nomperso, apeperso, email, genero, estadocivil, fechanac)
VALUES (@N,@A, @C, @G , @EC, @FN)




ublic Class Form22

Sub cargar_datos()
Dim datos As New SqlDataAdapter("select * from personas", conex)
End Sub


TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox7.Text = ""
End Sub

Dim SC As Integer
Dim ESTADO As Char
Dim genero As Char

genero = "F"
Else
genero = "M"
End If


Select Case SC

Case 0
ESTADO = "S"
Case 1
ESTADO = "C"
Case 2
ESTADO = "V"
Case 3
ESTADO = "D"

End Select

conex.Open()
respuesta = insert_per.ExecuteNonQuery ' devuelve el numero de filas o registros afectados.
conex.Close()

LIMPIAR_INGRESO()
cargar_datos()
End If

End Sub

End Class



6. CREAR LAS SIGUIENTES TABLAS:

“LIBROS”

IdLibro int Código
Titulo Varchar (30) Título del Libro
IdEditorial int Código de la Editorial
Edicion Char (10) Número de Edición
Año_Publicacion datetime Año de Publicación
IdAutor int Código del Autor

“AUTOR”

IdAutor int Código
Nombre Varchar (50) Nombre del Autor
Fecha_Nac datetime Fecha de Nacimiento
Pais Char (10) País de Origen

“EDITORIAL”

IdEditorial int Código
Nombre Varchar (50) Nombre de la Editorial
Pais VarChar (20) País en donde funciona
la Editorial

*Llenar con datos las tablas “AUTOR” y “EDITORIAL”.



CREAR UN FORMULARIO QUE PERMITA REGISTRAR LIBROS, SE
MOSTRARÁ LOS AUTORES Y LAS EDITORIALES EN LISTAS
DESPLEGABLES DE LAS QUE SE OBTENDRÁ EL CÓDIGO DE AUTOR Y
EDITORIAL RESPECTIVAMENTE:

 Código SQL:

CREATE PROCEDURE libro
@t VARCHAR(30,@edit int,@ed CHAR(10),@ap char (10), @idau int
as
insert into libros
(titulo, IDEDITORIAL, edicion, año_publicacion, IDAUTOR)
VALUES (@t,@edit, @ed, @ap , @idau)


Public Class Form23


End Sub

Dim insert_per As New SqlCommand("libro", conex)

insert_per.Parameters.Add("@t", SqlDbType.VarChar, 30).Value = TextBox1.Text
insert_per.Parameters.Add("@ed", SqlDbType.Char, 10).Value = TextBox3.Text
insert_per.Parameters.Add("@ap", SqlDbType.Char, 10).Value = TextBox4.Text
insert_per.Parameters.Add("@edit", SqlDbType.Int).Value = ListBox1.SelectedValue
insert_per.Parameters.Add("@idau", SqlDbType.Int).Value = ListBox2.SelectedValue
conex.Open()
conex.Close()

MessageBox.Show("SE REGISTRÓ")
LIMPIAR_INGRESO()

End If

End Sub

Private Sub Form23_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'PAIDataSet5.EDITORIAL' Puede moverla o quitarla
según sea necesario.
Me.EDITORIALTableAdapter.Fill(Me.PAIDataSet5.EDITORIAL)
'TODO: esta línea de código carga datos en la tabla 'PAIDataSet4.AUTOR' Puede moverla o quitarla según
sea necesario.
Me.AUTORTableAdapter.Fill(Me.PAIDataSet4.AUTOR)

End Sub
End Class



 CONFIGURAMOS LA CONEXIÓN PARA LA LISTA DESPLEGABLE DE
AUTORES:

Clic en el triángulo desplegable de la esquina superior derecha del
listbox, aparecerá la siguiente ventana:

Clic en la opción “Agregar origen de datos del proyecto”:



Clic en el botón “Siguiente”:



Clic en el botón “Nueva conexión”:

Probamos la conexión:



Se mostrará la siguiente pantalla:

Luego cargarán los datos y seleccionaremos sólo los que vamos a utilizar, en este
caso es la tabla “AUTOR” y de ella sólo necesitaremos los atributos “IdAutor y
Nombre”, luego clic en finalizar:



Similar procedimiento se sigue para la conexión del listbox de “Editoriales”, con la
salvedad que se elige los datos de la tabla “Editoriales”.

Finalmente, las pantallas del nuevo programa:



PRÁCTICA VI

1. MOSTRAR EN UN FORMULARIO INFORMACIÓN DE LAS CATEGORÍAS DE LA
BASE DE DATOS NORTHWIND; SE PERMITIRÁ AGREGAR OTRAS
CATEGORÍAS; MÁS NO ELIMINARLAS.

 Creamos el origen de datos, esta ventana la podemos encontrar cerca
de la ventana herramientas o al presionar las siguiente combinación
Mayus+Alt+D:

Nota: Un Origen de
datos se crea para
todo el proyecto.



 Diseñamos el Formulario; para ello debemos seguir los siguientes pasos:



 Luego arrastramos la lista “Categorías” hacia el formulario; se mostrará lo
siguiente:

 LOS NOMBRES DE LA CAJA DE TEXTO VARIAN DE ACUERDO AL TIPO DE DATO QUE
EN SU EJECUCIÓN CONTENDRÁ:

 LA CAJA DE TEXTO QUE CORRESPONDE AL CÓDIGO DE CATEGORÍA
TIENE POR NOMBRE “CategoryIdTextBox”.

 LA CAJA DE TEXTO QUE CORRESPONDE AL NOMBRE DE CATEGORÍA
TIENE POR NOMBRE “CategoryNameTextBox”.

 LA CAJA DE TEXTO QUE CORRESPONDE A LA DESCRIPCOÓN TIENE
POR NOMBRE “DescriptionTextBox”.

 La caja de texto que corresponde al Código de la Categoría será modificada,
pues es clave principal y nosotros no podemos modificarla; es entero
autoincrementable.

Modificamos la propiedad “READ ONLY”, por defecto el valor de esta
propiedad es “false”, la cambiamos a “true”.



 Para agregar una nueva categoría debemos hacer clic en el siguiente botón:

 Escribiremos los datos que nos solicitan, y para guardar dicha información
debemos hacer clic en el botón:

 Entonces tendremos una nueva categoría:



2. MOSTRAR TODOS LOS PRODUCTOS DE UNA CATEGORÍA:

 Agregaremos un nuevo origen de datos; similar al ejercicio
1; para el presente ejemplo elegiremos la tabla categorías.

 El código visual que utilizaremos es el siguiente:


Public Class Form26

Sub cargar_datos()

Dim datos As New SqlDataAdapter("select productname, unitprice, unitsinstock, categoryid
from products where categoryid=@cate", conex)

datos.SelectCommand.Parameters.Add("@cate", SqlDbType.Int).Value =
CInt(CategoryIDTextBox.Text)


datos.Fill(ds, "detalle")

DataGridView1.DataSource = ds.Tables("detalle")

End Sub

Private Sub CategoriesBindingNavigatorSaveItem_Click(sender As System.Object, e As
System.EventArgs)
Me.Validate()
Me.CategoriesBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.NorthwindDataSet11)
End Sub

Private Sub CategoriesBindingNavigatorSaveItem_Click_1(sender As System.Object, e As
System.EventArgs)
Me.Validate()
Me.CategoriesBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.NorthwindDataSet11)
End Sub

Private Sub Form26_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.CategoriesTableAdapter.Fill(Me.NorthwindDataSet11.Categories)
cargar_datos()
End Sub

Private Sub BindingNavigatorMoveNextItem_Click(sender As System.Object, e As System.EventArgs)
Handles BindingNavigatorMoveNextItem.Click, BindingNavigatorMoveLastItem.Click,
BindingNavigatorMovePreviousItem.Click, BindingNavigatorMoveFirstItem.Click
cargar_datos()
End Sub

Private Sub CategoryIDTextBox_TextChanged(sender As System.Object, e As System.EventArgs)
Handles CategoryIDTextBox.TextChanged
cargar_datos()
End Sub



3. MOSTRAR LOS DETALLES DE UN PRODUCTO INGRESADO (CÓDIGO DEL PRODUCTO)
POR TECLADO (NO UTILIZAR STORED PROCEDURE):

 Código Visual:

Public Class Form27


Dim comando As New SqlCommand("select productname, unitprice, unitsinstock, categoryid from
products where productid= @id", conex)

comando.Parameters.Add("@id", SqlDbType.Int).Value = CInt(TextBox1.Text)

Dim registro As SqlDataReader

conex.Open()

registro = comando.ExecuteReader() ' se utiliza cuando es una consulta el executereader
trae una variable y la alamcena en registro

registro.Read()

If registro.HasRows = True Then ' utilizado para contar el número de filas (registros)
existentes
TextBox2.Text = registro.Item(0) ' referencia al primer campo que se desea mostrar
(productname)
TextBox3.Text = registro.Item(1) ' referencia al segundo campo que se desea mostrar
(unitprice)
TextBox4.Text = registro.Item(2) ' referencia al tercer campo que se desea mostrar
(unitsinstock)
TextBox5.Text = registro.Item(3) ' referencia al cuarto campo que se desea mostrar
(categoryid)
Else
MessageBox.Show("¡NO EXISTE ESTE PRODUCTO!")
End If
registro.Close()
conex.Close()

End Sub

End Class



4. MOSTRAR EN UN MENSAJE EL NOMBRE DEL PRODUCTO, PRECIO Y STOCK
DE LOS PRODUCTOS DE UN DETERMINADO PROVEEDOR (NO USAR STORED
PROCEDURE, EL CÓDIGO DEL PROVEEDOR SERÁ INGRESADO POR
TECLADO):

 Código Visual:


Public Class Form28

Private Sub Button1_Click(sender As System.Object, e As
System.EventArgs) Handles Button1.Click

Dim comando As New SqlCommand("select productname,
unitprice, unitsinstock from products where supplierid= @id",
conex)

comando.Parameters.Add("@id", SqlDbType.Int).Value =
CInt(TextBox1.Text)


conex.Open()

registro = comando.ExecuteReader()

Do While registro.Read()

MessageBox.Show(registro.Item(0) + " - " +
CStr(registro.Item(1)) + " - " + CStr(registro.Item(2)))

Loop

registro.Close()
conex.Close()

End Sub



5. MOSTRAR LOS PRODUCTOS DE UN PROVEEDOR EN UNA LISTA; EL CÓDIGO
DEL PROVEEDOR SERÁ INGRESADO POR TECLADO (NO UTILIZAR STORED
PROCEDURE):

 Código Visual:

Public Class Form29


Dim comando As New SqlCommand("select productname,
unitprice, unitsinstock from products where supplierid= @id",
conex)

comando.Parameters.Add("@id", SqlDbType.Int).Value =
CInt(TextBox1.Text)


conex.Open()

registro = comando.ExecuteReader()

Do While registro.Read()

ListBox1.Items.Add(registro.Item(0) + " - " +
CStr(registro.Item(1)) + " - " + CStr(registro.Item(2)))

Loop

registro.Close()
conex.Close()

End Sub

End Class



6. CREAR UN FORMULARIO QUE PERMITA INGRESAR UN USUARIO Y SU
CLAVE:

Para resolver este ejercicio necesitamos un formulario especial, denominado
“Formulario de Inicio de Sesión”.

Para obtener este formulario debemos seguir los siguientes pasos:

 Clic derecho sobre el nombre del proyecto, en el Explorador de
Soluciones, para poder agregar un nuevo formulario:

 Nos aparece la siguiente ventana; elegimos la opción “Windows Form”, se
muestran las siguientes opciones:



 Elegimos la opción “Formulario de Inicio de Sesión”:

 Código Visual:


Public Class LoginForm30

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

Dim QUERY As New SqlCommand("SELECT COUNT(*) FROM USUARIO WHERE IDUSUARIO= @U AND PASSWORD = @P",
conex)
QUERY.Parameters.Add("@U", SqlDbType.VarChar, 20).Value = UsernameTextBox.Text
QUERY.Parameters.Add("@P", SqlDbType.VarChar, 20).Value = PasswordTextBox.Text
conex.Open()

Dim VALOR As Integer

VALOR = QUERY.ExecuteScalar ' ES UN SÓLO VALOR

conex.Close()

If VALOR = 1 Then
Form1.Show()
Me.Hide()

Else
MessageBox.Show("Usuario y/o Clave incorrectas")
UsernameTextBox.Text = " "
PasswordTextBox.Text = " "
UsernameTextBox.Focus()

End If

End Sub

Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Cancel.Click
Me.Close()
End Sub
End Class



7. PERMITIR CAMBIAR DE CLAVE AL USUARIO EN OTRO FORMULARIO:

 Código Visual:


Public Class Form31

If TextBox3.Text = TextBox4.Text Then

Dim comando As New SqlCommand("update usuario set password =
@NUEVAC where IDusuario = @USER and password=@CA", conex)

comando.Parameters.Add("@NUEVAC", SqlDbType.VarChar,
20).Value = TextBox3.Text
comando.Parameters.Add("@USER", SqlDbType.VarChar, 20).Value
= TextBox1.Text
comando.Parameters.Add("@CA", SqlDbType.VarChar, 20).Value =
TextBox2.Text

conex.Open()
comando.ExecuteNonQuery()

conex.Close()

End If

End Sub

End Class



IV. REPORTING SERVICES: Visual Studio nos permite crear reportes con
datos tomados de una base de datos.
Los reportes son consultas que deben ser plasmadas en un documento
para su lectura, comprensión e interpretación.

Para agregar un informe, en Visual Studio 2010 debemos seguir los
siguientes pasos:

 Clic derecho sobre el nombre del proyecto (Explorador de
Soluciones) y agregar un nuevo elemento:



 Clic en la opción “Reporting” y elegir “Informe”:

 Finalmente la ventana para desarrollar le informe está creada:



 Una vez creado el informe; debemos crear su origen de datos; es
decir de dónde deseamos obtener la información:

 Clic en la pestaña “Nuevo” y elegir “Nuevo Origen de Datos”:

 Se mostrará la ventana “Propiedades del Conjunto de Datos”, clic
en el botón “Nuevo”:



 Aparece la ventana “Asistente para la Configuración de Datos”, clic
en “Siguiente”:

 



 Clic en el botón “Nueva Conexión”



 En esta ventana escribimos el nombre del servidos y la base de
datos a la que deseamos conectarnos:

 Probamos la conexión:



 La siguiente ventana demuestra que está cargando los datos para
poder escoger el correcto:

 Elegimos el procedimiento almacenado correcto:



 Podemos observar el entorno de dearrollo de un Informe; aquí
podemos usar algunas herramientas para mostrar la información:



 Debemos crear un nuevo formulario, en este incluiremos el reporte,
mediante la herramienta “Reporte Viewer”



 La vista del informe:



 Podemos exportar el informe a Excel, PDF o Word:

 Elegimos la ruta e, donde deseamos guardar el informe:



 Ahora podemos visualizar el informe desde Ms. Word:



PRÁCTICA VII

1. MOSTRAR LAS ÓRDENES REALIZADAS POR UN EMPLEADO:

 Código SQL:

create procedure sp1
@id int
as
select e.employeeid, orderid, orderdate, customerid
from Employees as e inner join Orders as o
on e.EmployeeID = o.EmployeeID
where e.EmployeeID = @id



Public Class Form1

Private Sub EmployeesBindingNavigatorSaveItem_Click(sender As System.Object, e As
System.EventArgs) Handles EmployeesBindingNavigatorSaveItem.Click
Me.Validate()
Me.EmployeesBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.NorthwindDataSet)

End Sub

MyBase.Load
Me.EmployeesTableAdapter.Fill(Me.NorthwindDataSet.Employees)

End Sub

Private Sub TabPage2_Click(sender As System.Object, e As System.EventArgs) Handles
TabPage2.Click

End Sub

Private Sub EmployeeIDTextBox_TextChanged(sender As System.Object, e As
System.EventArgs) Handles EmployeeIDTextBox.TextChanged
Dim datos As New SqlDataAdapter("sp1", conex)
datos.SelectCommand.Parameters.Add("@id", SqlDbType.Int).Value =
EmployeeIDTextBox.Text
datos.Fill(ds, "s")
End Sub

End Class



2. MOSTRAR EL TOTAL DE ÓRDENES REALIZADAS POR UN EMPLEADO:

 Código SQL:

create procedure sp2
@y int
as
select distinct companyname, YEAR(orderdate) as año,
COUNT(*) as total
from Customers as c inner join orders as o on c.CustomerID
= o.CustomerID
group by CompanyName , YEAR(OrderDate)
having year(orderdate)=@y

 Código Visual:

Public Class Form2

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MyBase.Load

Me.sp2TableAdapter.Fill(Me.PAIDataSet.sp2, 1996)
Me.ReportViewer1.RefreshReport()
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
ComboBox1.SelectedIndexChanged
Me.sp2TableAdapter.Fill(Me.PAIDataSet.sp2,
ComboBox1.SelectedValue)
End Sub

Private Sub ReportViewer1_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles ReportViewer1.Load

End Sub

Private Sub ComboBox1_SelectedValueChanged(ByVal sender As
Object, ByVal e As System.EventArgs) Handles
ComboBox1.SelectedValueChanged
Me.sp2TableAdapter.Fill(Me.PAIDataSet.sp2,
ComboBox1.SelectedValue)
End Sub



CREAR UN SISTEMA DE CONTROL DE ASISTENCIA PARA LA XII-
SEMANA SISTÉMICA
1. FORMULARIOS:

MANTENIMIENTO DE INSTITUCIONES EDUCATIVAS:

MANTENIMIENTO DE CONFERENCIAS:



INGRESAR UN NUEVO PARTICIPANTE:

CÓDIGO SQL:

@id char(10) ,
@ap VARCHAR(25) ,
@am VARCHAR(25) ,
@n VARCHAR(25) ,
@e CHAR(45) ,
@s CHAR(1),
@ii int
as
insert into PARTICIPANTES
VALUES (@id, @ap ,@am, @n, @e , @s, @ii)



Código Visual:


Public Class NUEVOS_PARTICIPANTES

Private Sub NUEVOS_PARTICIPANTES_Load(sender As System.Object, e As System.EventArgs) Handles
MyBase.Load
Me.INSTITUCIONESTableAdapter.Fill(Me.SEMANASISTEMICADataSet2.INSTITUCIONES)

End Sub


TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox1.Focus()
End Sub

Dim datos As New SqlCommand("insertar", conex)
Dim genero As Integer
genero = 1
Else
genero = 2
End If

datos.CommandType = CommandType.StoredProcedure
datos.Parameters.Add("@id", SqlDbType.Char, 10).Value = TextBox1.Text
datos.Parameters.Add("@ap", SqlDbType.VarChar, 25).Value = TextBox2.Text
datos.Parameters.Add("@am", SqlDbType.VarChar, 25).Value = TextBox3.Text
datos.Parameters.Add("@n", SqlDbType.VarChar, 25).Value = TextBox4.Text
datos.Parameters.Add("@e", SqlDbType.Char, 45).Value = TextBox5.Text
datos.Parameters.Add("@s", SqlDbType.Char, 1).Value = genero
datos.Parameters.Add("@ii", SqlDbType.Int).Value = ComboBox1.SelectedValue

conex.Open()

respuesta = datos.ExecuteNonQuery

LIMPIAR_INGRESO()

End If
Dim dat As New SqlDataAdapter("ver", conex)
dat.SelectCommand.CommandType = CommandType.StoredProcedure
dat.Fill(ds, "ver")

End Sub

Private Sub LinkLabel1_LinkClicked(sender As System.Object, e As
System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Buscar_Participantes.Show()
End Sub



BUSCAR UN PARTICIPANTE:



Código SQL:

Búsqueda por código:
create procedure cod
@id varchar(20)
as
select *
from PARTICIPANTES
where IdParticipante like @id+'%'

Búsqueda por apellido:
create procedure apepaternito
@a varchar(25)
as
select *
from PARTICIPANTES
where apepat like @a+'%'

Código en Visual:


Public Class Buscar_Participantes

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox1.TextChanged


Dim datos As New SqlCommand("cod", conex)
Dim dat As New SqlDataAdapter("cod", conex)
dat.SelectCommand.Parameters.Add("@id", SqlDbType.VarChar, 20).Value =
TextBox1.Text
dat.Fill(ds, "T")

Else
Dim datos As New SqlCommand("apepaternito", conex)
Dim dat As New SqlDataAdapter("apepaternito", conex)
dat.SelectCommand.Parameters.Add("@a", SqlDbType.VarChar, 25).Value = TextBox1.Text
dat.Fill(ds, "T")
End If
End Sub



REGISTRAR ASISTENTES:



Código SQL:

Stored procedure para registrar un asistente:

create procedure reg
@f datetime ,
@idp VARCHAR(10) ,
@idc int
as
insert into ASISTENCIA
VALUES (@f, @idp ,@idc)

Stored procedure para buscar a un participante y
registrarlo:
create procedure rr
@text varchar (25)
as
select
IdParticipante,ApePat,ApeMat,Nombres
from PARTICIPANTES
where ApePat like @text



Código en Visual:

Public Class Asistencia
Private Sub Asistencia_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

Me.CONFERENCIASTableAdapter.Fill(Me.SEMANASISTEMICADataSet3.CONFERENCIAS)
End Sub

Sub registrar()
Dim insert_per As New SqlCommand("reg", conex)
insert_per.Parameters.Add("@f", SqlDbType.DateTime).Value = DateTime.Now
insert_per.Parameters.Add("@idp", SqlDbType.VarChar, 10).Value = TextBox1.Text
insert_per.Parameters.Add("@idc", SqlDbType.Int).Value = ComboBox1.SelectedValue
conex.Open()
conex.Close()

End If
Dim datos As New SqlDataAdapter("v", conex)
datos.SelectCommand.Parameters.Add("@i", SqlDbType.Int).Value = ComboBox1.SelectedValue
datos.Fill(ds, "i")
End Sub
Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs)
Handles TextBox1.KeyPress
registrar()
End If
End Sub

Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles
ComboBox1.SelectedIndexChanged
Label4.Text = CStr(ComboBox1.Text)
End Sub

Private Sub TextBox2_TextChanged(sender As System.Object, e As System.EventArgs) Handles
TextBox2.TextChanged

Dim datos As New SqlDataAdapter("rr", conex)
datos.SelectCommand.Parameters.Add("@text", SqlDbType.VarChar, 25).Value = TextBox2.Text
datos.Fill(ds, "i")
End Sub

Private Sub DataGridView2_CellContentClick(sender As System.Object, e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView2.CellContentClick
TextBox1.Text = DataGridView2.Rows(e.RowIndex).Cells(0).Value
End Sub
End Class



REPORTE DE ALUMNOS PARTICIPANTES, ORDENADOS ALFABÉTICAMENTE:



Código SQL:

alter procedure asist
as
select IdParticipante, ApePat+' '+ApeMat+'
'+Nombres as Nombre, Email,IdInsti
from PARTICIPANTES
order by ApePat+ApeMat+Nombres

REPORTE DE CONFERENCIAS DICTADAS:

Código SQL:

create proc conf
as
select *
from CONFERENCIAS
order by NombreConfe



REPORTE DE ASISTENTES POR CONFERENCIA:

Código SQL:

CREATE PROCEDURE PARTCONF
@IDC INT
AS
SELECT P.IdParticipante,ApePat+' '+ApeMat+'
'+Nombres as Nombre
FROM PARTICIPANTES AS P INNER JOIN ASISTENCIA
AS A
ON P.IdParticipante = A.IdParticipante
INNER JOIN CONFERENCIAS AS C
ON A.IdConfe = C.IdConfe
where C.IdConfe = @IDC


Visual 2010 sql server 2008

Más contenido relacionado

La actualidad más candente (20)

Destacado (20)

Similar a Visual 2010 sql server 2008 (20)

Más de Alex Vasquez (14)

Último (20)

Visual 2010 sql server 2008