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

生成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>