-
Cómo leer un gran número de registros en una tabla con Visual Basic
-
Microsoft Visual Basic.NET es un lenguaje de programación orientado a objetos utilizado para desarrollar aplicaciones de Windows. Los programadores suelen utilizar VB.NET por sus capacidades de gran alcance y facilidad de uso. Microsoft Office Access es un sistema de gestión de base de datos relacional incluido en el paquete de Microsoft Office. Una aplicación VB.NET puede leer todos los registros de la tabla Orders de la base de datos Northwind y mostrarlos a través de un control de la red. La base de datos Northwind se incluye con la suite de MS Office.Instrucciones
1 Iniciar Microsoft Visual Basic Express y seleccionar "Nuevo proyecto ..." en el menú "Archivo". Seleccione "Aplicación de Windows Forms" y haga clic en "Aceptar".
2 Pulse "+ Alt + X Ctrl" para abrir el menú "Herramientas". "Botón" y "DataGridView" para agregar estos controles para "Form1". Haga doble clic Haga doble clic en "Button1" para abrir el módulo "Form1.vb".
3 Tipo "Imports System.Data.OleDb" (sin comillas) en la primera fila de "Form1.vb".
4 Escribe lo siguiente para declarar sus variables dentro "Button1_Click":
connString tenue Como OleDbConnection
sqlComm tenue Como OleDbCommand
Dim como secuencia strSQL
ds dévil como conjunto de datos
5 Escriba lo siguiente para realizar la conexión a la base de datos "Neptuno" y consultar todos los datos en la tabla "Pedidos":
strSQL = "SELECT * FROM PEDIDOS PEDIDOS;".
connString = nuevo OleDbConnection _
( "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = C: \ Neptuno 2007.accdb;")
Editar "C: \ Neptuno 2007.accdb" y escriba la ruta de la base de datos.
6 Escriba lo siguiente para crear y definir las variables:
Dim myConnection As OleDbConnection = New OleDbConnection
Dim da Como OleDbDataAdapter
da = Nueva OleDbDataAdapter (strSQL, connString)
ds = nuevo conjunto de datos
7 Escribe lo siguiente para llenar el control de cuadrícula de datos con los datos devueltos por la consulta:
da.Fill(ds, "tmpTable")
con Me.DataGridView1
.DataSource = Ds.Tables ( "tmpTable")
myConnection.Close ()
Terminar con
Ha leído todos los registros de la tabla "Pedidos" y cargado los datos en el control de cuadrícula de datos.
Pulse la tecla "F5" para ejecutar el programa y haga clic en "Button1".