实现Access数据库表中内容的字符快速替换

实现Access数据库表中内容的字符快速替换，

先把记录集（RecordSet）取出为数组，在数组中替换字符串，所有记录替换成功后，再批量保存到数据库中。这样的效率比较高。

如果直接用Sql语句中边替换边保存的话，程序会很卡的。

把View_Info表中的Content字段中的厦门替换为广州

set conn=Server.CreateObject(“ADODB.Connection”)

conn.Provider=”Microsoft.Jet.OLEDB.4.0″

conn.Open “D:sdcmsData#6Gb1Hv8Vj4Iv.mdb”

set rs=Server.CreateObject(“ADODB.recordset”)

rs.Open “Select ID,Title,Content,Author from View_Info”, conn

tmp_array=rs.GetRows ‘先把记录集（RecordSet）取出为数组

<%Dim tmpNumS,tmpNumI ‘输出替换前的数组

tmpNumS=Ubound(tmp_array,2)’得到数组中数据的下标

For tmpNumI=0 To tmpNumS

Response.Write(“ID： ”& tmp_array(0,tmpNumI) & ” | 标题： ” & tmp_array(1,tmpNumI) & ” | 介绍： ” & tmp_array(2,tmpNumI) & “ ”)

For tmpNumI=0 To tmpNumS ‘数组批量替换

tmp_array(2,tmpNumI)=Replace(tmp_array(2,tmpNumI),”厦门”,”广州”) ‘把View_Info表中的Content字段中的厦门替换为广州

For tmpNumI=0 To tmpNumS ‘输出替换后的数组

Response.Write(“ID： ”& tmp_array(0,tmpNumI) & ” | 标题： ” & tmp_array(1,tmpNumI) & ” | 介绍： ” & tmp_array(2,tmpNumI) & “ ”)

For tmpNumI=0 To tmpNumS ‘将替换后的数组批量保存到数据表中去

sql=”UPDATE View_Info SET ”

sql=sql & “Content='” & tmp_array(2,tmpNumI) &”‘”

sql=sql & ” WHERE ID=” & tmp_array(0,tmpNumI) & “”

on error resume next

conn.Execute sql

if err<>0 then

response.write(“No update permissions!”)

else

response.write(“Record ” & tmp_array(0,tmpNumI) & ” was updated!”)

end if

rs.close

conn.close

set rs = Nothing

set conn = Nothing

继续阅读