SQL语法使Access数据库在线升级

　2009-04-22 10:39:02　来源：WEB开发网　　　

核心提示：做为数据库升级程序就写了几行SQL语句，仅实现了数据库升级功能而已，SQL语法使Access数据库在线升级，功能很单一......（请大家见谅，多提意见！！！）这里特此贴出源码做简单解释，编写你的数据库升级程序时，只需更改对应的表名和字段名称或根据你的升级情况增加对应SQL语句，供有此应用者共同研究，程序代码<

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

程序代码
<%@ 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
%>