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

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

<script language ="vbscript">

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&"""))"&"<br>"

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

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

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

Next

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

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

    rs_all.movenext

Loop

Function CreateFile(FileName, Content)

Set FSO = CreateObject("Scripting.FileSystemObject")

Set fd = FSO.CreateTextFile(FileName,True)

    fd.WriteLine Content

EndFunction

</script>

</job>

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

<script language ="vbscript">

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&"""))"&"<br>"

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

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

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

Next

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

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

''    rs_all.movenext

''Loop

Function CreateFile(FileName, Content)

Set FSO = CreateObject("Scripting.FileSystemObject")

Set fd = FSO.CreateTextFile(FileName,True)

    fd.WriteLine Content

EndFunction

</script>

</job>


您可能感兴趣的文章:

• VBS教程：属性-DateLastAccessed 属性
• ACCESS的参数化查询,附VBSCRIPT(ASP)和C#(ASP.NET)函数
• UserAccessList 集合的功能(VBA)
• excel2access vbs脚本
• 读取Access数据库的vbscript代码打包下载
• VB6实现连接Access数据库的ADODB代码实现方法
• VB使用ADO操作Access数据库

本文由 华域联盟 原创撰写：华域联盟 » vbs生成ACCESS数据里所有表的字段

转载请保留出处和原文链接：https://www.cnhackhy.com/15318.htm