Cómo agregar una nueva línea para acceder a una consulta en VB

Saber cómo acceder a una consulta utilizando Visual Basic.NET, también conocido como VB.NET, puede hacer su aplicación más dinámica. VB.NET es un lenguaje de programación orientado a objetos utilizado para crear aplicaciones de Windows. VB.NET es comúnmente utilizado por los programadores debido a su flexibilidad a la hora de hacer las conexiones de base de datos. Una consulta se utiliza para acceder a la información en una tabla de base de datos. Este es un ejemplo sencillo de cómo puede acceder a una consulta que está recuperar datos de una base de datos Microsoft Office Access y mostrarlo a través de la ventana de la consola.

Instrucciones

1 Abra 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" en el panel central de la ventana "Nuevo proyecto".

2 Pulse la tecla "Ctrl" y "A", a continuación, pulse "Borrar" para borrar todo el código existente.

3 Copia y pega el código siguiente para su módulo "Module1.vb" para acceder a una consulta utilizando Visual Basic.NET:

Imports System.Data.OleDb

Module Module1

Sub Main()

Dim oleConn Como OleDbConnection

Dim como secuencia sqlstr

Dim DEstablezca Como conjunto de datos

Dim como secuencia strTmp

Sqlstr = "SELECT * FROM Clientes Los clientes;".

oleConn = nuevo OleDbConnection _

( "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = C: \ Neptuno 2007.accdb;")

myConnection tenue Como OleDbConnection = nuevo OleDbConnection

Dim da Como OleDbDataAdapter

da = Nueva OleDbDataAdapter (sqlstr, oleConn)

DEstablezca = nuevo conjunto de datos

da.Fill (DSET, "Clientes")

Para cada rowCust En dSet.Tables ( "clientes"). Las filas

strTmp = strTmp y rowCust ( "Compañía") ToString () y. "|"

strTmp = strTmp y rowCust ( "Apellido") ToString () y. "|"

strTmp = strTmp y rowCust ( "Nombre") ToString () y. "|" y vbLf

Siguiente

System.Console.Write (strTmp)

MsgBox ( "Hecho!")

myConnection.Close ()

End Sub

Módulo fin

4 Editar la siguiente línea de código para incluir la ruta a la base de datos:

( "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = C: \ Neptuno 2007.accdb;")

Pulse la tecla "F5" para ejecutar el programa.