vbs生成ACCESS数据里所有表的字段

更新时间：2008年06月25日 08:38:32   作者：

生成ACCESS数据库里所有表及所有字段并生成一定格式的字符组合

databasename ="access.mdb"''数据库地址

tablename ="blogarticle"''要处理的表名

Set conn = CreateObject("ADODB.Connection")

connstr ="provider=microsoft.jet.oledb.4.0;data source="&databasename

conn.Open connstr

Set rs_all = CreateObject("adodb.recordset")

sql_all ="select name from MSysObjects where type=1 and flags=0"

rs_all.Open sql_all, conn,1,1

DoWhileNot rs_all.EOF

tablename = rs_all(0)

Set rs = CreateObject("adodb.recordset")

sql ="select * from "& tablename &" where 1<>1"

rs.Open sql, conn,1,1

j = rs.Fields.Count

txtContent =""

txtContent1 =""

txtContent2 =""

txtContent3 =""

txtContent4 =""

For i =0To(j -1)

title = rs.Fields(i).Name

txtContent = txtContent & title &"|"

txtContent1 = txtContent1 & title&"=trim(request("""&title&"""))"&"
"

txtContent2 = txtContent2 & title&"=rs("""&title&""")
"

txtContent3 = txtContent3 &"rs("""&title&""")=trim(request("""&title&"""))
"

txtContent4 = txtContent4 & title&"=rs("""&title&""")
"

Next

yongfa365 ="

"&title&"里的字段
"

CreateFile tablename&".html", yongfa365 & txtContent &"
"& txtContent1 &"
"& txtContent2 &"
"& txtContent3 &"
"& txtContent4

rs_all.movenext

Loop

Function CreateFile(FileName, Content)

Set FSO = CreateObject("Scripting.FileSystemObject")

Set fd = FSO.CreateTextFile(FileName,True)

fd.WriteLine Content

EndFunction

databasename ="access.mdb"''数据库地址

tablename ="blogarticle"''要处理的表名

Set conn = CreateObject("ADODB.Connection")

connstr ="provider=microsoft.jet.oledb.4.0;data source="&databasename

conn.Open connstr

''Set rs_all = CreateObject("adodb.recordset")

''sql_all = "select name from MSysObjects where type=1 and flags=0"

''rs_all.Open sql_all, conn, 1, 1

''Do While Not rs_all.EOF

''    tablename = rs_all(0)

Set rs = CreateObject("adodb.recordset")

sql ="select * from "& tablename &" where 1<>1"

rs.Open sql, conn,1,1

j = rs.Fields.Count

txtContent =""

txtContent1 =""

txtContent2 =""

txtContent3 =""

txtContent4 =""

For i =0To(j -1)

title = rs.Fields(i).Name

txtContent = txtContent & title &"|"

txtContent1 = txtContent1 & title&"=trim(request("""&title&"""))"&"
"

txtContent2 = txtContent2 & title&"=rs("""&title&""")
"

txtContent3 = txtContent3 &"rs("""&title&""")=trim(request("""&title&"""))
"

txtContent4 = txtContent4 & title&"=rs("""&title&""")
"

Next

yongfa365 ="

"&title&"里的字段
"

CreateFile tablename&".html", yongfa365 & txtContent &"
"& txtContent1 &"
"& txtContent2 &"
"& txtContent3 &"
"& txtContent4

''    rs_all.movenext

''Loop

Function CreateFile(FileName, Content)

Set FSO = CreateObject("Scripting.FileSystemObject")

Set fd = FSO.CreateTextFile(FileName,True)

fd.WriteLine Content

EndFunction

相关文章

vbs/js脚本编程教学(2)...2007-02-02

运行后当把U盘插入电脑后能够自动把U盘里的PPT偷拷下来。下面用记事本就能实现的批处理或vbs。2009-12-12

VBS教程：VBscript语句-Option Explicit 语句...2006-11-11

这篇文章主要介绍了VBScript 根据IE窗口的标题输出ESC,代替人工按esc操作的实现代码，需要的朋友可以参考下2018-04-04

杀毒的对vbs相当敏感 免杀...2006-08-08

在vbscript中，使用on error resume next处理错误，当使用这段代码时，程序将忽略产生的错误继续运行后面的代码。本文就使用心得作个小结，供有需要的朋友参考2009-02-02

VBS教程：方法-GetTempName 方法...2006-11-11

用vbscript实现的强制杀系统进程的脚本代码，主要用于一些杀毒软件，占系统内存或cpu，我们可以用下面的方法杀掉，黑人也必须杀掉杀毒软件，才能进行下一步操作，不建议搞破坏。2008-05-05

这篇文章主要介绍了vbs 复制指定文件到指定目录下,需要的朋友可以参考下2019-09-09

让批处理被wsh解析的优点...2007-03-03

最新评论