Cómo acceder a una consulta VB

Conocer cómo ejecutar consultas y acceder a la información devuelta por una consulta utilizando Microsoft Visual Basic.NET le puede ahorrar tiempo si está trabajando con bases de datos . Microsoft Office Access es un sistema de gestión de base de datos relacional que ofrece 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 que es relativamente fácil de aprender y usar. Afortunadamente, usted puede escribir el código VB y acceder a una consulta de VB en pocos minutos . Cosas que necesitará
Microsoft Visual Basic Express Hotel Neptuno de Access base de datos
Ver Más 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

doble clic en " botón" en el panel " Toolbox" para añadir un nuevo control de botón . Haga doble clic en " DataGridView " para añadir un nuevo control de la red . Haga doble clic en " Button1 " para abrir el módulo " Form1.vb " . Pulse la tecla "Ctrl " y "A" al mismo tiempo , seguido de " Eliminar" para eliminar todo el código existente.
3

Copia y pega el siguiente código para conectarse a la base de datos Northwind , consulta los "Productos " tabla y mostrar el contenido a través de la " Data Grid View "control :

Importaciones System.Data.Odbc.OdbcConnection

Public Class Form1

Private Sub Button1_Click ( remitente de ByVal Como System.Object , ByVal e como System.EventArgs ) Handles Button1.Click

nwindConn As Odbc.OdbcConnection

qryStr dévil como secuencia

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

nwindConn.Open ()

qryStr = "Productos SELECT. [ Código de producto] , Productos. [ Nombre del producto ]",

qryStr = qryStr & " Products.Description , Productos. [ Costo estándar], "

qryStr = qryStr y " productos . [ Lista de precios ] , Productos. [Reordenar nivel] "

qryStr = qryStr y " a partir de productos ";

da As New Odbc.OdbcDataAdapter ( qryStr , nwindConn )

Dim ds As New Data.DataSet

da.Fill ( ds , " myTable " )

DataGridView1

. DataSource = ds.Tables ( " myTable " )

terminar con

nwindConn.Close ()

nwindConn.Dispose ()

nwindConn = Nothing End Sub

End Class
4

editar la siguiente línea de código eliminar " NORTHWIND " y escribiendo el nombre de su DSN (DSN =

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

Press "F5 "para ejecutar el programa y haga clic en" Button1 ".