Practicas de bd en sql

Solo disponible en BuenasTareas
  • Páginas : 13 (3183 palabras )
  • Descarga(s) : 0
  • Publicado : 16 de noviembre de 2011
Leer documento completo
Vista previa del texto
TITULODE PRÁCTICA: Conexión y Manipulación de base de datos Microsoft Access 2007 con Visual Basic 2008 (ADO.Net)

MATERIALES O EQUIPO A EMPLEAR:

Computadora con: Microsoft Access 2007, Adobe Reader, Microsoft PowerPoint, Microsoft Visual Studio 2008

PROCEDIMIENTO:
1. Abrir visual 2008 y crear un nuevo proyecto. 2. Ahora seleccionaremos la opción de Visual Basic, después WindowsApplication y en el nombre cambiaremos “WindowsApplication1” Por el nombre de “Agenda_Access” y damos clic en Aceptar. 3. Ahora creamos el siguiente formulario con los siguientes objetos. 4. Crear una base de datos en Access 2007 con el nombre de “DBAgenda.mdb” y guardarla en la ruta donde reside el ejecutable del programa en Visual Studio 2008, carpeta Debug del proyecto(C:\Users\......\Documents\Visual Studio 2008\Projects\....\....\bin\Debug) 5. Crear una tabla de nombre Contactos y con los campos que se muestran 6. Ahora en nuestro formulario agregamos el siguiente código (este código debe ir hasta arriba como primeras líneas de código) 'Recursos para conexionImports System.Data Imports System.Data.OleDb 7. Agregamos las siguientes variables globales ymétodos a utilizar (después de la línea de código que dice PublicClass Form1) 'Variables Globales para conexion AccessDim conexion As OleDbConnection Dim cone AsBoolean 'Metodo para Abrir Conexion AccessPublicSub Abrir_access()Try conexion = New OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0;Data Source="& Application.StartupPath &"\DbAgenda.mdb")conexion.Open() cone= TrueCatch ex As OleDbException MsgBox(ex.Message) cone = FalseEndTryEndSub'Metodo par Cerrar Conexion AccessPublicSub Cerrar_access()If cone = TrueThen conexion.Close() cone = FalseEndIfEndSubPublicSub Limpiar()codigo.Clear() nombre.Clear()telefono.Clear()Celular.Clear() mes.Text = "" dia.Value = 1direccion.Clear()ciudad.Clear() nombre.Focus()txt_buscar.Clear() Mes1.Text = "" EndSub 8. Agregamos el siguiente código al botón AGREGAR TryIf nombre.Text = ""Then MsgBox("Debe de Ingresar por lo menos un Nombre...") nombre.Focus()Else Abrir_access()Dim comando AsNew OleDbCommand("Insert into Contactos ( Nombre_Contacto, Telefono_Contacto,Celular_Contacto, Dia, Mes, Direccion_Contacto, Ciudad_Contacto ) values ('"&Me.nombre.Text &"','"&Me.telefono.Text &"','"&Me.Celular.Text &"',"&Me.dia.Value &",'"&Me.mes.Text &"','"&Me.direccion.Text &"','"&Me.ciudad.Text &"')", conexion)Dim i AsInteger = comando.ExecuteNonQueryIf i = 1 Then MsgBox("Registro Insertado...")ElseMsgBox("No se pudo Insertar Registro...")EndIf Cerrar_access()EndIfCatch ex As Exception MsgBox(ex.Message) EndTry 9. Agregamos el siguiente código al botón de MODIFICAR Try Abrir_access()Dim comando AsNew OleDbCommand("Update Contactos set Nombre_Contacto='"& nombre.Text &"',Telefono_Contacto='"& telefono.Text&"',Celular_Contacto='"& Celular.Text &"',Dia="& dia.Value &",Mes='"& mes.Text &"',Direccion_Contacto='"& direccion.Text &"',Ciudad_Contacto='"& ciudad.Text &"'Where Id_Contacto="& codigo.Text, conexion)Dim i AsInteger = comando.ExecuteNonQueryIf (i = 1) Then MsgBox("Registro Actualizado Exitosamente")Else MsgBox("Error")EndIfCerrar_access() Limpiar()Catch ex As Exception MsgBox(ex.Message) EndTry 10. Agregamos el siguiente código al botón de ELIMINAR TryIf codigo.Text = ""Then MsgBox("No hay nada que eliminar")Else Abrir_access()Dim comando AsNew OleDbCommand("Delete from Contactos where id_contacto="& codigo.Text &"", conexion)Dim i AsInteger =...
tracking img