首页 >> 下载中心 >> Asp源码 >> Access通用自动替换数据库中的字符串

Access通用自动替换数据库中的字符串

作者:荆棘鸟来源:Readlog.cn 时间:2008-5-22 网友评论条【大中小】

几年前写的一个脚本，可以自动进行整库的数据替换。当初只是为了玩玩写的，没想到写了之后不断有人询问，所以改写了一下代码，完善了一下，支持了正则替换，避开了会导致出错的二进制（ole对象），并且做了一个EXE的程序。感谢虚拟帮忙。

附asp代码：

ASP代码

<%
'####################################
'批量替换数据库内容2008-3-17
'http://www.readlog.cn
'替换是不可逆的，所以操作前做好能备份
'####################################
Dim
"admi[0-z]"'要替换的字符串，支持正则
"1234"'替换为的字符串
"db.mdb"'数据库地址
'以下无需改动
'创建正则对象
Set
True
True
Set"ADODB.Connection"
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Set
DoWhileNot
If"TABLE_TYPE""TABLE"Then'如果是用户表,则进行操作
Set"adodb.recordset"
"select * from [""TABLE_NAME""]"
DoWhileNot
For'遍历所有字段
If"ISAUTOINCREMENT"FalseAndAndAndThen'如果非自动编号并且非ole对象