Imports System.Data
Imports System.Data.OleDb
Imports System.Windows.Forms
Imports System.Data.Common.DbDataReader


Module modConnessione
    
    Public Connetti As New OleDb.OleDbConnection
    Public ConnettiTrans As New OleDb.OleDbConnection

    Public Sub ConnessioneDB()

            Try
            If Connetti.State = 1 Then Exit Sub
            'Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\db\MagOrA.mdb;"
            'Dim strConn as string="driver={MySQL ODBC 3.51 Driver};option=3;server=localhost;uid=root;pwd=ilacor;database=magora"

            Dim strConn As String = ""
            If IsPercorsoDiLavoroDefaultDB = True Then
                strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\db\" & NomeDB & ";"
            Else
                strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PercorsoDiLavoroAlternativoDB & "\" & NomeDB & ";"
            End If
            Connetti.ConnectionString = strConn
            Connetti.Open()

            Catch ex As Exception
            Call ScriviLog("ModConnessione.ConnessioneDB", ex.Message)
            MsgBox("ERRORE DURANTE LA CONNESSIONE AL DATABASE DI MAGORA!" & vbCrLf & vbCrLf & ex.Message)
        End Try
    End Sub

end class