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-20 12:04:44

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.

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, iOffset iStart = Request("Start") iOffset = Request("Offset") if Not IsNumeric(iStart) or Len(iStart) = 0 then

在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