Visual basic 2010 base de datos

[JonathanB]

Saludos, te recomiendo que puedas conseguirte el libro Mastering Microsoft Visual Basic 2010, es bastante explícito y tiene muy buenos ejemplos.

A continuación te pongo un pequeño ejemplo de como puedes conectarte a una base de datos de Access para obtener información.

Ok, como punto inicial descarga la siguiente base de datos http://www.vb6.us/files/VBPrograms/NWINDVBP.zip y extrae su contenido (NWINDVBP.mdb) en C:\

En VB.Net importa OleDb, la cual tiene lo necesario para conectarte a una base de datos de Access.

Código vb:

Imports System.Data.OleDb
 

Ahora crea un nuevo botón y añade el siguiente código

Código vb:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
    Dim cn As OleDbConnection
    Dim cmd As OleDbCommand
    Dim reader As OleDbDataReader
 
    cn = New OleDbConnection()
    cn.ConnectionString =
        ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\NWINDVBP.mdb;User Id=admin;Password=;")
    
    Try
        cn.Open()
        Debug.Print("Conexión Abierta")
        
        cmd = New OleDbCommand()
        cmd.Connection = cn
        cmd.CommandText = "SELECT CustomerID, CompanyName, ContactName FROM Customers"
 
        reader = cmd.ExecuteReader()
        While reader.Read
            Debug.Print(reader("CustomerID").ToString() & " " & reader("CompanyName") & " " & reader("ContactName"))
        End While
        
    Catch ex As Exception
        Debug.Print("Error al realizar la conexión: " & ex.Message)
    End Try
 
    
 
    If cn.State = ConnectionState.Open Then cn.Close()
End Sub
 

Al ejecutar el código, deberías de obtener el siguiente mensaje en tu ventana de Debug o de Resultados.

Código:

Conexión Abierta
ALFKI Alfreds Futterkiste Maria Anders
ANATR Ana Trujillo Emparedados y helados Ana Trujillo
ANTON Antonio Moreno Taquería Antonio Moreno

Depende del tipo de conexión que estes realizando, puede que cambie tu Connection String, puedes ver más ejemplos en la página http://www.connectionstrings.com/access
Espero que te sea de utilidad