Cómo acceder a una consulta de VB

Saber cómo ejecutar consultas y acceder a la información devuelta por una consulta utilizando Microsoft Visual Basic.NET puede ahorrar tiempo si se trabaja con bases de datos. Microsoft Office Access es un sistema de gestión de base de datos relacional que se ofrece en la suite de Office, mientras que una consulta se utiliza para recuperar información de una tabla de base de datos. VB.NET es un lenguaje de programación de computadoras que es relativamente fácil de aprender y utilizar. Afortunadamente, se puede escribir código VB y acceder a una consulta VB en tan sólo unos minutos.

Instrucciones

1 Abra Microsoft Visual Basic Express. Haga clic en "Nuevo proyecto ...", y luego seleccione "Aplicación de Windows Forms". Haga clic en Aceptar."

2 Haga doble clic en "botón" en el panel de "caja de herramientas" para añadir un nuevo botón de control. Haga doble clic en "DataGridView" para agregar un nuevo control de la red. Haga doble clic en "Button1" para abrir el módulo "Form1.vb". Pulse la tecla "Ctrl" y "A" seguida simultáneamente por "Borrar" para eliminar todo el código existente.

3 Copia y pega el siguiente código para conectarse a la base de datos Neptuno, consultar el "productos" mesa y mostrar el contenido a través del control "Data Grid Vista":

Las importaciones System.Data.Odbc.OdbcConnection

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim nwindConn Como Odbc.OdbcConnection

Dim como secuencia qryStr

nwindConn = Nueva Odbc.OdbcConnection ( "DSN = NORTHWIND")

nwindConn.Open ()

qryStr = "SELECT productos. [Código de producto], los productos. [Nombre],"

qryStr = qryStr y "Products.Description, los productos. [Costo Estándar],"

qryStr = qryStr y "los productos. [Precio], los productos. [Reordenar nivel]"

qryStr = qryStr y "FROM Productos;"

Dim da como nuevo Odbc.OdbcDataAdapter (qryStr, nwindConn)

ds Dim como nuevo Data.DataSet

da.Fill (ds, "myTable")

con DataGridView1

.DataSource = Ds.Tables ( "myTable")

Terminar con

nwindConn.Close ()

nwindConn.Dispose ()

nwindConn = nada

End Sub

End Class

4 Editar la siguiente línea de código mediante la eliminación de "NORTHWIND" y escribir el nombre de su DSN (DSN = <nombre de su DSN>):

nwindConn = Nueva Odbc.OdbcConnection ( "DSN = NORTHWIND")

Pulse la tecla "F5" para ejecutar el programa y haga clic en "Button1".