Access中批量替换数据库内容的两种方法

Update biao SET content=replace(content,"xiazai.VeVB.COm","down1.VeVB.COm")

'这里省略数据库连接代码
Dim rs,sql,text
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select content From biao"
rs.Open sql,conn,1,3
Do While Not rs.Eof
text=Replace(rs("content"),"xiazai.VeVB.COm","down1.VeVB.COm")
rs("content")=text
rs.Update
rs.MoveNext
Loop
rs.Close
Set rs=Nothing