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

Question

大家好，
怎样修改库中表的名字而不改变表中的内容呢？！！
 请各位高手指点！！最好能举个例子！！！
谢谢！！！昨天找到一些资料，但有些东西不理解，有知道的给出合理的解释也加分呀！！快快呀，成功后马上加分，有例子的加分多呀

Answer 1

例子如下：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 = newnameconntemp不知道是什么属性的！！！
最好各位高手能给个例子，多多加分呀！！1

Answer 2

conntemp是一个ADO连接，你在前面的代码里面应该能找到的，或者是一个ADO连接控件

Answer 3

看看adox帮助吧。还是帮你贴出来好了：
Catalog 对象         
包含描述数据源模式目录的集合（Tables、Views、Users、Groups 和 Procedures）。
ActiveConnection 属性
指示目录所属的 ADO Connection 对象。
使用 Catalog 对象的属性和方法，可以： 
通过将 ActiveConnection 属性设置为 ADO Connection 对象或有效的连接字符串来打开目录。
使用 Create 方法创建新目录。

Answer 4

//Set tbl = cat.Tables.item(oldname)
//tbl.name = newname
你不会再问oldname、newname是什么吧？
先说了吧，省得你问了，是字符串，oldname旧表名，newname新表名Tables集合的Item 方法
根据名称或序号返回集合的特定成员。

Answer 5

tbl.name = newname,,不行它是不可写的，别人有什么好办法吗？？？？！！其余的都过去了！！1

Answer 6

我不明白，不就是一条语句嘛。
  ALTER TABLE table_name TO table_name2
   将原来的数据库表名 table_name 改为 table_name2
  o 了。

Answer 7

dim cn as new adodb.connection
cn.open "...."
cn.execute "sp_rename '旧表', '新表'"

Answer 8

一条SQL语句：
cn.EXECUTE "EXEC sp_rename 'OldTableName', 'NewTableName'"