请问用ADO如何将一个表改名

tercel001 2003-10-25 10:54:07

谢谢大家

...全文

26 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

hn123 2003-11-06

打赏
举报

ADOX怎么用啊？

hqsee 2003-10-27

打赏
举报

Rename oldtablename,newtablename

yoki 2003-10-25

打赏
举报

access不能用上面的
用这个：
cn.BeginTrans
cnSourceDb.Execute "select * into newtable from oldtable"
cn.Execute "drop table oldtable"
cn.CommitTrans

射天狼 2003-10-25

打赏
举报

够呛!~~~

liybozhut 2003-10-25

打赏
举报

MS ACCESS数据库

射天狼 2003-10-25

打赏
举报

你用的是什么数据,并不是所有的数据库都支持表更名的!~!~~

yoki 2003-10-25

打赏
举报

dim cn as new adodb.connection
cn.open "..."
cn.Execute "sp_rename 'aa', 'bb'"

yoki 2003-10-25

打赏
举报

下例将表 customers 重命名为 custs。

EXEC sp_rename 'customers', 'custs'

tmxsl1214 2003-10-25

打赏
举报

ADOX是VB自带的吗？

yoki 2003-10-25

打赏
举报

嗯，用ADOX更方便

tercel001 2003-10-25

打赏
举报

谢谢大家的热情帮助，以前也得到小马哥很多次的帮助，谢谢了，我查到一些资料，与大家分享，刚试了，很好用，用ADOX
Dim tbl As ADOX.Table
Dim cat As ADOX.Catalog

Set cat = New ADOX.Catalog
cat.ActiveConnection = conn

Set tbl = cat.Tables.item(oldtablename)
tbl.name = "newtablename"

yoki 2003-10-25

打赏
举报

dim cn as new adodb.connection
cn.open "到数据库的连接字符串"
cn.BeginTrans
cnSourceDb.Execute "select * into 你要得到的新表名 from 旧表名"
cn.Execute "drop table 旧表名"
cn.CommitTrans

tercel001 2003-10-25