怎样修改库中表的名字（在线等，成功后马上给分）！！急急

Question

大家好，
怎样修改库中表的名字而不改变表中的内容呢？！！
 请各位高手指点！！最好能举个例子！！！
谢谢！！！

Answer 1

sorry,没看清，alter table不可以的
运行SQL语句select into新表，运行SQL语句"drop table 旧表"删除旧表
SQLServer,可以用SQL_DMO对象

Answer 2

SELECT field1[, field2[, ...]] INTO newtable [IN externaldatabase]
FROM source
DROP {TABLE table | INDEX index ON table}

Answer 3

运行SQL语句select into新表，运行SQL语句"drop table 旧表"删除旧表这种方法太麻烦了吧！！有没有简单的改名操作呢？只改表的名操作，而不影响其中的数据！！！

Answer 4

那你就别用SQL了，直接调用API来改名就行了。

Answer 5

如果你是access库那么可以这样
Sub RenameTable (conStr, oldName, newName)
  'Create object and connect to DB...
  Dim objADOXDatabase
  Set objADOXDatabase = Server.CreateObject("ADOX.Catalog")
  objADOXDatabase.ActiveConnection = conStr  'Change the name...
  objADOXDatabase.Tables(oldName).Name = newName  'Clean up...
  Set objADOXDatabase = Nothing
End Sub
注意jet 4.0才有这个功能 3。51不可以
如果是sql 就更简单了一句话，具体忘了可以查sql文档sp_XXXX

Answer 6

别忘了应用adox
microsoft ado ext.2.5 for ddl and security
ado主要用于数据库中的数据操作
adox主要针对数据库结构操作

Answer 7

重命名表
下例将表 customers 重命名为 custs。EXEC sp_rename 'customers', 'custs'

Answer 8

up ,大家都在干什么，sp_rename不就行了

Answer 9

正確答案來了,答對了一定要給分.
dim cmd as adodb.command
dim cn as adodb.connectionset cn=adodb.connection
   cn.cursorlocation=aduseclient
   cn.open connectstr
set cmd=new adodb.command
    cmd.activeconnection=cn
    cmd.adcmdtype=adcmdtext
    cmd.adcmdtext="sp_rename '表名','新的表名'"
    cmd.execute
這樣就可以了.

Answer 10

Dim tbl As ADOX.table
Dim cat As ADOX.CatalogSet cat = New ADOX.Catalog
cat.ActiveConnection = conntempSet tbl = cat.Tables.item(oldname)
tbl.name = newname

Answer 11

Dim tbl As ADOX.table
Dim cat As ADOX.CatalogSet cat = New ADOX.Catalog
cat.ActiveConnection = conntemp(什么意思？）Set tbl = cat.Tables.item(oldname)
tbl.name = newname

Answer 12

在SQL SERVER的企业管理器中直接改不就行了，他有没有说非要用代码！！！