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

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

时间： 2024-04-18 08:00:50

关于access数据库表改名的一段代码,希望对大家有用的相关文章

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

access|数据|数据库 <%Call RenameTable("Provider=Microsoft.Jet.OLEDB.4.0; DataSource=c:\example.mdb", "test", "changed") Sub RenameTable (conStr, oldName, newName)'Has to be OLE DB connection'Create object and connect to DB...Di

在asp中通过getrows实现数据库记录分页的一段代码,希望对大家有用

分页|数据|数据库 <%@ Language = VBSCRIPT %><% Option Explicit %><%rem 在asp中通过getrows实现数据库记录分页的一段代码 Dim iStart, iOffset iStart = Request("Start") iOffset = Request("Offset") if Not IsNumeric(iStart) or Len(iStart) = 0 then

ASP获取ACCESS数据库表名及结构的代码_应用技巧

<html> <head> <title>获取ACCESS数据库表名_www.jb51.net</title> </head> <body style="text-align:left;margin-left:50px;font-family:'arial';font-size:12px"> <form style="padding:5px;margin:5px;margin-left:0px&qu

select-winfrom中如何把SqlServer数据库表查询出来的数据插入access数据库表中

问题描述 winfrom中如何把SqlServer数据库表查询出来的数据插入access数据库表中 sqlserver里面的数据是根据条件查询出来的,现在是把查询出来的数据,给他导入到access数据库中,但是不知道在C#后台中怎么写跨数据库去执行insert select,求解啊啊啊啊啊啊解决方案大概的代码 DataTable table = new DataTable() SqlConnection sqlconn = new SqlConnection(connectionStr);

在asp中通过getrows实现数据库记录分页的一段代码

分页|数据|数据库 <%@ Language = VBSCRIPT %><% Option Explicit %><%rem 在asp中通过getrows实现数据库记录分页的一段代码Dim iStart, iOffsetiStart = Request("Start")iOffset = Request("Offset") if Not IsNumeric(iStart) or Len(iStart) = 0 theniStart =

asp中通过getrows实现数据库记录分页的一段代码

分页|数据|数据库 <%@ Language = VBSCRIPT %><% Option Explicit %><%rem 在asp中通过getrows实现数据库记录分页的一段代码Dim iStart, iOffsetiStart = Request("Start")iOffset = Request("Offset") if Not IsNumeric(iStart) or Len(iStart) = 0 then iStart =

asp中通过getrows实现数据库记录分页的一段代码_应用技巧

<%@ Language = VBSCRIPT %> <% Option Explicit %> <% rem 在asp中通过getrows实现数据库记录分页的一段代码 Dim iStart, iOffset iStart = Request("Start") iOffset = Request("Offset") if Not IsNumeric(iStart) or Len(iStart) = 0 then iStart = 0

实现对Access数据库表重命名的一段代码_应用技巧

ACCESS数据库不支持直接利用SQL语句实现更改表名,或者字段名,但可以ADOX对象来实现,范例代码如下: 复制代码代码如下: <% Call RenameTable("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\example.mdb", "test", "changed") Sub RenameTable (conStr, oldName, newName) 'Has to be

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

ACCESS数据库不支持直接利用SQL语句实现更改表名,或者字段名,但可以ADOX对象来实现,范例代码如下: 复制代码代码如下:<% Call RenameTable("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\example.mdb", "test", "changed") Sub RenameTable (conStr, oldName, newName) 'Has to be