Libros de Visual Basic.Net

Cómo usar Microsoft Visual Basic .NET para conectar con una base de datos de Microsoft Access y recuperar datos

Pagina web:

www.ingenieronestorcalderon16.blogspot.com

www.ingenieronestorcalderon8.blogspot.com

Resumen

Este artículo paso a paso describe cómo utilizar Microsoft ADO.NET para abrir una base de datos de Microsoft Access utilizando el proveedor de datos OLE DB. Utilice la clase OleDbDataAdapter para obtener filas de la base de datos de Access e insertarlas en un objeto DataSet. En este artículo se describe cómo agregar filas, cómo eliminarlas y cómo actualizarlas en la base de datos de Access utilizando DataSet y OleDbDataAdapter.

Requisitos

En la lista siguiente se describe el hardware, el software, la infraestructura de red y los Service Pack recomendados que necesitará:
•
Microsoft .NET Framework
•
Microsoft Visual Basic .NET
•
Microsoft AccessEn el presente artículo se da por supuesto que está familiarizado con los temas siguientes:
•
Visual Basic .NET
•
ADO.NET
•
Access:

TEMAS

1. Crear una base de datos de Microsoft Access

2. Mostrar los registros recuperados de la base de Acces

3.Agregar una fila a la tabla de la base de Access

4.Actualizar las filas de una tabla en la base de Access

5. Borrar filas de una tabla en la base de Access

6. Comprobar que todo funciona

Crear una base de datos de Microsoft Access

1. Para crear una base de datos en Microsoft Access y luego crear una tabla en la base de datos, siga estos pasos:
   


2. .
   Inicie Access.
   2.
   En el menú Archivo, haga clic en Nuevo.
   3.
   Haga clic en Base de datos en blanco en el panel de tareas.
   4.
   En el cuadro Nombre de archivo, escriba testdb y haga clic en Crear.
   5.
   Haga clic con el botón secundario en Crear una tabla en vista Diseño y, a continuación, haga clic en Abrir.
   6.
   En el cuadro de texto Nombre del campo, escriba SName.
   7.
   En la lista Tipo de datos, haga clic en Texto.
   8.
   En el cuadro de texto Nombre del campo, escriba SNo.
   9.
   En la lista Tipo de datos, haga clic en Número.
   10.
   Haga clic con el botón secundario en SNo y luego en Clave principal.
   11.
   En el menú Archivo, haga clic en Guardar como.
   12.
   En el cuadro de diálogo Guardar como, escriba Alumno en el cuadro de texto y luego haga clic en Aceptar. Cierre la vista Diseño.
   13.
   Haga clic con el botón secundario en la tabla Alumno y luego haga clic en Abrir.
   14.
   Escriba ABC en la columna SName.
   15.
   Escriba 101 en la columna SNo.
   16.
   Escriba XYZ en la columna SName.
   17.
   Escriba 102 en la columna SNo.
   18.
   Escriba varios registros adicionales en la tabla Alumno y luego cierre la ventana Alumno:Tabla.


3. 19.
   Cierre la base de datostestdb.

Crear una conexión a la base de datos de Access utilizando Visual Basic .NET

En el siguiente ejemplo paso a paso se describe cómo crear una conexión a la base de datos de Access utilizando el Explorador de Microsoft Visual Studio .NET Server. En el ejemplo siguiente también se describe cómo utilizar la clase OleDbDataAdapter para recuperar los datos de la base de datos e insertarlos en un objeto DataSet. En este ejemplo también se describe cómo crear nuevas filas, cómo agregarlas a la tabla, cómo modificar los datos de las filas y cómo quitar dichas

1. Crear una nueva aplicación basada en Windows con Visual Basic .NET.
   1.
   Inicie Microsoft Visual Studio .NET.
   2.
   En el menú Archivo, seleccione Nuevo y haga clic en Proyecto.
   3.
   En Tipos de proyecto, haga clic en Proyectos de Visual Basic.
   4.
   En Plantillas, haga clic en Aplicación para Windows y, a continuación, haga clic en Aceptar. De forma predeterminada, se crea Form1.

Abra una conexión a la base de datos de Access

1.
En el menú Ver, haga clic en Explorador de servidores.
2.
En el Explorador del servidor, haga clic con el botón secundario en Conexiones de datos y luego haga clic en Agregar conexión.
3.
En el cuadro de diálogo Propiedades, haga clic en la ficha Proveedor.
4.
En la lista Proveedores de OLE DB, haga clic en Proveedor de OLE DB Microsoft Jet 4.0 y, a continuación, haga clic en Siguiente.
5.
Haga clic en la ficha Conexión y, a continuación, haga clic en el botón (... ).
6.
Busque el archivo testdb.mdb de base de datos de Access que creó siguiendo la ruta de acceso correspondiente en su equipo.
7.
Seleccione el archivo testdb.mdb y luego haga clic en Abrir.
8.
En el cuadro de diálogo Propiedades de vínculo de datos, haga clic en Aceptar

Recupere los datos de la base de datos de Access utilizando la clase OleDbDataAdapter

1.
En el cuadro de herramientas, haga clic en la ficha Datos.
2.
Arrastre un control OleDbDataAdapter hasta Form1.
3.
En el Asistente para la configuración del adaptador de datos, haga clic en Siguiente tres veces.
4.
En el panel Generar las instrucciones SQL, escriba la siguiente instrucción de Microsoft SQL Server y, a continuación, haga clic en Siguiente:

