源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

实现对Access数据库表重命名的一段代码

  • 时间:2022-09-09 09:01 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:实现对Access数据库表重命名的一段代码
ACCESS数据库不支持直接利用SQL语句实现更改表名,或者字段名,但可以ADOX对象来实现,范例代码如下:
[u]复制代码[/u] 代码如下:
<% Call RenameTable("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\example.mdb", "test", "changed") Sub RenameTable (conStr, oldName, newName) 'Has to be OLE DB connection '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 %>
  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部