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

会计考友

自己可以修改myreplace函数,实现复杂的替换.呵呵,好象用处不大.主要是看看如何读取access表和字段列表 　　;%
　　'####################################
, P, ?. E, l. I7 z　　'替换数据库内容 lamking 2005-8-22
6 h- Q6 V1 W0 `: a( t& R8 a　　'http://www.lamking.com QQ:628557
　　'####################################
2 b; E" m* D$ ?4 z$ {　　Dim Db,Connstr,conn,rs,rs2,str1,str2,I
　　str1="abcd" '要替换的字符串
　　str2="1234" '替换为的字符串
　　Db="lamking.mdb"
0 w( ^; P( |$ L- o- i8 P1 \& d　　Set conn=Server.CreateObject("ADODB.Connection")
5 m, t/ p0 G* u4 G! [/ v　　ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="%26amp;server.mappath(Db)
　　Conn.Open ConnStr
# h6 N' K/ K3 M. V- n; ~　　Set rs = conn.OpenSchema(20)
　　Do While Not rs.eof
6 }# R1 u, e/ t　　If rs("TABLE_TYPE")="TABLE" Then
　　Set Rs2=Server.Createobject("adodb.recordset")
" j' o; |7 b2 O, R' \+ R" w　　Rs2.Open "select * from ["%26amp;rs("TABLE_NAME")%26amp;"]",conn,1,3
　　Do While Not Rs2.Eof
　　For I=0 to Rs2.fields.count-1
　　If Rs2(i).Properties("ISAUTOINCREMENT") = False Then
　　Rs2(Rs2(i).name)=Myreplace(Rs2(i).value)
　　End If
　　Next
5 ?, g8 h- N/ M+ h5 p/ I　　Rs2.Movenext
　　Loop
　　Rs2.Close
, O7 q5 i7 c- _/ L/ q　　Set Rs2=nothing
　　End If
　　Rs.Movenext
+ F% s9 g& S5 T3 }' F3 M9 G　　Loop
% O% P" Y; z+ q! ]' M　　Rs.close
　　Set Rs=nothing
　　Conn.close
　　Set Conn=nothing
1 G5 C+ N$ r, y' F/ q　　Response.Write"替换完成"
　　Function myreplace(byval Tstr)
* L* |" F# i- G: `+ H7 C  a( n　　If Tstr="" Or isnull(Tstr) Then
- U/ s% }4 V& S' l8 b　　Exit Function
　　Else
' j- Q7 [8 c! J+ z　　myReplace=replace(Tstr,str1,str2)
# y* a6 y$ ]& z; G- s8 n7 M  T1 C　　End If
# ~, F1 j& b! s1 l8 }4 a　　End Function
$ [3 E. N' N* X  s' P3 V' ~　　%;