Seleccionar * en Alumno

1. En el panel Ver resultados del Asistente, haga clic en Finalizar.NotaEn el cuadro de diálogo ¿Desea incluir la contraseña en la cadena de conexión?, haga clic en No incluir contraseña.
   6.
   Haga clic con el botón secundario en OleDbDataAdapter1 y, a continuación, haga clic en Generar conjunto de datos.
   7.
   En el cuadro de diálogo Generar conjunto de datos, haga clic en Aceptar.
   8.
   Agregue el siguiente código al controlador de eventos Form1_Load:

'Fill retrieves rows from the data source by using the SELECT statement OleDbDataAdapter1.Fill(DataSet11)

1. 
   
   Mostrar los registros recuperados de la base de datos de Access
   


2. 
   
   
   1.
   Agregue un control DataGrid a Form1. De forma predeterminada, se crea DataGrid1.
   2.
   Haga clic con el botón secundario en DataGrid1 y, a continuación, en Propiedades.
   3.
   En el cuadro de diálogo Propiedades, establezca la propiedad DataSource en DataSet11 y la propiedad DataMember en Alumno.


3. 
   


4. 
   


5. 
   
   Agregar una fila a la tabla de la base de datos de Access
   
   1.
   Agregue un control Button a Form1.
   2.
   Haga clic con el botón secundario en Button1 y luego haga clic en Propiedades.
   3.
   En el cuadro de diálogo Propiedades, establezca la propiedad Text en Agregar.
   4.
   Agregue el siguiente código al controlador de eventos Button1_Click

Dim i, sno As Integer Dim sname As String Dim rw As DataRow 'Add a new row to the Student table. rw = DataSet11.Tables(0).NewRow sno = InputBox("Enter the Roll no of the Student:") sname = InputBox("Enter the Name of the Student:") rw.Item("SNo") = sno rw.Item("SName") = sname Try DataSet11.Tables(0).Rows.Add(rw) 'Actualice la tabla Alumno en la base de datos testdb. i = OleDbDataAdapter1.Update(DataSet11) Catch ex As Exception MessageBox.Show(ex.Message) End Try 'Muestra el número de filas actualizadas. MessageBox.Show("número de filas actualizadas=" & i)

1. 
   
   Actualizar las filas de una tabla en la base de datos de Access
   
   Agregue un control Button a Form1. De forma predeterminada, se crea Button2.
   2.
   Haga clic con el botón secundario en Button2 y luego haga clic en Propiedades.
   3.
   En el cuadro de diálogo Propiedades, establezca la propiedad Text en Actualizar.
   4.
   Agregue el siguiente código al controlador de eventos Button2_Click:


2. 
   


3. 
   
   Dim i, rwno As Integer Dim colname As String Dim value As Object colname = InputBox("Enter the name of the Column to be updated") rwno = InputBox("Enter the Row Number to be updated: Row No starts from 0") value = InputBox("Enter the value to be entered into the Student table") Try 'Update the column in the Student table. DataSet11.Tables(0).Rows(rwno).Item(colname) = value 'Update the Student table in the testdb database. i = OleDbDataAdapter1.Update(DataSet11) Catch ex As Exception MessageBox.Show(ex.Message) End Try 'Displays number of rows updated. MessageBox.Show("no of rows updated=" & i)

1. 
   
   Borrar filas de una tabla en la base de datos de Access
   
   1.
   Agregue un control Button a Form1. De forma predeterminada, se crea Button3.
   2.
   Haga clic con el botón secundario en Button3 y luego haga clic en Propiedades.
   3.
   En el cuadro de diálogo Propiedades, establezca la propiedad Text en Eliminar.
   4.
   Agregue el siguiente código al controlador de eventos Button3_Click:


2. 
   


3. 
   
   Dim i As Integer Dim rno As Integer rno = InputBox("Enter the Row no to be deleted: Row no starts from 0") Try 'Delete a row from the Student table. DataSet11.Tables(0).Rows(rno).Delete() 'Update the Student table in the testdb database. i = OleDbDataAdapter1.Update(DataSet11) Catch ex As Exception MsgBox(ex.Message) End Try 'Displays number of rows updated. MessageBox.Show("no of rows updated=" & i)

1. 
   
   Comprobar que todo funciona
   
   En el menú Generar, haga clic en Generar solución.
   2.
   En el menú Depurar, haga clic en Iniciar.
   3.
   Haga clic en Agregar y, a continuación, escriba los datos en el cuadro de entrada para agregar una fila a la tabla Alumno.NotaRecibe un error si hace clic en Cancelar en los cuadros de entrada.
   4.
   Haga clic en Actualizar y, a continuación, escriba los datos en los cuadros de entrada para actualizar una columna de la tabla Alumno.
   5.
   Haga clic en Eliminar y, a continuación, escriba los datos en los cuadros de entrada correspondientes para borrar una fila de la tabla Alumno

La información de este artículo se refiere a:

•
Microsoft Visual Basic .NET 2003 Standard Edition
•
Microsoft Visual Basic .NET 2002 Standard Edition

Libro virtual elaborado por:

ingeniero Nestor Orlando Calderon Hernandez

Pais:Colombia

Ciudad:Bucaramanga

año 2007

"La programacion por internet 2 es muy facil.......animo...no te quedas atras..con el

uso de la tecnologia"