Question

Acess 数据库中如何重命名表

我想在程序运行的时候动态的修改数据库中表的名字,但是使用ALTER TABLE OLDNAME RENAME TO NEWNAME 这条语句不性,数据库是ACESS数据库,DAO的方式.
如何在ACESS数据库中动态的重命名表呢?

Answer 1

Dim Conn,ConnStr,oCat,oTbl
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb")
Set oCat=Server.CreateObject("ADOX.Catalog")
oCat.ActiveConnection = ConnStr

Set oTbl = Server.CreateObject("ADOX.Table")
Set oTbl = oCat.Tables("OldTable") '要重命名的表名：OldTable
oTbl.Name = "NewTable" '新表名
Set oCat = Nothing
Set oTbl = Nothing

Answer 2

留贴关注