本站内容搜索:
   您的位置:素材中国>>教程 >>数据库 >>MS Access >>Access通用--自动替换数据库中的字符串 提交错误报告
Access通用--自动替换数据库中的字符串
[ 来源:素材中国 | 作者:| 时间:2005-11-26 12:43:34 | 浏览:人次 ]

 
 

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

<%
'####################################
'替换数据库内容 lamking 2005-8-22
'http://www.lamking.com QQ:628557
'####################################
Dim Db,Connstr,conn,rs,rs2,str1,str2,I
str1="abcd" '要替换的字符串
str2="1234" '替换为的字符串
Db="lamking.mdb"
Set conn=Server.CreateObject("ADODB.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(Db)
Conn.Open ConnStr
Set rs = conn.OpenSchema(20)
  Do While Not rs.eof
    If rs("TABLE_TYPE")="TABLE" Then
  Set Rs2=Server.Createobject("adodb.recordset")
   Rs2.Open "select * from ["&rs("TABLE_NAME")&"]",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
   Rs2.Movenext
   Loop
  Rs2.Close
  Set Rs2=nothing
 End If
Rs.Movenext
Loop
Rs.close
Set Rs=nothing
Conn.close
Set Conn=nothing
Response.Write"替换完成"
Function myreplace(byval Tstr)
If Tstr="" Or isnull(Tstr) Then
 Exit Function
Else
 myReplace=replace(Tstr,str1,str2)
End If
End Function
%>

 
 
       
   您的位置:素材中国>>教程 >>数据库 >>MS Access >>Access通用--自动替换数据库中的字符串
 点此在百度搜索关键字"Access通用--自动替换数据库中的字符串"  点此在GOOGLE搜索关键字"Access通用--自动替换数据库中的字符串"
热门文章:
  ·1小时学会Access 轻松打造图书管理系统   ·用Access打印带相片的证件
  ·ACCESS数据库中的中文报表制作   ·Access如何制作复杂报表
  ·ACCESS集锦   ·ACCESS中如何使用SQL
  ·如何解决用Access数据库建站维护不便的问题   ·Access通用--自动替换数据库中的字符串
  ·Access新手获取帮助的几个途径   ·用Access 2000进行班级管理

  首页  素材图片  高精图库  矢量图库  网页素材  网页模板  壁纸  明星  下载  教程  字体  香车美女  QQ专题  论坛

网站介绍 | 广告业务 | 设计业务 | 免责声明 | 版权声明 | 联系我们|提交错误报告
素材中国版权所有