求:关于用VBA写一个自动升级的例子的思路??

kingboyszxf

如题

环境是:在局域网内实现,自动更新! Access2003+WinXp Sp2

有思路的朋友,麻烦给详细说一下,谢谢..

[此贴子已经被作者于2006-8-31 14:59:27编辑过]

kingboyszxf

没有愿意说的吗??[em06][em06][em06]

一点通

1.创建一个升级表:ID,版本号,升级内容

2.在密码表中增加一个字段:版本号

3.在登陆窗体中,在确认密码后再检查版本号是否是最新的,不是的话从局域网复制前台程序到本机,并更新版本号字段,从而实现升级

4.管理员只需将最新程序上传到局域网,并在升级表中写入新的版本号及内容,其它工作由程序自动完成

kingboyszxf

TO : 一点通

请教一下,不知道版本号,一般的是怎样生成的?有没有一个统一的生成方法?

能不能给举个例子,如果是你生成版本号的话,你的规则是什么??我现在生成版本号一点头绪都没有  #14

一点通

版本号是自定义的,你喜欢如何定都可以,也可以用系统自动生成的ID编号,也可以手工自己写的,总之论坛上非常多这样的编号例子

kingboyszxf

了解~~~~TKS

tz-chf

登陆窗体是不是在前台程序里？

如是的话，把本程序替换掉可以吗？

一点通

以下是引用tz-chf在2006-9-2 8:27:00的发言：


登陆窗体是不是在前台程序里？

如是的话，把本程序替换掉可以吗？

可以的,前题是替换前先启动一个升级数据库,然后关闭本前台数据库,由升级数据库来处理替换

        Dim db2_path As String                                    '另外一个数据库文件的路径
        db2_path = CurrentProject.Path & "\前台升级.mde"          '要求打开的文件相对路径
        Dim new_db                                                '用于创建文件
        Set new_db = CreateObject("access.application")           '创建一个新的ACCESS文件
        new_db.OpenCurrentDatabase db2_path                       '在新文件中打开数据库文件
        new_db.Visible = True
        Application.Quit                                          '关闭当前的文件

tmtony

建立另用升级程序来升级本身程序. 或者也可用原来的程序在点升级时自动创建一个临时的升级MDB

用这个升级MDB来升级,升级完后把进程交给主程序,再由主程序杀死临时的升级程序
只是一个思路

tz-chf

哦，是这样的。

那也可以做个VB程序，简单判断创建时间，决定是不是要替换，再打开前台。

或打开一个数据库，判断后，看要不要替换，再打开前台，用不着倒来倒去了。

[此贴子已经被作者于2006-9-2 10:24:21编辑过]