mssql server重命名方法create proc killspid (@dbname varchar(20)) as begin declare @sql nvarchar(500),@temp varchar(1000) declare @spid int set @sql='declare getspid cursor for select spid from sysprocesses where dbid=db_id (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("重名名表成功！")%>