Version Control 	Software     Home

' program SJGSetver.vbs
' copyright (c) 2000, Steve Goodhall, all rights reserved
' No warranty expressed or implied
' Bug reports and comments to SGoodhall@home.com

' This script is invoked to set the value of the "SJGVersion" property of an Access database. Usage is:
'
' SJGSetver [path-file-name] [version-number]
'    where: [path-file-name] is the complete path and file name for the Access database
'           [version-number] is an integer value of the version number to be set
'
' The value of the SJGVersion property is set to [version-number].  If the SJGVersion property is missing,
' it is created and set to [version-number]

option explicit
dim oArgs, oACC, oWSP, oDB, oVP, wVer
set oArgs = wscript.arguments
wscript.echo oArgs(0)
set oACC = CreateObject("access.application")
set oWSP = oAcc.application.dbengine.workspaces(0)
set oDB = oWSP.opendatabase(oArgs(0), 0 ,0)
on error resume next
set oVP = oDB.createproperty("SJGVersion",4,oArgs(1))
oDB.Properties.append oVP
oDB.properties("SJGVersion") = oArgs(1)
wVer = 0
on error resume next
wVer = oDB.Properties("SJGVersion")
wscript.echo "SJGVersion = " & wVer
set oArgs = nothing
set oACC = nothing
set oWSP = nothing
set oDB = nothing
set oVP = nothing