60度 Eadren 网络 >> 设计教程 >> 数据库开发 >> Access教程 >> 正文[打印] [收藏] 

access数据库表改名的一段代码


作者：生鱼片 文章来源：互联网 点击数： 更新时间：2007-3-19 18:32:55
2006-3-23

<%
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
%>　　

  • 上一篇教程：

  • 下一篇教程：
    • 相关 access数据库表改名的一段代码 的文章：
      没有相关教程

    网友评论 

    数据载入中，请稍后……

    全站阅读排行  

    本类热门教程  

    关于我们 | 免责声明 | 广告服务 | 版权隐私 | 联系我们 | 友情链接 | 网站地图 |