Access数据库软件版本号保存在INI文件中，然后从INI文件中提取版本号

Access 2022-04-18 22:10:30

很久以前帮客户做的一个客户管理系统，有一个取软件版本号的函数，感觉还有点用，与大家分享一下

Access数据库软件版本号保存在INI文件中，然后从INI文件中提取软件的当前版本号（可用来与服务器的最新版本号对比，然后提示是否需要更新）

'软件版本号保存在INI文件中，然后从INI文件中提取版本号
Private Sub GetCurrVer()
'作者：tmtony 2003-02-03
Dim sLine As String, iPos As Integer, sTmp As String
Dim sFormName As String, sTmp2 As String
Dim bFormFound As Boolean
Dim intType As Integer
Dim iPos2 As Integer
Dim iSubIndex As Integer
Dim iIndex As Integer
Dim sFile As String

sFile = CurrentProject.Path & "\cn2005.ini"

Open sFile For Input As #1
Do

Input #1, sLine

If Left$(sLine, 1) = ";" Or sLine = "" Then GoTo Jump

iPos = InStr(sLine, "=")

'sTmp = Mid$(sLine, iPos + 1, InStr(sLine, "=") - iPos - 1)

If iPos > 0 Then
sTmp = Left$(sLine, iPos - 1)
'If sTmp = "Version" Then
sTmp2 = Mid$(sLine, InStr(sLine, "=") + 2)
'End If
If Right$(sTmp2, 1) = Chr$(34) Then sTmp2 = Left$(sTmp2, Len(sTmp2) - 1)
Select Case sTmp
Case "Version"
txtCurrVersion = sTmp2
Case "VersionDate"
txtCurrVersionDate = sTmp2
Case "Path"
Me.txtCurrPath = sTmp2

End Select

GoTo Jump
End If

Jump:

Loop Until EOF(1)

Close #1
txtCurrPath = Nz(CurrentProject.Path)
End Sub

标签： Access 数据库软件版本号保存在 INI 文件

上一篇：Access或VB VBA 获取了窗体或控件的句柄 Hwnd, 如果用API 设置焦点到这个控件或窗体下一篇：Access对象知识详解

Access数据库软件版本号保存在INI文件中，然后从INI文件中提取版本号

热门文章

最新文章

标签列表