WEB开发网
开发学院WEB开发ASP SQL语法使Access数据库在线升级 阅读

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
%>


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

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

Tags:SQL 语法 Access

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接