用SQL实现Access数据库在线升级_access在局域网上实现自动升级源程序-CSDN博客

用SQL实现Access数据库在线升级

作者：吕海鹏时间：2006-7-23 21:18:23 阅读次数：241

　　本来深度学习整站程序程序只是为了学习Dreamweaver+asp可视化开发而做的一个实战练习程序。承蒙网友抬爱，很多在网站上采用了本程序，且一直关注程序的后续版本，而随之升级。

　　由于一直是作为学习程序所以总认为数据库升级没必要，但毕竟程序使用者很多都是初学者，对程序和数据库不甚了解。所以很多网友在论坛上发帖建议开发一个数据库升级程序，这样就不用以后再手工升级数据库了......

例如：

网友starch在论坛发帖“深度空间0.12版本问题的讨论和发展展望”：

　　如果各个版本数据库不能升级,那么用户不可能一直关注该软件的发展,况且作为一个用户,他收集了大量的资料,如果需要一点点的复制,费了很大力气,他不会去升级的

　　仔细反思，如果不能进行系统升级，会给很多网友带来不便，而写一个这样的一个小程序对我来说也是一个锻炼学习的机会。

　　因此在圣诞节来临之际写了一个小程序--更新数据库，用来v.12 to v.13深度学习整站程序的数据库升级问题，这样从v0.13这个版本以后大家就不用再手工升级了。

　　做为数据库升级程序就写了几行SQL语句，仅实现了数据库升级功能而已，功能很单一......（请大家见谅，多提意见！！！）这里特此贴出源码做简单解释，供有此应用者共同研究。

www.DeepTeach.com

###################################################################
程序名称：深度学习整站系统数据库升级程序
软件版本： V0.12 To V0.13

软件语言：简体中文
系统平台： ASP+ACCESS
程序下载： http://www.DeepTeach.com/
程序演示： http://www.DeepTeach.com/（深度空间采用）
官方网址： http://www.DeepTeach.com/

###################################################################

本升级程序仅针对v0.12版本至 v0.13最新版本的数据库升级(执行后无需手工更新数据库)，请之前版本的用户先升级到v0.12再进行此操作

1、做好老版本的文件和数据库的备份

2、在网站或本地网站新建一目录，如update，然后将本压缩包中所有文件以及老系统数据库上传至该目录

3、确定数据库文件名和路径

4、使用浏览器运行http://网址/升级目录/updateDB.asp

5、在输入框输入对应数据库文件名，开始升级

6、修改新版中connDB.asp文件中的数据库链接

7、将深度学习整站系统最新版文件和升级好的数据库上传到原来的相关目录

###################################################################
程序源码：

<%@ LANGUAGE = VBScript CodePage = 936%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<TITLE>深度学习整站系统数据库升级程序</TITLE>
</head>
<body>
<p> </p>
<div align="center">
<p>深度学习整站程序V0.12 To V0.13数据库升级程序</p>
<hr width="500" />
<form name="form1" method="post" action="">
<p>数据库文件名：<input type="text" name="filename" /></p>
<p><input type="submit" name="submit" value="开始更新数据库" /></p>
</form>
<%
if request("filename")<>"" then
Dim update
update=request("filename")
call DT_updateDB(update)
End If
%>
</div>
</body>
</html>
<%
’数据库连接函数
’Response.Buffer = false
Sub DT_updateDB(DT_DBname)
Dim ConnStr,Conn
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DT_DBname)
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
response.write (update) & "数据库打开成功！！！"
’创建数据表-用户组表这里tFriendSite是access的表名
Conn.execute("Create table [tFriendSite]")
’修改数据表-drop是减少字段这里LinkType是access的字段名
CONN.execute("alter table [tFriendSite] drop column [LinkType]")
’修改数据表-add是增加字段这里LinkType是access的字段名
CONN.execute("alter table [tFriendSite] add column [fLinkType] Integer Default 0")
response.Write ("<p>成功升级") &(update)&("数据库！！！</p>")
conn.close
Set conn=Nothing
end sub
%>

'如果数据库内已有对应表或字段，IIS会提示错误

###################################################################

　　对于不熟悉asp和SQL语言的初学者，编写你的数据库升级程序时，只需更改对应的表名和字段名称或根据你的升级情况增加对应SQL语句，即可实现数据库自动升级。