|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% 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 %> 返回类别: 教程 上一教程: 出现404页面错误的自动发送邮件的代码 下一教程: ASP编程中异常实用的例子 您可以阅读与"ACCESS数据库表改名的一段代码"相关的教程: · 关于ACCESS数据库表改名的一段代码 · 在ASP中通过GETROWS实现数据库记录分页的一段代码 · ASP中通过GETROWS实现数据库记录分页的一段代码 · ASP创建EXCHANGE用户的一段代码 · 读取ACCESS数据库表名实例 |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |