Question

如何替换MDB数据库中的某一个相同的内容？

一个mdb数据库文件，里面某一个表的某个字段里有一个相同的内容，比如aabbcc,现在想把这个内容全部改成BBCC，大约有2W条记录，查找替换时提示查找不到

Answer 1

<%
dim mdb, conn, cttr
Mdb="**/***.mdb" '数据库地址和名称
Set Conn= Server.CreateObject("ADODB.Connection")
cttr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(Mdb)
Conn.Open cttr
'以上是在本地测试站的数据库连接代码
%>

<%
'以下代码是操作替换 把表名和字段名改成你数据库里要替换的那个实名
dim rs, sql, i , j
set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "Select * From 数据库表名 Where where 字段名 like '%aabbcc%' Order By id Desc "
Rs.Open Sql,conn,1,3
j = rs.recordcount '得到符合aabbcc的总记录数

'以下是逐一循环替换 aabbcc 为 AABBCC
for i=0 to j
rs.update
rs("字段名")= Replace(rs("字段名"),"aabbcc","AABBCC")
rs.update
rs.movenext
next

'如果该字段里只有aabbcc这几个字母 则可以直接替换 不需要循环代码 如下：
'此代码很危险，如果该字段里还包含其他字符串的话不能使用， 只能使用上面的循环替换语句。
rs.update
rs("字段名") = "AABBCC"
rs.update

'关闭数据库连接 关闭对象
conn.close
rs.close
set rs=nothing
%>

Answer 2

update 表 set 要设置的字段='BBCC' where rtrim(要设置的字段) = 'aabbcc'

-- 或者这样写，但是要看你实际想要什么效果了： update 表 set 要设置的字段='BBCC' where 要设置的字段 like 'aabbcc%'

追问

是一个论坛的数据库，由bbsxp转换到phpwind，回复可见的代码不一样，bbsxp是ForReply，phpwind是post我想替换一下，吧MDB数据库下载到了本地，怎么查找替换？或者您帮我写一段代码网上执行也成

Answer 3

update 表 set 要设置的字段='BBCC' where 要设置的字段 like '%aabbcc%'

try....

追问

能否帮忙写段代码？

追答

mdb数据库文件应该不用写代码了吧，直接打开后使用“替换“功能就行了