Entradas

Mostrando entradas de mayo 13, 2014

CONEXION ACCESS Y VB.NET

CLASE CONEXION
*****************
Public Function conectardb() As String
        Dim cn As New OleDbConnection
        Dim mensaje As String = ""
        Try
            If cn.State = ConnectionState.Closed Then
                cn.ConnectionString = "ProSvider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\CLINICA.accdb"
                cn.Open()
                mensaje = "Conexion OK BD ACCESS"
                cn.Close()
                cn.Dispose()
            End If
        Catch ex As Exception
            mensaje = ex.Message
        End Try
        Return mensaje
    End Function

BOTON CONECTAR
******************
  Dim obj As New Conexion
        Dim mensaje As String
        mensaje = obj.conectardb
        Response.Write(mensaje)


by. Ing. Jhonatan Abal Mejia