Visual Basic Foro

General => Códigos - Aportes - Recursos => Mensaje iniciado por: obethermy en Julio 16, 2016, 07:43:57 pm

Título: REGONECTAR REGISTROS DE CONEXIONES PERDIDAS
Publicado por: obethermy en Julio 16, 2016, 07:43:57 pm

Código: (vb) [Seleccionar]

Function rec_des(strSQl As String) As ADODB.Recordset
On Error GoTo ErrorSQL
If RE_Conexion1 = False Then
    MsgBox "No se logró una conexión." & vbCrLf & "Intentado recuperar conexion.", vbCritical, "Mensaje"
    RE_Conexion
    Exit Function
End If
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strSQl, con, ADODB.adOpenForwardOnly, ADODB.adLockBatchOptimistic
Set rs.ActiveConnection = Nothing
Set rec_des = rs
'con.Close
'Set con = Nothing
Exito:
    Exit Function
ErrorSQL:
    If Err.Number = -2147467259 Then
         MsgBox "Se perdio conexion." & vbCrLf & "Intentado recuperar conexion."
         con.Close
         Set con = Nothing
         RE_Conexion
         Resume Next
    Else
        ErroresSql Err.Number
        Resume Exito
    End If
End Function