Laboratorio 8 Sil-500

EIS “P.D.
M”
LABORATORIO # 8
H
INFORMATICA INDUSTRIAL
APELLIDOS Y NOMBRE: HUANCA CONDORI OMAR
MATERIA: SIGLA: GESTION: FECHA:

SISTEMAS DE INFORMACION II SIL - 500 I / 2014 09 / 04 / 2014
DOCENTE: LIC. JULIA ZENTENO ZENTENO
TEMA: VISUAL ESTUDIO 2008

INI. AP. PAT
CONEXIÓN CON SQL SERVER
Nº MAQUINA SELLO DOCENTE
1. OBJETIVO:
 Realizar formularios ya sea para el acceso o para mostrar los datos

 Aprender a manejar la base de datos de SQL Server 2008
 Poder realizar un programa que introduciendo datos nos muestre los resultados, y
asi realizar la conexión de SQL Server con Visual Studio .NET 2008
2. TEORIA:
Visual Studio permite a los desarrolladores crear aplicaciones. Así se pueden crear aplicaciones
que se intercomuniquen entre estaciones de trabajo página web y dispositivos móviles.
El nuevo Framework (.NET 3.5) está diseñado para aprovechar las ventajas que ofrece el nuevo
sistema operativo Windows Vista a través de sus subsistemas Windows Comunication
Foundation (WCF) y Windows presentación Foundation (WPF). El primero tiene como objetivo
la construcción de aplicaciones orientadas a servicios, mientras que el ultimo apunta a la creación
de interfaces de usuario mas dinámicas que las conocidas hasta el momento.
Visual Studio 2008 permite incorporar características del nuevo Windows es posible actualizar de
Windows Visual Studio.
- Caracteristicas de Microsoft SQL Server
Este Sistema incluye una versión reducida, llamada MSDE con el mismo motor de base
de datos pero orientado a proyectos mas pequeños en sus versiones 2005 y 2008 pasa a
ser SQL Express Edition , que se distribuye en forma gratuita.
Es común desarrollar completos proyectos Complementando Microsoft SQL Server a

través de los llamados ADP (Acces Data Proyect). De esta forma se completa la base de
datos(Microsoft SQL Server), con el entorno de desarrollo (VBA Acces), a través de la
implementación de aplicaciones de dos capas mediante el uso de formularios Windows.
o Soporte de transacciones
o Soporta procedimientos almacenados
o Escabilidad, estabilidad y seguridad
o Permite trabajar en modo Cliente – Servidor donde los datos se almacenan
3. APLICACIÓN – PROCEDIMIENTOS:
3.1. CONDICIONES PREVIAS:
Los materiales que usaremos para este laboratorio son:

 Una computadora
 Software: Microsoft Visual Studio 2008
 Software: SQL Server 2008 (Para la creación de base de datos)
3.2 IMPLEMENTACION – PASOS:
FrmPrincipal
PASO 1:
Realizar el siguiente formulario:
PASO 2:
Realizar el siguiente código fuente para el formulario FrmPrincipal:
Public Class frmPrincipal

