By Practicas de bd en sql gy chapislay 110R5pA 17, 2011 13 pagcs TITI] LODE 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 Windows Application 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. Crear una base de or 13 «DBAgenda. mdb» y g da del programa en Visu Studi 5. Crea rpe n el nombre de reside el ejecutable ebug del proyecto ontactos y con los 6. Ahora en nuestro formulario campos que se muestran agregamos el siguiente código (este código debe ir hasta arriba como primeras líneas de código) ‘Recursos para conexionlmports System. Data Imports System. Data. OleDb 7. Agregamos las siguientes variables globales y métodos a utilizar (después de la línea de código que dice PublicClass Forml) ‘Variables Globales para conexion AccessDim conexion As OleDbConnection Dim cone As3001ean ‘Metodo para Abrir
Conexion AccessPublicSub conexion New Source=»& Application. StartupPath &»DbAgenda. mdb»)conexion. Open() cone = TrueCatch ex As OleDbException Msggox(ex. Message) cone = FalseEndTryEndSub’Metodo par Cerrar Conexion Abrir_access()Dim comando AsNew OleDbCommand(«lnsert into Contactos ( Nombre_Contacto, Telefono_Contacto, Celular Contacto, Dia, Mes, Direccion Contacto, Cudad_Contacto ) values ; ; Celular. Text ; dia. Value ; Memes. Text ;»‘,»‘&Me. direccion. Text &»‘)», conexion)Dim i As nteger = comando. ExecuteNonQueryIfi = 1 Then pudo nsertar Registro… )Endlf MsgBox(«No se Cerrar_access()EndIfCatch x 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. Text & , telefono. Text Celular. Text &'»,Dia=»& dia. Value &»,Mes-«‘& mes. Text &»‘,Direccion_Contacto='»& direccion. Text &»‘,Ciudad_Contacto-«‘; ciudad. Text ;»‘Where codigo. Text, conexion)Dim i Aslnteger — comando. ExecuteNonQuerylf (i = 1) Then MsgBox(«Registro Actualizado Exitosamente»)Else MsgBox(ex.
Message) EndTry 10. Agregamos el siguiente código al botón de ELIMINAR Trylf codigo. Text = ‘»Then MsgBox(«No hay nada que Abrir_access()Dim comando AsNew OleDbCommand(«DeIete from Contactos where id_contacto=»& codigo. Text &»», conexion)Dim i Aslnteger = comando. ExecuteNonQuery•lf (i = 1) Then MsgBox(«Registro Eliminado Exitosamente»)Else Limpiar()EndlfCatch ex As ExceptionMsg30x(ex. Message) EndTry 1 1 . Agregamos el siguient tón de LIMPIAR 3 Limpiar() 12. Agregar e digo al botón de BUSCAR from contactos where Nombre_Contacto like ‘& txt_buscar.
Text &, resultados AsNew DataSetDim comando AsNew OleDbCommand(Consulta, conexion)Dim adaptador AsNew OleDbDataAdapter adaptador. SelectCommand = comando daptador. Fill(resultados, «Contactos»)Me. dgv_resultados. DataSource – resultados. Tables( Limpiar()Catch ex As Exception EndTry 13. Programar el evento CellMouseDoubleCIick del DataGridView y poner el siguiente código codigo. Text – nombre. Text – dgv_resultados. SelectedCells(1). Value. ToString() telefono. Text = celular. Text = dgv_resultados. SelectedCells(3). Value. ToString()dia. Value – Val(dgv_resuItados. SelectedCeIls(4). Value. ToString()) mes.
Text – dgv_resultados. SelectedCells(5). Value. ToString() direccion. Text = ciudad. Text dgv_resultados. SelectedCells(7). Value. ToString() TabContr011 *Selectedlndex – O 4. por ultimo damos click en el botón «Pla}/’ (F5) para ejecutar nuestro programa I MEDIDAS DE SEGURIDAD (EN CASO DE SER NECESARIO): Si se trabaja con un Sistema Operativo de 64 bits hacer lo siguiente: 1. En el Explorador de Soluciones de Visual Studio dar click con el botón derecho sobre el proyecto. 2. En la ventana que aparece seleccionar la opción Compilar 3. Seleccionar el botón que dice Opciones de compilaclón avanzadas… 4.
En la opción que dice CPU de destino elegir x86, aceptar 5. Cerrar ventana de propiedades que apareció. «WindowsApplication1» Por el nombre de «Agenda_SQL» y damos clic en Aceptar. 3. Ahora creamos el siguiente formulario con los 4. Crear una base de datos en Microsoft siguientes objetos. SQL 2005 con el nombre de «DBAgenda» (createdatabaseDBAgenda). 5. Crear una tabla de nombre Contactos con los campos usados anteriormente. createtableContactos(ld_ContactointidentitynotnulI,Nombre_Cont ctovarc har(1 5), Ce lula r_Contactova rchar(1 5), diaint, Mesvarchar(1 5), dad_Contactovarchar(40),Primarykey(ld_Contacto) ) 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 conexionlmports System. Data Imports System. Data. SqlClient 7. Agregamos las siguientes variables globales y métodos a utilizar (después de la línea de código que dice PublicClass Forml) ‘Variables Globales para conexion sqlDim conexion As SqlConnectionDim cone Asgoolean ‘Metodo para Abrir Conexion SqlPublicSub Abrir_sql()Try New SqlConnection(‘Data catalog=DBAgenda;Integrated security=sspi»)conexion. pen() cone = TrueCatch ex As SqlException Msggox(ex. Message) SqlPublicSub Cerrar_sql()lf cone = TrueThen conexion. Close() cone = FalseEndlfEndSubPublicSub Limpiar()codigo. clear() nombre. Clear()telefono. Clear()Celular. Clear() mes. Text ‘ dia. Value = 1 direccion. Clear0 ciudad. Clear() nombre. Focus()txt_buscar. Clear() Mesl . Text – » EndSub 8. Agregamos el siguiente código al botón AGREGAR Trylf nombre. Text «»Then menos un Nombre… «) de Ingresar por lo Abrir sql()Dim comando AsNew SqlCommand(«lnsert into Ciudad_Contacto ) values mbre.
Text &»‘,'»&Me. teIefo ;»‘,'»&Me. Celular. Text comando. ExecuteNonQuerylf i 1 Then MsgBox(«Registro Insertado… Else se pudo Insertar Registro… «)Endlf ex As ExceptionMsgBox(ex. Message) EndTry 9. Agregamos el siguiente código al botón de MODI Try Abrir_sql()Dim comando AsNew SqlCommand(«Update Contactos set nombre. Text amp;'»,TeIefono_Contacto='»& telefono. Text dia. Value mes. Text direccion. Text & ciudad. Text ld_Contacto=»; codigo.
Text, conexion)Dim i Aslnteger = Msg30x(«Registro Actualizado Exitosamente»)Else Cerrar_sql() Limpiar()Catch ex As Exception Agregamos el siguiente código al botón de ELIMINAR Try eliminar»)Else Abrir_sql()Dim comando AsNew from Contactos where codigo. Text &»», conexion)Dim i Aslnteger – Msg30x(«Registro Eliminado Exitosamente»)Else Limpiar()EndlfCatch ex As ExceptionMsgBox(ex. Message) EndTry 11 . Agregamos el siguiente código al botón de LIMPIAR 12. Agregar el siguiente código al botón de BUSCAR Try Then Abrir_sql()Dim Consulta AsStringlf rbtn_mes.
Checked Consulta = » Select * from contactos where mes – «‘& Mesl . Text Consulta — » Select * from contactos where Nombre_Contacto like txt_buscar. Text ;»%'»EndlfDim resultados AsNew DataSetDim comando ASN and(Consulta, conexion)Dim adaptador aAdapter Exception MsgBox(ex. Message. ToString()) EndTry 13. Programar el evento CellMouseDoubleClick del DataGridView y poner el siguiente código codigo. Text = dgv_resultados. SelectedCells(5). Value. ToString() 14. por ultlmo damos click en TITULO: DE PRÁCTICA: Conexión y Manipulación de base de datos Microsoft Access con Java ODBC) Microsoft PowerPoint, Java, Net3eans 1.
Abrir NetBeans y crear un nuevo proyecto. 2. Ahora seleccionaremos la opción de Java, después JavaAppIication, damos click en el botón Siguiente y en el nombre del proyecto cambiaremos «JavaApplication» por el nombre de «Agenda_Access», verificar que NO esté seleccionada la opción «Crear clase principal» y damos clic en Terminar. 3. Expándenos la opción que dice «Paquetes de Fuentes» y damos clic derecho sobre «Paquete Predeter después Formulario JFram ionamos «Nuevo» y na que aparece import javax. swing. JOptionPane; import javax. swing. table. DefaultTableModel; 8.
Agregamos las siguientes variables globales y métodos a utilizar (después de la línea de código que dice’/ End of variables declarationla cual esta al final del codigo) /Nariables Globales private boolean cone; Connection conexion; ResultSetresul; //Metodo para Abrir Conexion Accessvoid Abrir_access() { try{ Class. forName(«sun. jdbc. odbc. JdbcOdbcDriver»); String url «jdbc:odbc:Driver={Microsoft Access Driver » + «(*. mdb, conexion=DriverManager. getConnection(url); } catch (SQLException e) { cone=true; JOptionPane. showMessageDialog(null,»SQL Exception: «4 e. toString()); } catch (ClassNotFoundExceptioncE) { JOptionPane. howMessageDialog(null,»Class Not Found Exception: «+ cE. toString()); } //Metodo para Cerrar Conexion Accessvoidcerrar_access(){ try { cone=false; { conexion. close(); }catch (SQLException e) { JOptionPane. showMessageDialog(null,»SQL Exception: «+ //Metodo para Limpiar Controles void e. tostring()); } Limpiar() { codigo. setText(» » h nombre. set Text(» dia . setValue(0); direccion . setText( » ciudad . setText(«»); nombre. requestFocus(); Mes1. setSeIectedlndex(0); } 9. Agregamos el siguiente código al botón AGREGAR try { (nombre. getText(). isEmpty()){ JOptionPane. showMessageDialog(null,»Debe de Ingresar por lo enos un Nombre… ); nombre. requestFocus(); else String sql; booleanresultado; Abrir_access( Statement sql=»lnsertinto Contactos (Nombre_Contacto,Telefo elular Contacto,Dia,Mes, 13 Direccion Contacto,Ciuda (resultado—-false) { JOptionPane. showMessageDialog(nulI,»Tu registro fue Insertado con Exito!!! «); Limpiar(); } Cerrar_access(); JOptionPane. showMessageDialog(null,»Error!!! «);while (er null){ er. getMessage()); er = er. getNextException 0; 10. Agregamos el siguiente código al botón de MODIFICAR try { Abrir_access(); String sql;booleanresultado; Statement instruccion-conexion. createStatement(); sql—’Update
Contactos set Nombre_Contacto=»‘ + nombre. getText() + + telefono. getText() + + celular. getText() + + dla. getValue() 4 + mes. getSelectedltem() 4 ‘»,Direccion_Contacto=»‘ + direccion. getText() + + ciudad. getText() + «‘Whereld Contacto:» + codigo. getText(); JOptionPane. showMessageDialog(nulI,»Tu Registro fue Actualizado con Éxito!!! «); catch(SQLExceptioner){ er. getMessage()); er — er. getNextException O; 1 1 . Agregamos el siguiente código al botón de ELIMINAR if (codigo. getText(). isEmpty()) { JOptionPane. showMessageDialog(null,»No Hay Nada que Eliminar!!! «); } sql; booleanresultado; try String sqI=»Delete from
Contactos where + codigo. getText() + » JOptionPane. showMessageDialog(null,»Tu Registro fue Eliminado con JOptionPane. showMessag rro (er JOptionPane. showMessae siguiente código al botón de LIMPIAR 13. Agregar el siguiente código al botón de BUSCAR //Limpiando JTable DefaultTableModel data new DefaultTableModel(); resultados. setModel(data); try { String sql; (rbtn mes. isSelected()) { sql=» Select * from contactos where mes + Mesl . getSelectedltem() + sql=» Select * from contactos where Nombre_Contacto like + txt_buscar. getText() + ‘1%'»; } ResultSetrs; rs instruccion. executeQuery(sql); intcolCount=O;
ResultSetMetaData metadata rs. getMetaData(); colCount – metadata. getColumnCount(); Object O fila = new Object[colCount]; Default ableModeldataModel — for (int i=l; i;=colCount; i++) { dataModel. addColumn(nombre); for (int i = O; i ;colCount; i++) fila[i]=rs. getobject(i+l ); dataModel. addRow(flla); while(rs. next()) while (er ! = null){ JOptionPane. showMessageDialog(null,»Mensaje: » + er. getMessage()); er = er_getNextException (); 14. Programar el evento MouseClickeddel JTable y poner el siguiente código if ) {Limpiar(); JTable target =0Table)evt. getSource(); codigo nombre. setText(‘»‘+resultados. getValueAt(target. tSelectedRow() telefono 3)); dia. setValue(resultado arget. getSelectedRow(), 15. Por ultimo damos clic derecho en el código y seleccionamos la opción «Ejecutar Archivo» para ejecutar nuestro programa I Tener cuidado en la sintaxis, ya que Java es sensible al uso de mayúsculas o minúsculas. Microsoft SQL 2005 con Java (JDBC) I Computadora con: Microsoft SQL 2005, Adobe Reader, Microsoft PowerPoint, Java, NetBeans seleccionaremos la opción de Java, después JavaApplication, cambiaremos «JavaApplication» Por el nombre de «Agenda Sql», verificar que NO esté seleccionada la opción «Crear clase principal» y damos clic en Terminar. Expándenos la opción que dice «Paquetes de Fuentes» y damos clic derecho sobre «Paquete Predeterminado», Seleccionamos «Nuevo» y después Formulario JFrame, en la ventana que aparece colocamos el nombre «Agenda» y damos clic en Terminar. 4. Ahora creamos el siguiente formulario con los siguientes objetos. 5. Crear una base de datos en SQL 2005(createdatabaseDBAgenda). 6. Crear una tabla de nombre Contactos con los campos usados anteriormente. create table Contactos ( ld_Contactoint identity not null, Nombre_Contactovarchar(40), Telefono Contactovarcha ontactovarchar(18), diaint, Mes varchar(15), Di tovarchar(40),
