ReUsed Flexcode ADOC Connection

Back in 2019 I was working for a consulting firm which this came in handle, I dont think I will ever need to go back to an ERP system and specially dont think I will need to work with flexcode again. Still this was something that I found and might help someone else.

Public Sub Database_Connection() 

Do 

    If cn1.State = 1 Then Exit Sub 

    On Error Resume Next 

    Set cn1 = macForm.ConnInfo.OpenADOConn 

    On Error GoTo 0 

Loop 

End Sub

Popular posts from this blog

Gitlab: Switching to Access Tokens with Your Repos

Updating Razor 2.0 to 3.0 with Asp.net MVC

Aspnet: legacyHMACWarning