mdb替换问题

'导出 csv 的 VBScript 程序

Const acExportDelim = 2

Dim acc

Set acc = CreateObject("Access.Application")

acc.OpenCurrentDatabase "d:\tmp\数据库名.mdb"

acc.DoCmd.TransferText acExportDelim, , "表名", "D:\tmp\导出文件名.csv"

acc.CloseCurrentDatabase

Set acc = Nothing

把以上程序中的数据库名，表名，导出文件名换成你自己的。然后保存成

程序名.vbs

运行只要双击文型轮件。

替换就不用这么卜行信费事了，用文本编辑器打开导出的 csv 文件，

查找

,,

替换为

,0,

就行了吧？

补充：

自动替换的版本

Const ForReading = 1

Const ForWriting = 2

Dim strMdbFile, strTable, strCsvFile,strText

strMdbFile = "d:\tmp\数据库名.mdb"

strTable = "表名"

strCsvFile = "D:\tmp\导出文件名.csv"带和

Const acExportDelim = 2

Dim acc

Set acc = CreateObject("Access.Application")

acc.OpenCurrentDatabase strMdbFile

acc.DoCmd.TransferText acExportDelim, ,strTable, strCsvFile

acc.CloseCurrentDatabase

Set acc = Nothing

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile(strCsvFile, ForReading)

strText = objFile.ReadAll

objFile.Close

strText = Replace(strText, ",0 ", ", ")

Set objFile = objFSO.OpenTextFile(strCsvFile, ForWriting)

objFile.WriteLine strText

objFile.Close

<%

dim mdb, conn, cttr

Mdb="**/***.mdb" '数据库地址和名称

Set Conn= Server.CreateObject("ADODB.Connection")

cttr = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &Server.MapPath(Mdb)

Conn.Open cttr

'以上是在本地测试站的数据库连接代码

%>

<%

'以下代码是 *** 作替换 把表名和字段名改成你数据库里要替换的那个实名

dim rs, sql, i , j

set Rs = Server.CreateObject("Adodb.Recordset")

Sql = "Select * From 数据库表名 Where where 字段名 like '%aabbcc%'亩则答 Order By id Desc "

Rs.Open Sql,conn,1,3

j = rs.recordcount '得到符合aabbcc的总记录数迅慧

'以下是逐一循环替换 aabbcc 为 AABBCC

for i=0 to j

rs.update

rs("字段名")= Replace(rs("字段名"),"aabbcc","AABBCC")

rs.update

rs.movenext

next

'如果该字段里只有aabbcc这几盯庆个字母 则可以直接替换 不需要循环代码 如下：

'此代码很危险，如果该字段里还包含其他字符串的话不能使用， 只能使用上面的循环替换语句。

rs.update

rs("字段名") = "AABBCC"

rs.update

'关闭数据库连接 关闭对象

conn.close

rs.close

set rs=nothing

%>

mdb转成低版本的步骤如下：

1、打开Access应用程序，并打开您想要转换的MDB文件。

2、郑春渗选择文件菜单，然后选择另存为。

3、在另存为对话框中，选择要保存的位置并输入新的文件名。

4、在另存为类型下拉菜单中，选择您想要转换成的较低版本的格喊脊式，例如，如果您想将MDB文件转换成Access2000格式，则选择Access2000数据库选项。

5、点击保存按钮即可完成转换森槐。

---