Private Sub toolSalir_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs)
TimerHora.Enabled = False
End
End Sub
Private Sub EmpleadoToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles EmpleadoToolStripMenuItem.Click
Dim fe As New frmEmpleado
fe.Show()
End Sub
Private Sub SalirrToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs)
End
End Sub
Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnSalir.Click
TimerHora.Enabled = False
End
End Sub
Private Sub btnEmpleado_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnEmpleado.Click
Dim fe As New frmEmpleado
fe.Show()
End Sub
Private Sub frmPrincipal_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs)
Dim fe As New frmUsuario
fe.Show()
End Sub
Private Sub EmpleadoToolStripMenuItem1_Click(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
EmpleadoToolStripMenuItem1.Click
frmEmpleado.Show()
End Sub
Private Sub ControlESToolStripMenuItem_Click(ByVal sender As

ControlESToolStripMenuItem.Click
frmControlAsistencia.Show()
End Sub
Private Sub RegistroESToolStripMenuItem_Click(ByVal sender As

RegistroESToolStripMenuItem.Click
frmListarAsistenciaEmpleados.Show()
End Sub
Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles ToolStripButton7.Click
Exit Sub
End Sub End Class
FrmControlAsistencia
PASO 3:
PASO 4:
Realizar el siguiente código fuente para el formulario FrmControlAsistencia:
Public Class frmControlAsistencia

Private DS As DataSet
Dim enviar As String
Dim diaEntrada As Date
Dim diaSalida As Date
Dim horaActual As Date
Dim sw As Integer
Sub Mostrar()
Dim rs As New SqlClient.SqlDataAdapter("SELECT codigoCA AS CODIGO,
HoraIngreso as [HORA DE INGRESO], HoraSalida As [HORA DE SALIDA] FROM
TControlAsistenciaohc ", CN)
CN.Open()
Dim rs1 As New DataSet
rs.Fill(rs1, "TControlAsistenciaohc")
DataGridView1.DataSource = rs1
DataGridView1.DataMember = "TControlAsistenciaohc"
CN.Close() End Sub
Private Sub btnRegistrarEntrada_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles btnRegistrarEntrada.Click
Dim d2 As Date = TimeString
If (horaActual >= "8:10:00") Then
Dim cmd As New SqlClient.SqlCommand("insert into TControlAsistenciaohc
values('" & enviar & "','" & DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss") &
"',' 04-03-2014 21:00)", CN)
CN.Open()
cmd.ExecuteNonQuery()
MsgBox("Bienvenido, se registro su Asistencia con Atraso")
CN.Close()
Mostrar() Else
Dim cmd As New SqlClient.SqlCommand("insert into TControlAsistenciaohc
values('" & enviar & "','" & DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss") &
"',' 04-03-2014 21:00)", CN)
CN.Open()
cmd.ExecuteNonQuery()
MsgBox("Bienvenido, se registro su Asistencia con Puntualidad")
CN.Close()
Mostrar()
End If
End Sub
Private Sub frmControlAsistencia_Load(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MyBase.Load
ConectaBD()
Mostrar()
Timer1.Enabled = True
Dim MiDataSet As New DataSet()
Dim comando As New SqlClient.SqlDataAdapter("SELECT * FROM TEmpleadoohc", CN)
CN.Open()
comando.Fill(MiDataSet, "USUARIO")
Dim row
cboUsuario.Items.Clear()
For Each row In MiDataSet.Tables(0).Rows
cboUsuario.Items.Add(row(0).ToString())
Next
cboUsuario.Text = cboUsuario.Items.Item(0).ToString()
CN.Close()
sw = 0
End Sub
Private Sub btnRegistrarSalida_Click(ByVal sender As System.Object, ByVal

e As System.EventArgs) Handles btnRegistrarSalida.Click
sw = 1
If (diaEntrada.Day() = diaSalida.Day()) Then
Dim cmd As New SqlClient.SqlCommand("update TControlAsistenciaohc SET
HoraSalida= '" & DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss") & "'", CN)
CN.Open()
DR = cmd.ExecuteReader()
If (cboUsuario.Text = enviar) Then
MsgBox("Hasta pronto, se registro su Salida")
End If
DR.Close()
CN.Close()
Mostrar()
Else
MsgBox("No se registro su salida, No registro su Ingreso")
End If End Sub
Private Sub btnListar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnListar.Click
frmListarAsistenciaEmpleados.Show()
End Sub
Me.Close()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Timer1.Tick
lblHora.Text = TimeOfDay()
diaEntrada = Now()
diaSalida = Now()
horaActual = TimeOfDay()
End Sub
End Class
FrmListarAsistenciaEmpleados
PASO 5:
PASO 6:
Realizar el siguiente código fuente para el formulario FrmListarAsistenciaEmpleados:
Public Class frmListarAsistenciaEmpleados
Private Sub btnListar_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnListar.Click
ConectaBD()
Dim rs As New SqlClient.SqlDataAdapter("exec

TListarEmpleadoAsistenciajzz", CN)
CN.Open()
rs.Fill(rs1, "Templeadojzz")
DataGridView1.DataMember = "TEmpleadojzz"
CN.Close()
End Sub
Private Sub btnListarCodigo_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles btnListarCodigo.Click
ConectaBD()
Dim rs As New SqlClient.SqlDataAdapter("exec
TListarEmpleadoAsistenciajzz_Codigo '" & cboCodEmpleado.Text & "'", CN)
CN.Open()
rs.Fill(rs1, "TEmpleadojzz")
DataGridView1.DataMember = "TEmpleadojzz"
CN.Close()
End Sub
Private Sub frmListarAsistenciaEmpleados_Load(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ConectaBD()
Dim MiDataSet As New DataSet()
Dim comando As New SqlClient.SqlDataAdapter("SELECT * FROM
TEmpleadojzz", CN)
CN.Open()
comando.Fill(MiDataSet, "TEmpleadojzz")
Dim row
cboCodEmpleado.Items.Clear()
For Each row In MiDataSet.Tables(0).Rows
cboCodEmpleado.Items.Add(row(0).ToString())
Next
cboCodEmpleado.Text = "Elija Codigo Empleado"
CN.Close()
End Sub

frmControlAsistencia.Show()
End Sub
End Class
ConectarBD.vb
PASO 7:
Realizar el siguiente Modulo para la conexión:
PASO 8:
Realizar el siguiente Modulo para la conexión con SQL Server 2008:
Imports System.Data.Sql
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
Imports System.Configuration
Module ConectarBD
Public CN As SqlConnection
Public DA As SqlDataAdapter
Public DR As SqlDataReader
Public DC As New SqlCommand
Public DDT As New Data.DataTable
Public DDS As New Data.DataSet
Public cadenaConexion As String
Public dbError As String
Public rutaImagen As String
Public usuario As String
Sub ConectaBD()
rutaImagen = "E:\Image\"
cadenaConexion = "server=(local); INITIAL CATALOG = EMPRESA; Integrated
Security = true"
Try
CN = New SqlClient.SqlConnection
CN.ConnectionString = cadenaConexion
DDS = New System.Data.DataSet
Catch ex As Exception
MsgBox("No se pudo conectar la base de datos ",
MsgBoxStyle.Information, "Conexion a la Base de Datos")
End Try
End Sub
Public Sub cerrarConexionBD()
Try
CN.Dispose()
DDS.Dispose()
Catch ex As Exception
MsgBox("No se pudo conectar la base de datos ", MsgBoxStyle.Information,
"Conexion a la Base de Datos")
End Try
End Sub
End Module
PASO 9:
Crear o realizar la base de datos EMPRESA en SQL Server 2008
PASO 10:
Llenar la base de datos con las siguientes tablas:
TControlAsistenciaohc
TEMPLEADOohc
TUsuarioohc
4. RESULTADOS:
Una vez realizado los ejercicios propuestos deberían de correr de la siguiente forma:
5. CONCLUSIONES:
Los ejercicios propuestos en la clase laboratorio se realizaron sin problemas ya estoy

funcionaron a la perfección como lo mostramos en las corridas de dichos programas incluyendo
la base de datos que se aplico para los formularios creados en Sql Server y realizando la
conexión con Visual Studio .NET.

Laboratorio 8 Sil-500

Cargado por

Copyright:

Formatos disponibles

Laboratorio 8 Sil-500

Cargado por

Información del documento

Título original

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Laboratorio 8 Sil-500

Cargado por

Copyright:

Formatos disponibles

EIS “P.D.

MATERIA: SIGLA: GESTION: FECHA:

DOCENTE: LIC. JULIA ZENTENO ZENTENO

TEMA: VISUAL ESTUDIO 2008

 Realizar formularios ya sea para el acceso o para mostrar los datos

- Caracteristicas de Microsoft SQL Server

Es común desarrollar completos proyectos Complementando Microsoft SQL Server a

3.1. CONDICIONES PREVIAS:

Los materiales que usaremos para este laboratorio son:

3.2 IMPLEMENTACION – PASOS:

Public Class frmPrincipal

Private Sub EmpleadoToolStripMenuItem1_Click(ByVal sender As

Private Sub ControlESToolStripMenuItem_Click(ByVal sender As

Private Sub RegistroESToolStripMenuItem_Click(ByVal sender As

Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e

Public Class frmControlAsistencia

Private Sub btnRegistrarSalida_Click(ByVal sender As System.Object, ByVal

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As

Public Class frmListarAsistenciaEmpleados

Private Sub btnListar_Click(ByVal sender As System.Object, ByVal e As

Dim rs As New SqlClient.SqlDataAdapter("exec

Private Sub btnListarCodigo_Click(ByVal sender As System.Object, ByVal e

Private Sub frmListarAsistenciaEmpleados_Load(ByVal sender As

Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As

Los ejercicios propuestos en la clase laboratorio se realizaron sin problemas ya estoy

También podría gustarte