(VB .Net) Módulo Conexión

1
Imports System.Data.SqlClient
2
Imports System.Data.OleDb
3
Imports MySql.Data.MySqlClient
4
Module Conexion
5
    Friend dbMySQLConn As MySqlConnection, dbSQLConn As SqlConnection
6
    Friend MySQLStrConn As String, SQLStrConn As String
7
    Public Sub ConectarSQL(Optional ByVal StrConn As String = "")
8
        If StrConn = "" Then
9
            StrConn = "Server = .\SQLEXPRESS; Integrated Security = True"
10
        End If
11
        dbSQLConn = New SqlConnection(StrConn)
12
        Try
13
            dbSQLConn.Open()
14
        Catch ex As Exception
15
            MessageBox.Show("Error al conectar: " & vbCrLf & ex.Message)
16
        End Try
17
    End Sub
18

19
    Public Sub ConectarMySQL(Optional ByVal StrConn As String = "")
20
        If StrConn = "" Then
21
            StrConn = "Server = localhost; User = root; port = 3306"
22
        End If
23
        dbMySQLConn = New MySqlConnection(StrConn)
24
        Try
25
            dbMySQLConn.Open()
26
        Catch ex As Exception
27
            MessageBox.Show("Error al conectar: " & vbCrLf & ex.Message)
28
        End Try
29
    End Sub
30

31
    Public Function ExecuteReaderSQL(ByVal query As String) As SqlDataReader
32
        Dim p As SqlCommand
33
        p = New SqlCommand(query)
34
        p.Connection = dbSQLConn
35
        Dim read As SqlDataReader = p.ExecuteReader()
36
        Return read
37
    End Function
38

39
    Public Function ExecuteReaderMySQL(ByVal query As String) As MySqlDataReader
40
        Dim p As MySqlCommand
41
        p = New MySqlCommand(query)
42
        p.Connection = dbMySQLConn
43
        Dim read As MySqlDataReader = p.ExecuteReader()
44
        Return read
45
    End Function
46

47
    Public Sub DesconectarSQL()
48
        dbSQLConn.Close()
49
    End Sub
50

51
    Public Sub DesconectarMySQL()
52
        dbMySQLConn.Close()
53
    End Sub
54
End Module