替换mdb数据库中文字或字符串的方法(测试可用)

文章 2022-07-08 17:55 阅读(15)

由于要替换博客中某些敏感词(防止博客被和谐),需要批量操作数据库:批量替换数据库中的某个关键词。但是使用access数据库打开mdb数据库,竟然发现里面的搜索功能毫无反应,难道是用的office精简版的原因?不好说……经过研究,发现网上流传的方法有些不可用,但是也有可用的。

经过测试,下面一个方法非常不错,但是需要使用运行asp程序,代码如下(替换mdb数据库中文字或字符串的方法一。注:已测试,可能存在某些漏洞导致数据库某些数据出现问题,如此方法出现问题,可使用第二个方法,已测试成功无错批量替换mdb数据库中文字):

<%‘####################################‘替换mdb数据库内容或字符串‘https://www.lingling00.com‘####################################Dim Db,Connstr,conn,rs,rs2,str1,str2,Istr1=”阿光” ‘要替换的字符串str2=”光的传人” ‘替换为的字符串Db=”data.mdb”Set conn=Server.CreateObject(“ADODB.Connection”)ConnStr=”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=”&server.mappath(Db)Conn.Open ConnStrSet rs = conn.OpenSchema(20)Do While Not rs.eofIf rs(“TABLE_TYPE”)=”TABLE” ThenSet Rs2=Server.Createobject(“adodb.recordset”)Rs2.Open “select * from [“&rs(“TABLE_NAME”)&”]”,conn,1,3Do While Not Rs2.EofFor I=0 to Rs2.fields.count-1If Rs2(i).Properties(“ISAUTOINCREMENT”) = False ThenRs2(Rs2(i).name)=Myreplace(Rs2(i).value)End IfNextRs2.MovenextLoopRs2.CloseSet Rs2=nothingEnd IfRs.MovenextLoopRs.closeSet Rs=nothingConn.closeSet Conn=nothingResponse.Write”替换完成”Function myreplace(byval Tstr)If Tstr=”” Or isnull(Tstr) ThenExit FunctionElsemyReplace=replace(Tstr,str1,str2)End IfEnd Function%>

以上代码成功运行后,会出现“替换完成”提示,这样就大功告成了。(经测试,数据库会受到一定损害,我的博客之前的文章出现不能编辑,生成不完整的现象,不知是何缘故。使用前请备份好数据库 )

但是如果没有运行asp的条件或环境呢?可以用一个asp运行的小程序,例如:Aws.exe、Ajiu AspWebServer V1.0.exe、Ajiu AspWebServer V1.8、Baby Web Server 2.6.2.exe、黑风ASP服务器.exe、智能端口急速版v1.3.exe、Smart Server Plus v2.0.exe等等。

替换mdb数据库中文字或字符串的方法二(推荐):

由于以上方法修改的mdb数据库出现调用问题,特此再更新一个方法,经测试批量替换完成后,数据库没有出现以上错误。这个方法就是使用“速用数据库修改器”:SuperDataBase_NewHua.exe。其界面如下:

如果不嫌麻烦,还有另外一个解决方案,替换mdb数据库中文字或字符串的方法三:

1、将需要替换的字段整列复制到excle中,然后在excle中进行批量查找替换。

2、然后再将替换好的整列复制到数据库中(注意不要错行)。

以上方法适合包含需要替换关键词的字段少的情况,如果mdb数据库需要替换的列太多,这种方法就比较麻烦了。

关注下面的标签,发现更多相似文章 本文TAG标签:
您好,请文明评论,不得违反国家法律法规!