[access数据库教程]关于access数据库表改名的一段代码,希望对大家有用

更新时间:2014-08-20    来源:Access    手机版     字体:

【www.bbyears.com--Access】

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

本文来源:http://www.bbyears.com/shujuku/8683.html

热门标签

更多>>

本类排行