Method
Closes the company that is currently open.
Category
Database
Syntax
Sub CloseCompany
Example
'Closes a company and disconnects from the server or closes the database
CF1.CloseCompany
logWr "CloseCompany: OK"
If .Text1(cf.ServerName) <> "" Then
CF1.DisconnectServer
logWr "Disconnected from Server"
Else
CF1.CloseDatabase
logWr "Database Closed"
End If
Comments
CloseCompany closes the company that was opened by OpenCompany. You must close any tables
that are open before calling this function.