Lokal version vs Server Version
Jeg har lige et spørgsmål, hvor jeg er strandet...har en ServerVersion af en database der ofte opdateres og klient-versioner ( KOPIER) på arbejdsstationer.
for at klienterne bliver gjort opmærksomme på den nye version, de ikke kan leve uden, vil jeg gerne pr. automatik informere klienterne om den nye fil.. eventuelt scripte mig ud at den bliver "rullet ud " pr. automatik..
Men hvordan pokker laver jeg dette check smartest ?
Roder lidt med nedenstående kode, jeg har "hapset" på nettet, da jeg umiddelbart mente, at der var noget godt i dette ,- det er rettet lidt til, men jeg fatter ikke lige, hvorfor skidtet ikke virker ..
- Hvor gemmes versionsnummeret på den aktuelle filversion af databasen ?
koden :
-----------
Private Sub Form_Timer()
Dim appAccess As Access.Application
Dim varServerVersion As Variant
Dim varLocalVersion As Variant
Const conOPEN_EXCLUSIVE As Boolean = False
'************* * *************
'Initialize String to Patabase Path
Const PATH_TO_DataBase = "C:\_TheScripts\db_one.accdb"
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase PATH_TO_DataBase, False
'Retrieve the Project Version via Automation and store in Variable
varServerVersion = appAccess.SysCmd(acSysCmdAccessVer)
appAccess.Quit
Set appAccess = Nothing
'******* All done as far as the Project on the Server is concerned ********
'***************** Now, let's retrieve the Local Version ******************
varLocalVersion = Application.SysCmd(acSysCmdAccessVer)
' MsgBox varServerVersion & " " & varLocalVersion
'For testing purposes only
MsgBox "Server Version: " & varServerVersion & " <==> Local Version: " & varLocalVersion
'Let's compare both the Local and Server Versions
If varLocalVersion < varServerVersion Then
MsgBox "Den lokale version er ældere en ServerVersionen - Upgrade time!", _
vbExclamation, "Local Version < Server Version"
ElseIf varLocalVersion = varServerVersion Then
MsgBox "Versionen er opdateret i forhold til Serverversionen !", _
vbInformation, "Versions Same"
Else 'Local Version greater than the Server Version, should never happen?
MsgBox "Time to Upgrade the Server", vbExclamation, "Upgrade Server"
End If
'At some point do you wish to disable the Timer?
'Me.TimerInterval = 0
End Sub
----------------------------------------------
mvh martens