Hola! Espero puedan ayudarme, estoy migrando un componente pero me he encontrado con muchos problemas porque soy nueva en este lenguaje y me su
Public Function DesConectar() As Boolean
On Error Resume Next
'Dim ctxObj As ObjectContext
'Set ctxObj = GetObjectContext()
Set oDBConnection = Nothing
If Err.Number = 0 Then
DesConectar = True
' ctxObj.SetComplete
Else
DesConectar = False
' ctxObj.SetAbort
End If
End Function
Me sugieren que sea asi la migración pero me marca error
On Error Resume Next
'Dim ctxObj As ObjectContext
'Set ctxObj = GetObjectContext()
oDBConnection = Nothing
If Err.Number = 0 Then
DesConectar = True
' ctxObj.SetComplete
Else
DesConectar = False
' ctxObj.SetAbort
End If
