Imports System.Data.OleDb
Imports System.Security.Cryptography
 
Public Class Cls_Conexion
    Public Conexion As New OleDb.OleDbConnection
    Dim ControlError As String
 
    Public Function Abrir(ByVal Servidor As String, ByVal BaseDatos As String, ByVal Usuario As String, ByVal Password As String) As Boolean
        Try
            Conexion.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= c:\trabajito; Extended Properties= ""Excel 12.0;HDR=YES;""")
            Conexion.Close()
            Conexion.Open()
            Conexion.Close()
            Abrir = True
        Catch ex As Exception
            Abrir = False
            MsgBox("Acceso no Permitido", vbCritical, "Módulo de Registro Civil")
        End Try
    End Function
 
    Public Function AbrirSql(ByVal Sql As String) As DataTable
        On Error GoTo ControlError
        Dim ObjDataSet As New DataSet
        Conexion.Open()
        Dim ConsultaSql As New OleDb.OleDbCommand(Sql, Conexion)
        'ConsultaSql.CommandType = CommandType.StoredProcedure
        Dim ObjDataAdapter As New OleDb.OleDbDataAdapter(ConsultaSql)
        Dim ObjDataTable As New DataTable
        ObjDataAdapter.Fill(ObjDataTable)
        AbrirSql = ObjDataTable
        Conexion.Close()
        Exit Function
ControlError: MsgBox(Err.Description & " No se Puede Realizar esa Operación", MsgBoxStyle.Critical, "Módulo Registro Civil")
        Conexion.Close()
    End Function
 
    Public Function EjecutarSqlOLEDB(ByVal cComando As OleDbCommand) As Boolean
        Dim transaction As OleDbTransaction
        Conexion.Open()
        transaction = Conexion.BeginTransaction()
        Try
            cComando.Transaction = transaction
            cComando.Connection = Conexion
            cComando.ExecuteNonQuery()
            transaction.Commit()
            Conexion.Close()
            EjecutarSqlOLEDB = True
        Catch ex As Exception
            transaction.Rollback()
            Conexion.Close()
            EjecutarSqlOLEDB = False
            MsgBox(Err.Description & " No se Puede Realizar esa Operación", MsgBoxStyle.Critical, "Módulo Registro Civil")
            'MessageBox.Show("No se puede realizar la conexion a la Base de Datos... Contáctese con el Administrador del Sistema", "SIGAF - ESCALAFON", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Function  
 
End Class

imports system.data.sqlclient
module Conexion0
dim con as sqlconnection
dim ad as new sqldataadapter
dim dt as datatable
dim comando as string
Public conexion As String = "data source = 127.0.0.1; initial catalog = GunzDB; user id = sa; password = zombie000"
 
'datasource = servidor , initial catalog=BaseDeDatos , userid= usuario , password = contraseña
 
public sub conectar
con = new sqlconnection()
con.connectionstring(conexion)
 
try
con.open()
msgbox("Conexion Exitosa (:")
con.close()
catch
msgbox("Error en la conexion")
end try
 
end sub
 
'Ejemplo de una query
public sub query
dt = new datatable
'Query para obtener todos los datos de la tabla Cuentas para al final mostrarla en un Datagridview
comando = "SELECT * FROM Cuentas"
ad = new sqldataadapter(comando,conexion)
ad.fill(dt)
Form1.datagridview1.datasource = dt
 
end sub
 
end module