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