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

Aspetcore: NLog with Postgresql

Mongodb Cheatsheet

Installing Windows on Acer chromebook 15 cb3-532