• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Open and Close a database

Open and Close a database

Open and Close a database

API Declarations


Public db As Database



Rate Open and Close a database

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Function OpenDB()As Boolean
On Error GoTo Erroropening
Set db = DBEngine.Workspaces(0).OpenDatabase(databas)
OpenDB = True
Exit Function
Erroropening:
OpenDB = False
MsgBox "Error: " & Err.Number & " - " & Err.Description
End Function


Function CloseDB()As Boolean
On Error GoTo Errorclose
db.Close
Set db = Nothing
closeDB = True
Exit Function
ErrorClose:
CloseDB = False
End Function