Tecnología

Inicio

Cómo insertar un conjunto de datos en una tabla en Visual Basic

Cómo insertar un conjunto de datos en una tabla en Visual Basic


Saber utilizar conjuntos de datos en Microsoft Visual Basic.NET le puede ahorrar tiempo cuando se trabaja con bases de datos. VB.NET es un lenguaje de programación orientado a objetos ofrecido por Microsoft, y es muy potente, pero relativamente fácil de aprender y utilizar. Un conjunto de datos es similar a una mesa - usted puede agregar columnas y filas de datos en él y guardarlo todo en la memoria. En unos pocos pasos se puede escribir código VB.NET para agregar un conjunto de datos a una tabla de datos.

Instrucciones

1 Iniciar Microsoft Visual Basic Express y haga clic en "Nuevo proyecto ..." en el panel izquierdo de la pantalla. Haga doble clic en "Aplicación de consola." Pulse la tecla "Ctrl" y "A", a continuación, pulse "Borrar" para borrar el código existente.

2 Copia y pega el código siguiente en el módulo "Module1.vb". El código será establecer una conexión con una base de datos Microsoft Access, consultar el "TEST_CASE" e insertar su contenido en una tabla de datos. El código se mostrará el contenido de la tabla de datos.

Imports System.Data.OleDb

Module Module1

Sub Main()

Dim connString As String = "Provider = Microsoft.Jet.OleDb.4.0; Data Source = C: \ testDatabase.mdb"

myConnection tenue Como OleDbConnection = nuevo OleDbConnection

Dim da Como OleDbDataAdapter

ds dévil como conjunto de datos

myConnection.ConnectionString = connString

da = Nueva OleDbDataAdapter ( "SELECT TEST_CASE. * FROM TEST_CASE", myConnection)

ds = nuevo conjunto de datos

da.Fill (ds, "TEST_CASE")

Dim dt Como DataTable = ds.Tables ( "TEST_CASE")

Para cada dtRow Como DataRow En dt.Rows

Para Cada col Como DataColumn En dt.Columns

Console.WriteLine (dtRow (col))

Siguiente

Console.WriteLine ( "". PadLeft (20, "="))

Siguiente

myConnection.Close ()

End Sub

Módulo fin

3 Editar la siguiente línea de código y escriba la ruta de acceso a la base de datos de acceso:

Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\testDatabase.mdb"

Pulse la tecla "F5" para ejecutar el programa.