azcomputerguru/claudetools
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sync: auto-sync from GURU-5070 at 2026-06-14 05:33:01

Browse Source 
Author: Mike Swanson
Machine: GURU-5070
Timestamp: 2026-06-14 05:33:01
This commit is contained in:
Mike Swanson
2026-06-14 05:34:46 -07:00
parent 93eb2fb9bb
commit fccf9f9468
278 changed files with 370095 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
clients/valleywide/app-modernization/source-code/Orders-VWP_Current-2020/dbname.bas Normal file
View File

@@ -0,0 +1,14 @@
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