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]