Torna al Thread

[CODE] Public Sub ConnessioneDB(ByVal strServer As String, ByVal strUser As String, ByVal strPsw As String, ByVal strDBName As String) connectionError = False connectionErrMsg = "" Dim gen As New ClassGenerali 'in base al nome del DB passato apro ConnettiGenerali o ConnettiCatalogo, i due oggetti odbcConnection esistenti. If strDBName = DBGenerali Then If ConnettiGenerale.State = ConnectionState.Open Then Exit Sub Dim strConn As String = "" 'VIA ODBC 'stringa completa...strConn = "driver={MySQL ODBC 3.51 Driver};server=localhost;uid=root;pwd=ilacor;database=" & CStr(strDBName) & ";option=3" Try strConn = ConfigurationManager.ConnectionStrings("ConnMySQL").ToString strConn = strConn & ";server=" & strServer & ";user=" & strUser & ";password=" & strPsw & ";database=" & CStr(strDBName) ConnettiGenerale.ConnectionString = strConn ConnettiGenerale.Open() Catch ex As Exception 'se c'è un errore metto i valori dentro alle proprietà cosi da 'poterle restituire dentro al codice... connectionError = True connectionErrMsg = "Errore in fase di connessione al Database MySQL; " & vbCrLf & vbCrLf & ex.Message If ViewMsgDebug = True Then gen.MostraMessaggio(HttpContext.Current.Handler, Resources.ResourceMsg.Errore, connectionErrMsg) '+++ scrittura log Call gen.ScriviLog("ClassConnessione.ConnessioneDB", ex.Message) '+++SEND MAIL CON ERRORE ESTESO 'gen.SendMailProblemi(connectionErrMsg & "<br><br>DB richiamato:" & strDBName) End Try ElseIf strDBName = DBCatalogo Then If ConnettiCatalogo.State = ConnectionState.Open Then Exit Sub Dim strConn As String = "" 'VIA ODBC 'stringa completa...strConn = "driver={MySQL ODBC 3.51 Driver};server=localhost;uid=root;pwd=ilacor;database=" & CStr(strDBName) & ";option=3" Try strConn = ConfigurationManager.ConnectionStrings("ConnMySQL").ToString strConn = strConn & ";server=" & strServer & ";user=" & strUser & ";password=" & strPsw & ";database=" & CStr(strDBName) ConnettiCatalogo.ConnectionString = strConn ConnettiCatalogo.Open() Catch ex As Exception 'se c'è un errore metto i valori dentro alle proprietà cosi da 'poterle restituire dentro al codice... connectionError = True connectionErrMsg = "Errore in fase di connessione al Database MySQL; " & vbCrLf & vbCrLf & ex.Message If ViewMsgDebug = True Then gen.MostraMessaggio(HttpContext.Current.Handler, Resources.ResourceMsg.Errore, connectionErrMsg) '+++ scrittura log Call gen.ScriviLog("ClassConnessione.ConnessioneDB", ex.Message) '+++ SEND MAIL CON ERRORE ESTESO 'gen.SendMailProblemi(DataReaderErrMsg & "<br><br>DB richiamato:" & strDBName) End Try End If gen = Nothing End Sub [/CODE]
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5