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

<scriptlanguage="vbscript">

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

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

Setconn=CreateObject("ADODB.Connection")

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

conn.Openconnstr

Setrs_all=CreateObject("adodb.recordset")

sql_all="selectnamefromMSysObjectswheretype=1andflags=0"

rs_all.Opensql_all,conn,1,1

DoWhileNotrs_all.EOF

tablename=rs_all(0)

Setrs=CreateObject("adodb.recordset")

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

rs.Opensql,conn,1,1

j=rs.Fields.Count

txtContent=""

txtContent1=""

txtContent2=""

txtContent3=""

txtContent4=""

Fori=0To(j-1)

title=rs.Fields(i).Name

txtContent=txtContent&title&"|"

txtContent1=txtContent1&title&"=trim(request("""&title&"""))"&"<br>"

txtContent2=txtContent2&title&"=rs("""&title&""")<br>"

txtContent3=txtContent3&"rs("""&title&""")=trim(request("""&title&"""))<br>"

txtContent4=txtContent4&title&"=rs("""&title&""")<br>"

Next

yongfa365="<divalign=center><ahref=""http://www.yongfa365.com""class=""titlink""title=""柳永法(yongfa365)'Bloghttp://www.yongfa365.com"">柳永法(yongfa365)'Blog</a>制作</div>"&title&"里的字段<br><br>"

CreateFiletablename&".html",yongfa365&txtContent&"<br><br>"&txtContent1&"<br><br>"&txtContent2&"<br><br>"&txtContent3&"<br><br>"&txtContent4

rs_all.movenext

Loop

FunctionCreateFile(FileName,Content)

SetFSO=CreateObject("Scripting.FileSystemObject")

Setfd=FSO.CreateTextFile(FileName,True)

fd.WriteLineContent

EndFunction

</script>

</job>

<jobid="生成ACCESS数据库里指定表的所有字段并生成一定格式的字符组合">

<scriptlanguage="vbscript">

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

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

Setconn=CreateObject("ADODB.Connection")

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

conn.Openconnstr

''Setrs_all=CreateObject("adodb.recordset")

''sql_all="selectnamefromMSysObjectswheretype=1andflags=0"

''rs_all.Opensql_all,conn,1,1

''DoWhileNotrs_all.EOF

''tablename=rs_all(0)

Setrs=CreateObject("adodb.recordset")

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

rs.Opensql,conn,1,1

j=rs.Fields.Count

txtContent=""

txtContent1=""

txtContent2=""

txtContent3=""

txtContent4=""

Fori=0To(j-1)

title=rs.Fields(i).Name

txtContent=txtContent&title&"|"

txtContent1=txtContent1&title&"=trim(request("""&title&"""))"&"<br>"

txtContent2=txtContent2&title&"=rs("""&title&""")<br>"

txtContent3=txtContent3&"rs("""&title&""")=trim(request("""&title&"""))<br>"

txtContent4=txtContent4&title&"=rs("""&title&""")<br>"

Next

yongfa365="<divalign=center><ahref=""http://www.yongfa365.com""class=""titlink""title=""柳永法(yongfa365)'Bloghttp://www.yongfa365.com"">柳永法(yongfa365)'Blog</a>制作</div>"&title&"里的字段<br><br>"

CreateFiletablename&".html",yongfa365&txtContent&"<br><br>"&txtContent1&"<br><br>"&txtContent2&"<br><br>"&txtContent3&"<br><br>"&txtContent4

''rs_all.movenext

''Loop

FunctionCreateFile(FileName,Content)

SetFSO=CreateObject("Scripting.FileSystemObject")

Setfd=FSO.CreateTextFile(FileName,True)

fd.WriteLineContent

EndFunction

</script>

</job>

【vbs生成ACCESS数据里所有表的字段】相关文章：

★ 用vbscript实现从文本文件中删除所有重复行的代码

★ 关于vbs 生成静态页面过程中出现的问题

★ Vbscript写注册表的方法

★ getSQLinfo.vbs 获得SQL数据/日志空间使用情况的脚本

★ vbs病毒的简单例子源代码解析

★ 用vbs检查注册表项的访问权限的代码

★ vbs实现恢复暂停的自动启动服务的脚本

★ reg2vbs.vbs 将Reg文件转换为VBS文件保存 脚本之家修正版本

★ 脚本编程3 关于文件的读写

★ VBS教程：函数-Sin 函数