设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
楼主: fannky
打印 上一主题 下一主题

[模块/函数] 让你设计的数据库也能自动UpDate [附事例]

[复制链接]
21#
发表于 2008-3-5 00:41:26 | 只看该作者
好东西,多谢分享,学习学习。
22#
发表于 2008-3-5 08:20:57 | 只看该作者
看看.............
23#
发表于 2008-3-5 08:40:21 | 只看该作者
运行时错误‘3078’
microsoft Jet数据库引擎找不到输入表或查询‘VerNo’。确定它是否存在,以及它的名称的拼写是否正确。
Set rst = dbs.OpenRecordset("SELECT verno FROM VerNo;")
24#
发表于 2008-3-5 08:44:43 | 只看该作者
学习一下.对此话题颇感兴趣
25#
 楼主| 发表于 2008-3-5 08:52:38 | 只看该作者
首先祝贺自己第一篇加精帖子诞生!感谢各位朋友捧场,瓦哈哈~~~

原帖由 laiguiyou 于 2008-3-5 08:40 发表
运行时错误‘3078’
microsoft Jet数据库引擎找不到输入表或查询‘VerNo’。确定它是否存在,以及它的名称的拼写是否正确。
Set rst = dbs.OpenRecordset("SELECT verno FROM VerNo;")

表‘VerNo’在主程序中,专门用来存放版本号码的一个表.出问题的这段代码是打开更新源中的相同格式的表.所以请检查你的更新源是否指向正确.
其实源文件与主程序是一相同的文件!!!最简单就是将主程序复制一份,更改其中VerNo表中的VerNo字段值后作为更新源既可
26#
发表于 2008-3-5 09:15:52 | 只看该作者
学习学习再学习
27#
发表于 2008-3-5 10:33:51 | 只看该作者
学习,学习,又是一个好作品
28#
发表于 2008-3-5 10:58:52 | 只看该作者
学习,学习,又是一个好作品
29#
发表于 2008-3-5 11:02:57 | 只看该作者
学习学习
30#
发表于 2008-3-5 11:03:02 | 只看该作者
我也做了一个,呵呵,一起讨论讨论

收费20
还好我还有点钱

看了你的代码,与我的有些不同

你的方法是把版本信息与新版本文件的路径存于后端数据库中,打开前端库时进行读取比较,这样感觉有点不大好,要更新还得去操作别人的后端数据。

如我们这些做库给别公司使用的,我们一般不操作别人的数据库,只调试与发布前端。甚至以后用于外部网络自动查找版本更新时,这样就更不能操作别人的后端数据了。

所以我的方法是打开前端库时,把版本信息写入前端所在目录的一个TXT中,从联接表中读取后端位置,并读取后端版本信息的TXT文件,同时比软谁是最新的。
如果后端数据的版本文件是最新的,则复制后端数据目录下的新文件到本前端运行目录。
如果当前前端是最新的,则复制当前前端到后端目录的,并复制最新版本信息TXT到后端目录中。
这样的好处就是:任何一台前端(客户端)安装了最新版,则后端(服务端)同时更新了。其它电脑再使用时,全网也更新了。我也不用去操作别人的后端数据了。

[ 本帖最后由 baije 于 2008-3-5 11:23 编辑 ]
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-4 23:30 , Processed in 0.079751 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表