problema con el jet.oledb.4.0 en x64 win7
Publicado por joven-prg (1 intervención) el 12/02/2011 02:04:53
mi problema esq no `puedo ejecutar ese paquete o como se llame ...me sale este error ...
"El proveedor "microsoft.jet.oledb.4.0" no esta registrado en el equipo local"
y es porq no hay version de 64bits para el jet. Tengo la edicion profesional 2005, he oido q hay q ejecutar la aplicacion para 32bits, yendo a opciones del compilador, pero no consigo dar con ello. si alguien tiene alguna idea, se lo agradeceria. De todos modos aqui dejo mi codigo:
Try
Dim conexion As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\misdatos.accdb"
Dim conex As OleDbConnection = New OleDbConnection(conexion)
Dim comando As String = "select * from guia_personas"
conex.Open()
Dim orden As OleDbCommand = New OleDbCommand(comando, conex)
orden.CommandType = CommandType.Text
Dim lector As OleDbDataReader = orden.ExecuteReader
Dim i As Integer = 0
While lector.Read
i = i + 1
End While
ListBox1.Items.Add(i)
Catch ex As Exception
MsgBox(ex.Message)
End Try
...O si hay otros aparte del jet q se pueda utilizar sin problemas, esq no se soy novato en esto. Aqui trato de conectar con una base de datos creada en access, la utilizo como ejemplo
***(lo q hay dentro del while no importa es solo para simplificar, ok?)***
"El proveedor "microsoft.jet.oledb.4.0" no esta registrado en el equipo local"
y es porq no hay version de 64bits para el jet. Tengo la edicion profesional 2005, he oido q hay q ejecutar la aplicacion para 32bits, yendo a opciones del compilador, pero no consigo dar con ello. si alguien tiene alguna idea, se lo agradeceria. De todos modos aqui dejo mi codigo:
Try
Dim conexion As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\misdatos.accdb"
Dim conex As OleDbConnection = New OleDbConnection(conexion)
Dim comando As String = "select * from guia_personas"
conex.Open()
Dim orden As OleDbCommand = New OleDbCommand(comando, conex)
orden.CommandType = CommandType.Text
Dim lector As OleDbDataReader = orden.ExecuteReader
Dim i As Integer = 0
While lector.Read
i = i + 1
End While
ListBox1.Items.Add(i)
Catch ex As Exception
MsgBox(ex.Message)
End Try
...O si hay otros aparte del jet q se pueda utilizar sin problemas, esq no se soy novato en esto. Aqui trato de conectar con una base de datos creada en access, la utilizo como ejemplo
***(lo q hay dentro del while no importa es solo para simplificar, ok?)***
Valora esta pregunta


0