(
exec (@sql)
open getspid
fetch next from getspid into @spid
while @@fetch_status =0
begin
set @temp='kill'+rtrim(@spid)
exec(@temp)
fetch next from getspid into @spid
end
close getspid
deallocate &nb
下面我们来看一下用重命名数据库吧。
重命名ACCESS、SQL Server数据库中表名时，都是打开数据库然后重命名表。现在利用
下面代码可以实现在网页上也实现 Access、SQL Server数据库中重命名表。代码：
1、ACCESS
<%
Dim Conn,ConnStr,oCat,oTbl
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath
("test.mdb")
Set oCat=Server.CreateObject("ADOX.Catalog")
oCat.ActiveConnection = ConnStr
Set oTbl = Server.CreateObject("ADOX.Table")
Set oTbl = oCat.Tables("test") '要重命名的表名：OldTableName
oTbl.Name = "NewTableName" '新表名
Set oCat = Nothing
Set oTbl = Nothing
response.Write("重名名表成功！")
%>
我的数据库和文件是放在同个文件夹中。
数据库使用虚拟路径，上面代码是实现：在"test.mdb"数据库中将"test"表的名字改为
”NewTableName"。
2、SQL Server
代码如下：
<%
dim conn
set conn=CreateObject("ADODB.Connection")
conn.Open
("Provider=SQLOLEDB;Server=127.0.0.1;Database=test;UID=sa;PWD=QQ40623660")
sql = "sp_rename 'OldTableName', 'NewTableName', 'OBJECT'"
conn.execute(sql)
conn.close
set conn = nothing
response.Write("重名名表成功！")
%>
