15 lines
286 B
QBasic
15 lines
286 B
QBasic
Attribute VB_Name = "modDb"
|
|
Option Explicit
|
|
|
|
Public gdb As Database
|
|
Public gstrDatabase As String
|
|
|
|
Public Function DataOpen() As Boolean
|
|
gstrDatabase = "..\Employees.mdb"
|
|
|
|
Set gdb = DBEngine.Workspaces(0).OpenDatabase(gstrDatabase)
|
|
DataOpen = True
|
|
End Function
|
|
|
|
|