欧非资源网:安全、免费、专业放心的资源下载站! 最新软件|软件分类

您的位置:欧非资源网 > 其他专区 > Access > Access数据库软件版本号保存在INI文件中,然后从INI文件中提取版本号

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

时间:2019-11-10 23:24作者:admin来源:未知人气:331我要评论(0)

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

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怎么做点击选择学历的效果​access怎么取消冻结字段​access怎么冻结字段​access怎么删除子数据表​access怎么在表格中插入子数据表​access设置快速访问栏在功能区下方显示​access设置快速访问栏在功能区上方显示​access怎么将设计视图加到快速访问栏​access怎么将导出Excel表格加到快速访问栏​access怎么将数据表视图加到快速访问栏

文章评论
发表评论

热门文章 Microsoft Office Access 2019 官方版激活版 免费下载如何设计一个简单的Access登录窗体Access创建数据库实现图解教程access怎么求平均成绩

最新文章 ​access怎么做点击选择学历的效果​access怎么取消冻结字段 ​access怎么冻结字段​access怎么删除子数据表​access怎么在表格中插入子数据表​access设置快速访问栏在功能区下方显示

人气排行 Microsoft Office Access 2019 官方版激活版 免费下载如何设计一个简单的Access登录窗体Access创建数据库实现图解教程access怎么求平均成绩怎么在Access报表的页面页脚区添加一个计算控件Access 2007、2010、2016三个版本的使用心得Access查询标准(条件)详解电脑没有access怎么办? access文件打不开怎么办?

盖楼回复X

(您的评论需要经过审核才能显示)