Tecnología

Inicio

Cómo leer un gran número de registros en una tabla con Visual Basic

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".


Artículos relacionados