Conexion con Acces Donde esta el error

[fedefrankk]

Hola A todos en este tema de conexiones, he probamo muchas veces y no hay caso algo estoy haciendo mal, estoy muy acostumbrado a visual 6, y quiero conectarme con acces por codigo, he copiado los codigos que dejaron pero me sale error.. aca les muestro las imagenes..
Gracias anticipadas.!!!
Saludos fede

[gnzsoloyo]

A mi entender los errores provienen de que para funcionar ese tipo de operaciones deben estar dentro de un método, que no estás construyendo en ninguna parte...
Algo así:

Código vb.Net:

Imports System.Data.OleDb
Class Form1
    Private CxOLE As OleDb.OleDbConnection
    Public Sub conectarCSV(ByVal pass As String)
        Dim CxStr As String =  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\myPath\MyJet.mdb;User=Admin;Password=" & pass 
        Try
            CxOLE = New OleDb.OleDbConnection(CxStr)
            CxOLE.Open()
        Catch ex As OleDbException
            MessageBox.Show("No se pudo establecer la conexión", "Error de conexión")
        End Try
    End Sub
End Class
 

Te falta definir:
- Variables de clase.
- Variables de métodos.
- WorkSpaces importados.
- Métodos públicos.
- Funciones.
- Propiedades...

P.D.: Trata de no usar Form1 como nombre de clase. Eso suele referirse a un formulario generado por el editor, y no como el caso que estás planteando. Es mejor usar en las clases los nombres adecuados según el diseño del diagrama de clases de tu sistema...

[fedefrankk]

Hola, gracias por tu tiempo..!!! me anda de 10, osea no me tira ningun error, lo que no se es como hacerlo funcionar, el codigo quedo asi:

Código PHP:

  Imports System.Data.OleDb
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    End Sub
End Class
Public Class Conexion
    Private CxOLE As OleDb.OleDbConnection

    Public Sub conectarCSV(ByVal pass As String)

        Dim CxStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\myPath\MyJet.mdb;User=Admin;Password=" & pass

        Try
            CxOLE = New OleDb.OleDbConnection(CxStr)
            CxOLE.Open()

        Catch ex As OleDbException

            MessageBox.Show("No se pudo establecer la conexión", "Error de conexión")

        End Try

    End Sub

End Class 
   

y en Private Sub Button1_Click, quiero llamar a la conexion.. o como lago para llamarla?...
Muchas gracias de nuevo,
Saludos a todos