Visual Basic - no puedo conectarme a una base de datos access2013

Life is soft - evento anual de software empresarial
   
Vista:

no puedo conectarme a una base de datos access2013

Publicado por Jenrry Sanchez (1 intervención) el 04/10/2015 04:11:11
Hola a todos necesito ayuda por que no puedo concetar mi formulario a una base de datos access 2013
el codigo que escribi es el siguiente

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Imports System.Data.OleDb
 
Public Class Form1
    Dim conexion As New OleDb.OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0; Data Source = BD_EVOTO.accdb ")
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            conexion.Open()
            MsgBox("Coneccion correcta a la BD")
 
        Catch ex As Exception
            MsgBox("No se concto")
            conexion.Close()
 
        End Try
    End Sub
End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

no puedo conectarme a una base de datos access2013

Publicado por Andres Leonardo (702 intervenciones) el 05/10/2015 16:17:27
Esto es en .Net???
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

no puedo conectarme a una base de datos access2013

Publicado por Marcelo (225 intervenciones) el 24/10/2015 21:09:52
Hola
Revisa el siguiente codigo y comparalo con el tuyo para ver las diferencias. Saludos!

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Imports System.Data.OleDb
Public Class Form1
    'Dim sConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Northwind.accdb;Persist Security Info=False;"
    'El archivo de access esta en la carpeta root de la aplicacion. cambiar segun se necesite
    Dim sConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=.\Northwind.accdb;Persist Security Info=False;"
    Dim mConeccion As New OleDbConnection(sConnectionString)
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            mConeccion.Open()
            'Revisamos el estado de la coneccion.
            If mConeccion.State = ConnectionState.Open Then
                MsgBox("Coneccion Abierta!")
            Else
                MsgBox("Problema - Coneccion " & mConeccion.State)
            End If
        Catch ex As Exception
            'En caso de que tengamos una excepcion al intentar la coneccion. Por Ej: El path fisico de archivo de access es invalido...
            MessageBox.Show("Excepcion: " & ex.Message)
        End Try
    End Sub
 
End Class
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar