¿Tengo un problema con una conexión Oledb entre VB.net 2005 y Access 2007

[sebastiansierraocm]

Estoy tratando de llevar a cabo un ejercicio de programación sencillo (soy totalmente novato en VB Net) utilizando VB net 2005. El problema es que al intentar realizar una conexión entre VB net 2005 y access 2007 esta no funciona debido a que no reconoce la ruta donde se encuentra la base de datos, me sale el siguiente error:



Sin embargo, pienso que la sintaxis esta correcta.

Imports System.Data.OleDb
Public Class frmdis
Dim N As Integer = 0
Dim cn As New OleDb.OleDbConnection("provider=microsoft.ace.oled b.12.0;data source = C:\Users\Zoko\SeeWeedDataBase4.accdb")
Sub mostrar()
Dim da As New OleDb.OleDbDataAdapter("select*from Teacher", cn)
Dim ds As New DataSet
da.Fill(ds, "Teacher")
DataGridView1.DataSource = ds.Tables("Teacher")
End Sub

SeeWeedDataBase4.accdb es una base de datos que ya está en modo compatibilidad 2002-2003.

Utilizo windows vista home Basic

gracias de antemano

[Aquaventus]

Revisate esta pagina para ver como hacer conecciones a access : connection strings

[rikakashi]

Código vb:

Imports System.Data.OleDb
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim cnn As OleDbConnection
        connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=yourdatabasename.mdb;"
        cnn = New OleDbConnection(connetionString)
        Try
            cnn.Open()
            MsgBox("Connection Open ! ")
            cnn.Close()
        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class
 

o con este

Código vb:

Imports System.Data.OleDb
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim connection As OleDbConnection
        Dim oledbAdapter As New OleDbDataAdapter
        Dim ds As New DataSet
        Dim i As Integer
        connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Your mdb filename;"
        connection = New OleDbConnection(connetionString)
        Try
            connection.Open()
            oledbAdapter.SelectCommand = New OleDbCommand("Your SQL Statement Here", connection)
            oledbAdapter.Fill(ds)
            oledbAdapter.Dispose()
            connection.Close()
            For i = 0 To ds.Tables(0).Rows.Count - 1
                MsgBox(ds.Tables(0).Rows(i).Item(0))
            Next
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class
 

Prueba con este ejemplo modificandolo con tus datos!

[sebastiansierraocm]

Iniciado por sebastiansierraocm

Estoy tratando de llevar a cabo un ejercicio de programación sencillo (soy totalmente novato en VB Net) utilizando VB net 2005. El problema es que al intentar realizar una conexión entre VB net 2005 y access 2007 esta no funciona debido a que no reconoce la ruta donde se encuentra la base de datos, me sale el siguiente error:



Sin embargo, pienso que la sintaxis esta correcta.

Imports System.Data.OleDb
Public Class frmdis
Dim N As Integer = 0
Dim cn As New OleDb.OleDbConnection("provider=microsoft.ace.oled b.12.0;data source = C:\Users\Zoko\SeeWeedDataBase4.accdb")
Sub mostrar()
Dim da As New OleDb.OleDbDataAdapter("select*from Teacher", cn)
Dim ds As New DataSet
da.Fill(ds, "Teacher")
DataGridView1.DataSource = ds.Tables("Teacher")
End Sub


cuando doy clic en debug, sale el siguiente error :
no se controló Oledb exception
no se pudo encontrar el archivo
C:\Users\Zoko\SeeWeedDataBase4.accdb

SeeWeedDataBase4.accdb es una base de datos que ya está en modo compatibilidad 2002-2003.

Utilizo windows vista home Basic



gracias de antemano

[Aquaventus]

Porque citas nuevamente tu mensaje?? acaso no te fue util lo que te puso rikakashi. Debes explicar si te sirvio o no nuestros aportes, para seguir ayudandote, pero mientras no nos digas nada, no tiene sentido...

[MauSan]

Hola

Cambia esta linea:

Dim cn As New OleDb.OleDbConnection("provider=microsoft.ace.oled b.12.0;data source = C:\Users\Zoko\SeeWeedDataBase4.accdb")

por esta y proba:

Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLED B.12.0;Data Source=C:\Users\Zoko\SeeWeedDataBase4.accdb;Persis t Security Info=False;")

[sebastiansierraocm]

Iniciado por Aquaventus

Porque citas nuevamente tu mensaje?? acaso no te fue util lo que te puso rikakashi. Debes explicar si te sirvio o no nuestros aportes, para seguir ayudandote, pero mientras no nos digas nada, no tiene sentido...

Disuclpa, la verdad la solución anterior es útil, si no que para llevarla a cabo tendría que modificar muchas cosas del programa.

[sebastiansierraocm]

Iniciado por MauSan

Hola

Cambia esta linea:

Dim cn As New OleDb.OleDbConnection("provider=microsoft.ace.oled b.12.0;data source = C:\Users\Zoko\SeeWeedDataBase4.accdb")

por esta y proba:

Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLED B.12.0;Data Source=C:\Users\Zoko\SeeWeedDataBase4.accdb;Persis t Security Info=False;")

Ya hize lo que me indicaste y sigue apareciendo el mismo error.

[rikakashi]

Código vb.net:

Dim cnn As New OleDb.OleDbConnection
Dim dt As New DataTable
Dim da As New OleDb.OleDbDataAdapter
Dim cmd As New OleDb.OleDbCommand
 
cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Zoko\SeeWeedDataBase4.accdb;Persist Security Info=False"
cnn.Open()
 
cmd.Connection = cnn
cmd.CommandText = "Clientes"
cmd.CommandType = CommandType.TableDirect
da.SelectCommand = cmd
da.Fill(dt)
 

intenta hacerlo asi... en la primera linea de todo tu codigo tambien debe de ir

Imports System.Data.OleDb

[rikakashi]

Iniciado por sebastiansierraocm

Ya hize lo que me indicaste y sigue apareciendo el mismo error.

por lo que veo te faltaba inicias la conexion cn.open()
pero prueba con mi ejemplo que te eh agregado tambien te puede servir

[sebastiansierraocm]

Iniciado por rikakashi

por lo que veo te faltaba inicias la conexion cn.open()
pero prueba con mi ejemplo que te eh agregado tambien te puede servir

Muchas gracias, rikayaku, por ahora me has ayudado mucho, todo anda bien, pero como el proyecto esta proceso no cerrare el post por si surge alguna duda relacionada.

[rikakashi]

exelente!!! entonces dejame un punto bueno y cualquier duda en lo que se pueda se te apoyara
Saludos!!!