欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-04-29 16:32:48
<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>