lunedì 2 luglio 2012

Test di connessione al database

Questo esempio in vb6 mostra come eseguire un semplice test di connessione ad un db MS Access o MS SqlServer.
Se il test risulterà positivo la funzione tornerà "true", altrimenti "false".
In caso di errore verrà prospettato un messaggio a video.
Function testConnectionDb()
    On Error GoTo errorDB
    DoEvents
    Dim msgError, strConDbAccess As String

    'connessione a db ms access
    strConDbAccess = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" _
     & "c:\db.mdb"
    
    'connessione a db ms sqlserver
    'strConDbSqlServer = "Driver={SQL Server};Server=" & dbServerSqlServer _
    '& ";Database=" & dbNameDbSqlServer & ";Uid=" & dbIdDbSqlServer _
    & ";Pwd=" & dbPwdDbSqlServer & ";"

    Set Conn = New ADODB.Connection
    With Conn
        .CommandTimeout = 20
        .CursorLocation = adUseClient
        .Open strConDbAccess
        '.Open strConDbSqlServer
    End With
    If Conn.State = 1 Then
        Conn.Close
        testConnectionDb = True
    Else
        testConnectionDb = False
    End If
    Exit Function
errorDB:
        msgError = "Modulo Avvio DataBase" & Chr(13) & _
          "Numero Errore: " & Err.Number & " Descrizione: " & Err.Description
        MsgBox msgerrore, vbCritical + vbOKOnly, _
        "Errore di Connessione al DataBase!"
End Function