利用SQL数据库远程更新文件?
目前想法:在SQL2000数据库中建立1个表,如:create table file_ver(ver varchar(20),new_file text,file_name varchar(30))如启动系统时,运行 update_glwy.exe,读取SQL数据库中表file_ver的版本号ver,如果本地版本号和ver不同,就读取文件字段new_file下来,重新生成glwy.exe,然后退出
update_glwy.exe,再执行glwy.exe,到达更新的目的。。
**上传新文件,
new_ver="1.1.03"
fl="G:\glwy\glwy.exe"
lcTextString=Strconv(Filetostr(fl),13)
if sqlexec(nhandle,'update file_ver set ver=?new_ver,new_file=?lcTextString')>0
messagebox("上传文件成功")
else
messagebox("上传文件失败")
endif
**下载文件
old_ver="1.1.02" &&本地的版本号
if sqlexec(nhandle,'select ver from file_ver','sql_file')>0 &&检测是否需要更新
if !isnull(sql_file.ver)
if allt(old_ver)<>allt(sql_file.ver) &&版本号不同,需要更新
if sqlexec(nhandle,'select * from file_ver','up_file')>0
if !isnull(up_file.new_file)
lcTextString=allt(up_file.new_file)
Strtofile(Strconv(lcTextString,14),"G:\glwy\glwy.exe")
messagebox("更新文件成功")
else
messagebox("更新文件失败")
endif
endif
endif
endif
endif
哈哈,这个怎么样啊,还没测试。。。