WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

WinBatch
Samples from Users
MS Access

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Sample Code to Setup MS Access INI Files and PLS Structuring User Queries Icon 

Keywords: 	 MS Access
NOTE: This sample code is from our Winbatch User Base. Wilson Windowware makes no claims as to their workability, effectiveness, or freedom from bugs. Nor does Wilson Windowware provide technical support as to their intended purpose or proposed performance.

ACC2SET.WBT

; ACC2SET.WBT		

;Debug (@ON)		

ErrorMode (@OFF)

SysRoot = Environment ("systemroot")
Path = Environment ("path")
NewPath = "W:\ACCESS2;%path%"
EnvironSet ("Path", NewPath)

AddExtender ("wwwNT34I.dll")

If !FileExist ("%SysRoot%\msacc20.ini")	   
	FileCopy  ("W:\Access2\Setup\msacc20.ini", "%SysRoot%", @FALSE)
EndIf

If !FileExist ("odbcinst.ini")
	FileCopy  ("W:\access2\DLL_16\odbcinst.ini", "%SysRoot%", @FALSE) 
EndIf

If !FileExist ("System.mda")
	FileCopy  ("W:\access2\workdir\System.mda", "%SysRoot%", @FALSE) 
EndIf

If !FileExist ("CCard100.ini")
	FileCopy  ("W:\access2\dll_16\CCard100.ini", "%SysRoot%", @FALSE) 
EndIf

If !FileExist ("Graph5.ini")
	FileCopy  ("W:\access2\dll_16\Graph5.ini", "%SysRoot%", @FALSE) 
EndIf

VerNr = IniReadPvt ("Microsoft Access", "Version", "", "%SysRoot%\WIN.INI")
If VerNr != "2.0"
   IniWritePvt ("Microsoft Access", "Version", "2.0", "%SysRoot%\WIN.INI")

   IniWritePvt ("Extensions", "MDA", "W:\ACCESS2\MSACCESS.EXE ^.MDA", "%SysRoot%\WIN.INI")
   IniWritePvt ("Extensions", "MDB", "W:\ACCESS2\MSACCESS.EXE ^.MDB", "%SysRoot%\WIN.INI")
   
   IniWritePvt ("Embedding", "MSGraph.Chart.5", "Microsoft Graph 5.0, Microsoft Graph 5.0,W:\MSAPPS\MSGRAPH5\Graph5.Exe,picture", "%SysRoot%\WIN.INI")
   
   IniWritePvt ("Microsoft System Info", "MSINFO", "W:\MSAPPS\MSINFO\MSINFO.EXE", "%SysRoot%\WIN.INI")

   IniWritePvt ("MS Setup (ACME) Table Files", "MSACCESS.EXE@v2.00.0013.0USA", "W:\Access2\setup.stf", "%SysRoot%\WIN.INI")

   IniWritePvt ("btrieve", "options", "/m:64 /p:4096 /b:16 /f:20 /l:40 /n:12 /t:W\ACCESS2\BTRIEVE.TRN", "%SysRoot%\WIN.INI")

   IniWritePvt ("ODBC Data Sources", "MS Access 2.0 Databases", "Access 2.0 for MS Office(*.mdb)", "%SysRoot%\ODBC.INI")

   IniWritePvt ("MS Access 2.0 Databases", "Driver", "W:\Access2\ODBCJT16.DLL", "%SysRoot%\ODBC.INI")
   IniWritePvt ("MS Access 2.0 Databases", "DefaultDir", "H:\Access2", "%SysRoot%\ODBC.INI")
   IniWritePvt ("MS Access 2.0 Databases", "JetIniPath", "MSACC20.INI", "%SysRoot%\ODBC.INI")

   IniWritePvt ("ODBC Drivers", "Access 2.0 for MS Office (*.mdb)", "Installed", "%SysRoot%\ODBCInst.INI")

   IniWritePvt ("Access 2.0 for MS Office (*.mdb)", "Driver", "W:\Access2\ODBCJT16.DLL", "%SysRoot%\ODBCInst.INI")
   IniWritePvt ("Access 2.0 for MS Office (*.mdb)", "Setup", "W:\Access2\ODBCJT16.DLL", "%SysRoot%\ODBCInst.INI")
