Visual basic 2010 base de datos

[emanuel_9614]

Hola, amigos del foro.
Antes que nada aclarar que soy principiante. jee
Queria preguntarles si conocen algun buen tutorial donde muestren y enseñen xD como conectar a access desde visual basic. Y como registrar, modificar, eliminar, mostrar los datos. O si alguien me lo puede explicarr!
Por favor ayudadme y muchas gracias (perdon si no va aca)

[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

[emanuel_9614]

Muchas gracias JonathanB por responder. Me eh orientado un poko mas jee

No se si las reglas del foro lo permiten. Pero tengo este error.

El proveedor 'Microsoft.Jet.OLEDB.4.0 Data Source=' no está registrado en el equipo local.

osea ejecuto la aplicacion, y al momento de cliquear un boton me da ese error y me marca una linea de codigo. Dependiendo del boton que clique. Adjunto el codigo.

Código vb:

Imports System.Data.Common REM Para Forma 1 
Imports System.Data.OleDb REM Para Form 2 
 
Public Class Form1
    Dim DBA As DbProviderFactory = DbProviderFactories.GetFactory("System.Data.OleDb")
 
    Private Sub Boton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton1.Click
        REM FORMA 1 
 
        Dim CN_A As DbConnection = DBA.CreateConnection()
        Dim CMD_A As DbCommand = CN_A.CreateCommand
        Dim DA_A As DbDataAdapter = DBA.CreateDataAdapter
        Dim DT_A As New DataTable
        CN_A.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0 Data Source=c:\AULA.mdb")
        CMD_A.CommandText = "Select * From TblDatos"
        DA_A.SelectCommand = CMD_A
        DA_A.Fill(DT_A)
        DataGridView1.DataSource = DT_A
    End Sub
 
    Private Sub Boton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton2.Click
        REM FORMA 2 
        Dim Coneccion As OleDbConnection
        Dim Adap As OleDbDataAdapter
        Dim Tabla As DataSet
 
        REM Enlazando coneccion a la base de dato
        Coneccion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0 Data Source=c:\AULA.mdb")
 
        REM Cargando el adapter con la instruccion sql 
        Adap = New OleDbDataAdapter("Select * from TblDatos", Coneccion)
        REM Cargando el dataset 
 
        Tabla = New DataSet()
        Adap.Fill(Tabla, "TblDatos")
 
        REM Cargando el datagridview 
        DataGridView1.DataSource = Tabla
        DataGridView1.DataMember = "TblDatos"
    End Sub
 
 
    Private Sub Boton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton3.Click
        REM FORMA 3 
        Dim Coneccion As String = ("Provider=Microsoft.Jet.OLEDB.4.0 Data Source=c:\AULA.mdb")
        Try
            Dim CONN As New OleDb.OleDbConnection(Coneccion)
            Dim CMD As New OleDb.OleDbCommand("Select * From TblDatos(CONN)")
            Dim DA As New OleDb.OleDbDataAdapter(CMD)
            Dim DS As New DataSet
            CONN.Open()
            DA.Fill(DS)
            CONN.Close()
            DataGridView1.DataSource = DS.Tables(0)
        Catch ex As OleDbException
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Boton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton4.Click
        REM Salir 
        Me.Close()
 
    End Sub
End Class
 

Agradeceria si me pueden ayudar.
Ah, estoy trabajando con access 2003 y visual basic 2010 en xp 32 bits.

[JonathanB]

¿Te funciono el ejemplo? Este lo realicé en Windows 7 usando Visual Studio 2010 y net framework 3.5

Por lo que he visto, puede que la solución sea la siguiente:

1. En el Explorador de soluciones , haga clic con el botón secundario en la aplicación y, a continuación, haga clic en Propiedades .
2. Haga clic en la ficha compilar .
3. En la ficha compilar , haga clic en Opciones de compilación avanzadas .
4. En el cuadro de diálogo Configuración de compilador avanzada , haga clic en x 86 en la lista de CPU de destino y, a continuación, haga clic en Aceptar .
5. En el menú archivo , haga clic en Guardar los elementos seleccionados .

Podrías verificar también el siguiente enlace: http://support.microsoft.com/kb/239114/es

Saludos,

[vhv491124]

Buenas amigos tengan ustedes un feliz día
Trabajo en Excel 2010
me inicio con el programador de Excel visual Basic
la siguiente es mi consulta
1. En una hoja de Excel tengo un valor en B2,
2. Tengo una serie de números del 1 al 31 (C3:C33)
3. Tengo unos valores en (D2:G2)
Quiero que el valor de B2 sea buscado en (C3:C33) y que si lo localiza, me haga activa la siguiente columna (ejemplo localizo el valor en C7 luego me haga activa la celda a la derecha de C7 o sea D7, y me copie desde hay los valores de D2:G2)
Aparentemente se ve fácil pero no tengo los conocimientos para hacerlo en visual Basic 6
muy agradecido por su invaluable ayuda

[emanuel_9614]

Hola JonathanB, muchas gracias por tu respuesta inmediata. Hago los pasos que me escribiste pero, en Configuración de compilador avanzada no se encuentra lista de CPU de destino.
Que mas podria hacer?? muchas gracias!!! Y saludos!