<%
Sub RenameTable(conStr,oldName,newName)
Dim objADOX
Set objADOX=Server.CreateObject("ADOX.Catalog")
objADOX.ActiveConnection=conStr
'这里是修改数据表名称的语句
objADOX.Tables(oldName).Name=newName
Set objADOX=Nothing
End Sub
Call RenameTable("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Access_Url,Old_Table_Name,Table_Name)
Sub RenameField(conStr,Table_Name,oldName,newName)
Dim objADOX
Set objADOX=Server.CreateObject("ADOX.Catalog")
objADOX.ActiveConnection=conStr
'这里是修改数据字段名称的语句
objADOX.Tables(Table_Name).Columns(oldName).Name=newName
Set objADOX=Nothing
End Sub
Call RenameField("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Access_Url,Table_Name,Old_Field_Name,Field_Name)
%>
转载于:https://blog.51cto.com/332374363/1065799