EndIf

IniWritePvt ("Options", "SystemDB", "W:\DATA\SYSTEM.MDA", "%SysRoot%\MSAcc20.ini")

;RunEnviron ("cmd.exe", "", @NORMAL, @NOWAIT)

ACCESS2.WBT

; ACCESS2.WBT					  

;Debug (@ON)					

SysRoot = Environment ("systemroot")
Path = Environment ("path")
NewPath = "W:\Access2\DLL_16;W:\Orawin\bin;W:\Access2;w:\sybase\bin;w:\sybase\dll;"
EnvironSet ("Path", NewPath)

AddExtender ("wwwNT34I.dll")

If !FileExist ("%SysRoot%\msacc20.ini")
				FileCopy  ("W:\Access2\Setup\msacc20.ini", "%SysRoot%", @FALSE)
EndIf

If !FileExist ("%SysRoot%\odbcinst.ini")
				FileCopy  ("W:\access2\DLL_16\odbcinst.ini", "%SysRoot%", @FALSE) 
EndIf

If !FileExist ("%SysRoot%\System.mda")
				FileCopy  ("W:\access2\workdir\System.mda", "%SysRoot%", @FALSE) 
EndIf


VerNr = IniReadPvt ("Microsoft Access", "Version", "", "%SysRoot%\WIN.INI")
If VerNr != "2.0"

   IniWritePvt ("Microsoft Access", "Version", "2.0", "%SysRoot%\Win.ini")
   IniWritePvt ("Extensions", "MDA", "W:\ACCESS2\MSACCESS.EXE ^.MDA", "%SysRoot%\WIN.INI")
   IniWritePvt ("Extensions", "MDB", "W:\ACCESS2\MSACCESS.EXE ^.MDB", "%SysRoot%\WIN.INI")
   IniWritePvt ("Embedding", "MSGraph.Chart.5", "Microsoft Graph 5.0, Microsoft Graph 5.0,W:\MSAPPS\MSGRAPH5\Graph5.Exe,picture", "%SysRoot%\WIN.INI")
   IniWritePvt ("Microsoft System Info", "MSINFO", "W:\MSAPPS\MSINFO\MSINFO.EXE", "%SysRoot%\WIN.INI")
   IniWritePvt ("MS Setup (ACME) Table Files", "MSACCESS.EXE@v2.00.0013.0USA", "W:\Access2\setup.stf", "%SysRoot%\WIN.INI")
   IniWritePvt ("btrieve", "options", "/m:64 /p:4096 /b:16 /f:20 /l:40 /n:12 /t:W\ACCESS2\BTRIEVE.TRN", "%SysRoot%\WIN.INI")
   IniWritePvt ("ODBC Data Sources", "MS Access 2.0 Databases", "Access 2.0 for MS Office(*.mdb)", "%SysRoot%\ODBC.INI")
   IniWritePvt ("MS Access 2.0 Databases", "Driver", "W:\Access2\DLL_16:\ODBCJT16.DLL", "%SysRoot%\ODBC.INI")
   IniWritePvt ("MS Access 2.0 Databases", "DefaultDir", "H:\Access2", "%SysRoot%\ODBC.INI")
   IniWritePvt ("MS Access 2.0 Databases", "JetIniPath", "MSACC20.INI", "%SysRoot%\ODBC.INI")
   IniWritePvt ("ODBC Drivers", "Access 2.0 for MS Office (*.mdb)", "Installed", "%SysRoot%\ODBCInst.INI")
   IniWritePvt ("Access 2.0 for MS Office (*.mdb)", "Driver", "W:\Access2\DLL_16:\ODBCJT16.DLL", "%SysRoot%\ODBCInst.INI")
   IniWritePvt ("Access 2.0 for MS Office (*.mdb)", "Setup", "W:\Access2\DLL_16:\ODBCJT16.DLL", "%SysRoot%\ODBCInst.INI")
