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

自己可以修改myreplace函数,实现复杂的替换.呵呵,好象用处不大.主要是看看如何读取access表和字段列表

 1   
 2'####################################   
 3'替换数据库内容 lamking 2005-8-22   
 4'http://www.lamking.com QQ:628557   
 5'####################################   
 6Dim Db,Connstr,conn,rs,rs2,str1,str2,I   
 7str1="abcd" '要替换的字符串   
 8str2="1234" '替换为的字符串   
 9Db="lamking.mdb"   
10Set conn=Server.CreateObject("ADODB.Connection")   
11ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(Db)   
12Conn.Open ConnStr   
13Set rs = conn.OpenSchema(20)   
14Do While Not rs.eof   
15If rs("TABLE_TYPE")="TABLE" Then   
16Set Rs2=Server.Createobject("adodb.recordset")   
17Rs2.Open "select * from ["&rs("TABLE_NAME")&"]",conn,1,3   
18Do While Not Rs2.Eof   
19For I=0 to Rs2.fields.count-1   
20If Rs2(i).Properties("ISAUTOINCREMENT") = False Then   
21Rs2(Rs2(i).name)=Myreplace(Rs2(i).value)   
22End If   
23Next   
24Rs2.Movenext   
25Loop   
26Rs2.Close   
27Set Rs2=nothing   
28End If   
29Rs.Movenext   
30Loop   
31Rs.close   
32Set Rs=nothing   
33Conn.close   
34Set Conn=nothing   
35Response.Write"替换完成"   
36Function myreplace(byval Tstr)   
37If Tstr="" Or isnull(Tstr) Then   
38Exit Function   
39Else   
40myReplace=replace(Tstr,str1,str2)   
41End If   
42End Function   
Published At
Categories with Web编程
Tagged with
comments powered by Disqus