09-1117

ASP中对ACCESS表前缀进行统计一修改代码

所属栏目: ASP编程 关注热度: ℃ 出处: 作者: Plus


有时为了修改access表的中前缀费了不少劲,现在直接在里面修改你原来的前缀和要修改后的前缀,点击修改就行了.

vb 代码
 
  1. <%   
  2. oConnStr="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=""Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.MapPath("XXXXX你的数据库.mdb")   
  3.   
  4.   
  5. Sub RenameTable (oldName, newName)   
  6.   
  7. Dim objADOXDatabase   
  8. Set objADOXDatabase = Server.CreateObject("ADOX.Catalog""ADOX.Catalog")   
  9. objADOXDatabase.ActiveConnection = oConnStr   
  10.   
  11.   
  12. objADOXDatabase.Tables(oldName).Name = newName   
  13.   
  14.   
  15. Set objADOXDatabase = Nothing  
  16.   
  17. End Sub  
  18.   
  19. 'Sub DBConnBegin()   
  20.   
  21.   
  22. Set oConn=server.CreateObject("adodb.Connection""adodb.Connection")   
  23.   
  24. oConn.Open oConnStr   
  25.   
  26. If Err.Number>0 Then  
  27.   
  28.   
  29. Response.End  
  30.   
  31. End If  
  32.   
  33.   
  34. Const adSchemaTables = 20   
  35.   
  36. adSchemaColumns = 4   
  37.   
  38. Set rstSchema = oConn.OpenSchema(adSchemaColumns)   
  39.   
  40. tablename="" 
  41.   
  42. Do Until rstSchema.EOF   
  43.   
  44. If rstSchema("Table_name")<>tablename then   
  45.        
  46.     tablename = rstSchema("Table_name")   
  47.        
  48.     'response.Write (InStr(LCase(tablename),"look_")>0)& "<BR>"   
  49.        
  50.     If InStr(LCase(tablename),"look_")>0 then   
  51.         tablename1=Replace(LCase(tablename),"look_","zd8c_")   
  52.         response.write "原表:"&tablename &" 已修改为:"&tablename1& "<BR>"   
  53.         Call RenameTable(tablename, tablename1)    
  54.     else   
  55.         response.write tablename & "<BR>"   
  56.            
  57.     End If  
  58.   
  59. end if   
  60.   
  61. rstSchema.MoveNext   
  62.   
  63. Loop  
  64.   
  65. %>   

 



收藏到：添加到QQ书签 百度收藏 添加到鲜果 新浪ViVi 365Key网摘 天极网摘 我摘 和讯网摘 yahoo 收藏到收客网 Digbuzz我挖网 添加到饭否 挖客 添加到google


ASP编程

相关文档

  • 评论 (0)
  • 版权声明
此页仅显示最新5条评论，点击查看全部

百信语网络学院网站上所刊载的作品，其版权归属原作者或所属媒体所有。如果您认为我们转摘了您的文章或资料，损害了你的利益，请和我们联系，我们将确保您的正当权益。
发表评论