EndIf

If VerNr != "2.0a"
   IniWritePvt ("Microsoft Access", "Version", "2.0a", "%SysRoot%\msacc20.ini")
   IniWritePvt ("Paradox ISAM", "ParadoxNetPath", "R:\DATA", "%SysRoot%\msacc20.ini")
EndIf

   Call ("W:\SCRIPTS\DSS41.WBT", "")

  DirChange ("W:\Access2")
  DirChange ("H:\")

  IniDeletePvt("Libraries",		 @WHOLESECTION,			   "%SysRoot%\MSACC20.INI")
  IniWritePvt ("Options",		"SystemDB",					"R:\DATA\SYSTEM.MDA", "%SysRoot%\MSACC20.INI")
  IniWritePvt ("Libraries", "R:\DATA\wzlib.mda",	"rw",	"%SysRoot%\MSACC20.INI")	   
  IniWritePvt ("Libraries", "R:\DATA\wztable.mda",	"rw",	"%SysRoot%\MSACC20.INI")			  
  IniWritePvt ("Libraries", "R:\DATA\wzQuery.mda",	"rw",	"%SysRoot%\MSACC20.INI")	   
  IniWritePvt ("Libraries", "R:\DATA\wzfrmrpt.mda", "rw",	"%SysRoot%\MSACC20.INI")	   
  IniWritePvt ("Libraries", "R:\DATA\wzbldr.mda",	"rw",  "%SysRoot%\MSACC20.INI")		  
  
   
RunEnviron ("W:\Access2\MsAccess.exe","%param1% %param2% %param3% %param4% %param5% %param6% %param7%",@NORMAL,@NOWAIT)
;RunEnviron ("cmd.exe", "", @NORMAL, @NOWAIT)

PLSUSTRC.WBT

; plsUSTRC.WBT			 "This is for the PLS Structuring User Queries icon"

;Debug (@ON)		
ErrorMode (@OFF)

MDB = "USTRC"

SysRoot = Environment ("systemroot")
Path = Environment ("path")
NewPath = "W:\Access2\DLL_16;H:\PLS;%path%"
EnvironSet ("Path", NewPath)
user = Environment ("username")

AddExtender ("wwwNT34I.dll")

wNTCancelCon ("M:",@FALSE,@FALSE)								  
wNTAddDrive	 (@DEFAULT, @DEFAULT,"\\EGS2\SYS\APPS","M:", @FALSE)  

If !FileExist ("M:\PLS\pls%MDB%.mdb")	 
	Message ("PROBLEM:", "Missing file or bad connection to EGS2.%@CRLF%    Call the help desk for assistance.")
	GoTo Nope
EndIf

Data = IniReadPvt ("Power System", "Data", "", "%SysRoot%\Acc20Pls.ini")
If Data != "EGS2"
   FileCopy ("M:\Pls\SetUp\Acc20Pls.ini", "%SysRoot%", @FALSE)
EndIf

If !DirExist ("H:\PLS")
	DirMake	 ("H:\PLS")
EndIf

If !FileExist ("H:\PLS\pls%MDB%.mdb")
	FileCopy  ("M:\PLS\pls%MDB%.mdb", "H:\PLS\pls%MDB%.mdb",@FALSE)
EndIf

Call ("W:\Scripts\Acc2Set.wbt","")

DirChange ("W:\Access2")
RunEnviron("W:\Access2\MSAccess.EXE", "H:\PLS\pls%MDB%.mdb /INI %SysRoot%\Acc20Pls.ini /user %user%", @NORMAL, @NOWAIT)

:Nope
;	Message ("", "Dave's Not Here!")

;RunEnviron ("cmd.exe", "", @NORMAL, @NOWAIT)


Article ID:   W14728

Filename:   Scripts to Setup Access INI Files and PLS Structuring User Queries icon.txt
File Created: 2001:03:01:12:46:08
Last Updated: 2001:03:01:12:46:08