生成ACCESS数据里所有表的字段代码,ASP代码库,德仔网

代码语言
代码分类
【ASP】生成ACCESS数据里所有表的字段
作者:Dezai.CN / 发布于2011/8/22/ 1980
<div><span style="font: 12pt Fixedsys; font-size-adjust: none; font-stretch: normal"><span class="vbs1-symbol"><</span><span class="vbs1-identifier">job id </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">"生成ACCESS数据库里所有表及所有字段并生成一定格式的字符组合"</span><span class="vbs1-symbol">>
<</span><span class="vbs1-identifier">script language </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">"vbscript"</span><span class="vbs1-symbol">>
</span><span class="vbs1-identifier">databasename </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">"access.mdb"</span><span class="vbs1-comment">''数据库地址
</span><span class="vbs1-identifier">tablename </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">"blogarticle"</span><span class="vbs1-comment">''要处理的表名


</span><span class="vbs1-reservedword">Set</span><span class="vbs1-whitespace"> conn </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> CreateObject</span><span class="vbs1-symbol">(</span><span class="vbs1-string">"ADODB.Connection"</span><span class="vbs1-symbol">)
</span><span class="vbs1-identifier">connstr </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">"provider=microsoft.jet.oledb.4.0;data source="</span><span class="vbs1-symbol">&</span><span class="vbs1-identifier">databasename
conn</span><span class="vbs1-symbol">.</span><span class="vbs1-identifier">Open connstr

</span><span class="vbs1-reservedword">Set</span><span class="vbs1-whitespace"> rs_all </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> CreateObject</span><span class="vbs1-symbol">(</span><span class="vbs1-string">"adodb.recordset"</span><span class="vbs1-symbol">)
</span><span class="vbs1-identifier">sql_all </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">"select name from MSysObjects where type=1 and flags=0"
</span><span class="vbs1-identifier">rs_all</span><span class="vbs1-symbol">.</span><span class="vbs1-identifier">Open sql_all</span><span class="vbs1-symbol">,</span><span class="vbs1-whitespace"> conn</span><span class="vbs1-symbol">,</span><span class="vbs1-whitespace"> </span><span class="vbs1-number">1</span><span class="vbs1-symbol">,</span><span class="vbs1-whitespace"> </span><span class="vbs1-number">1

</span><span class="vbs1-reservedword">Do</span><span class="vbs1-whitespace"> </span><span class="vbs1-reservedword">While</span><span class="vbs1-whitespace"> </span><span class="vbs1-reservedword">Not</span><span class="vbs1-whitespace"> rs_all</span><span class="vbs1-symbol">.</span><span class="vbs1-identifier">EOF
 tablename </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> rs_all</span><span class="vbs1-symbol">(</span><span class="vbs1-number">0</span><span class="vbs1-symbol">)
</span><span class="vbs1-whitespace"> </span><span class="vbs1-reservedword">Set</span><span class="vbs1-whitespace"> rs </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> CreateObject</span><span class="vbs1-symbol">(</span><span class="vbs1-string">"adodb.recordset"</span><span class="vbs1-symbol">)
</span><span class="vbs1-whitespace"> sql </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">"select * from "</span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> tablename </span><span class="vbs1-symbol">&</span><span class="vbs1-string">" where 1<>1"
</span><span class="vbs1-whitespace"> rs</span><span class="vbs1-symbol">.</span><span class="vbs1-identifier">Open sql</span><span class="vbs1-symbol">,</span><span class="vbs1-whitespace"> conn</span><span class="vbs1-symbol">,</span><span class="vbs1-whitespace"> </span><span class="vbs1-number">1</span><span class="vbs1-symbol">,</span><span class="vbs1-whitespace"> </span><span class="vbs1-number">1
</span><span class="vbs1-whitespace"> j </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> rs</span><span class="vbs1-symbol">.</span><span class="vbs1-identifier">Fields</span><span class="vbs1-symbol">.</span><span class="vbs1-identifier">Count
 txtContent </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">""
</span><span class="vbs1-whitespace"> txtContent1 </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">""
</span><span class="vbs1-whitespace"> txtContent2 </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">""
</span><span class="vbs1-whitespace"> txtContent3 </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">""
</span><span class="vbs1-whitespace"> txtContent4 </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">""
</span><span class="vbs1-whitespace"> </span><span class="vbs1-reservedword">For</span><span class="vbs1-whitespace"> i </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-number">0</span><span class="vbs1-whitespace"> </span><span class="vbs1-reservedword">To</span><span class="vbs1-whitespace"> </span><span class="vbs1-symbol">(</span><span class="vbs1-identifier">j </span><span class="vbs1-symbol">-</span><span class="vbs1-number">1</span><span class="vbs1-symbol">)
</span><span class="vbs1-whitespace"> title </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> rs</span><span class="vbs1-symbol">.</span><span class="vbs1-identifier">Fields</span><span class="vbs1-symbol">(</span><span class="vbs1-identifier">i</span><span class="vbs1-symbol">).</span><span class="vbs1-identifier">Name
 txtContent </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> txtContent </span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> title </span><span class="vbs1-symbol">&</span><span class="vbs1-string">"|"
</span><span class="vbs1-whitespace"> txtContent1 </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> txtContent1 </span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> title</span><span class="vbs1-symbol">&</span><span class="vbs1-string">"=trim(request("""</span><span class="vbs1-symbol">&</span><span class="vbs1-identifier">title</span><span class="vbs1-symbol">&</span><span class="vbs1-string">"""))"</span><span class="vbs1-symbol">&</span><span class="vbs1-string">""
</span><span class="vbs1-whitespace"> txtContent2 </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> txtContent2 </span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> title</span><span class="vbs1-symbol">&</span><span class="vbs1-string">"=rs("""</span><span class="vbs1-symbol">&</span><span class="vbs1-identifier">title</span><span class="vbs1-symbol">&</span><span class="vbs1-string">""")"
</span><span class="vbs1-whitespace"> txtContent3 </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> txtContent3 </span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">"rs("""</span><span class="vbs1-symbol">&</span><span class="vbs1-identifier">title</span><span class="vbs1-symbol">&</span><span class="vbs1-string">""")=trim(request("""</span><span class="vbs1-symbol">&</span><span class="vbs1-identifier">title</span><span class="vbs1-symbol">&</span><span class="vbs1-string">"""))"
</span><span class="vbs1-whitespace"> txtContent4 </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> txtContent4 </span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> title</span><span class="vbs1-symbol">&</span><span class="vbs1-string">"=rs("""</span><span class="vbs1-symbol">&</span><span class="vbs1-identifier">title</span><span class="vbs1-symbol">&</span><span class="vbs1-string">""")"
</span><span class="vbs1-whitespace"> </span><span class="vbs1-reservedword">Next
</span><span class="vbs1-whitespace"> yongfa365 </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">"<div align=center><a href=""http://www.yongfa365.com"" class=""titlink"" title=""柳永法(yongfa365)'Blog http://www.yongfa365.com"">柳永法(yongfa365)'Blog</a>制作</div>"</span><span class="vbs1-symbol">&</span><span class="vbs1-identifier">title</span><span class="vbs1-symbol">&</span><span class="vbs1-string">"里的字段"
</span><span class="vbs1-whitespace"> CreateFile tablename</span><span class="vbs1-symbol">&</span><span class="vbs1-string">".html"</span><span class="vbs1-symbol">,</span><span class="vbs1-whitespace"> yongfa365 </span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> txtContent </span><span class="vbs1-symbol">&</span><span class="vbs1-string">""</span><span class="vbs1-whitespace"> </span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> txtContent1 </span><span class="vbs1-symbol">&</span><span class="vbs1-string">""</span><span class="vbs1-whitespace"> </span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> txtContent2 </span><span class="vbs1-symbol">&</span><span class="vbs1-string">""</span><span class="vbs1-whitespace"> </span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> txtContent3 </span><span class="vbs1-symbol">&</span><span class="vbs1-string">""</span><span class="vbs1-whitespace"> </span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> txtContent4
 rs_all</span><span class="vbs1-symbol">.</span><span class="vbs1-identifier">movenext
</span><span class="vbs1-reservedword">Loop

Function</span><span class="vbs1-whitespace"> CreateFile</span><span class="vbs1-symbol">(</span><span class="vbs1-identifier">FileName</span><span class="vbs1-symbol">,</span><span class="vbs1-whitespace"> Content</span><span class="vbs1-symbol">)
</span><span class="vbs1-whitespace"> </span><span class="vbs1-reservedword">Set</span><span class="vbs1-whitespace"> FSO </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> CreateObject</span><span class="vbs1-symbol">(</span><span class="vbs1-string">"Scripting.FileSystemObject"</span><span class="vbs1-symbol">)
</span><span class="vbs1-whitespace"> </span><span class="vbs1-reservedword">Set</span><span class="vbs1-whitespace"> fd </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> FSO</span><span class="vbs1-symbol">.</span><span class="vbs1-identifier">CreateTextFile</span><span class="vbs1-symbol">(</span><span class="vbs1-identifier">FileName</span><span class="vbs1-symbol">,</span><span class="vbs1-whitespace"> </span><span class="vbs1-reservedword">True</span><span class="vbs1-symbol">)
</span><span class="vbs1-whitespace"> fd</span><span class="vbs1-symbol">.</span><span class="vbs1-identifier">WriteLine Content
</span><span class="vbs1-reservedword">End</span><span class="vbs1-whitespace"> </span><span class="vbs1-reservedword">Function

</span><span class="vbs1-symbol"></</span><span class="vbs1-identifier">script</span><span class="vbs1-symbol">>
</</span><span class="vbs1-identifier">job</span><span class="vbs1-symbol">>


<</span><span class="vbs1-identifier">job id </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">"生成ACCESS数据库里指定表的所有字段并生成一定格式的字符组合"</span><span class="vbs1-symbol">>
<</span><span class="vbs1-identifier">script language </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">"vbscript"</span><span class="vbs1-symbol">>
</span><span class="vbs1-identifier">databasename </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">"access.mdb"</span><span class="vbs1-comment">''数据库地址
</span><span class="vbs1-identifier">tablename </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">"blogarticle"</span><span class="vbs1-comment">''要处理的表名


</span><span class="vbs1-reservedword">Set</span><span class="vbs1-whitespace"> conn </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> CreateObject</span><span class="vbs1-symbol">(</span><span class="vbs1-string">"ADODB.Connection"</span><span class="vbs1-symbol">)
</span><span class="vbs1-identifier">connstr </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">"provider=microsoft.jet.oledb.4.0;data source="</span><span class="vbs1-symbol">&</span><span class="vbs1-identifier">databasename
conn</span><span class="vbs1-symbol">.</span><span class="vbs1-identifier">Open connstr

</span><span class="vbs1-comment">''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)
</span><span class="vbs1-reservedword">Set</span><span class="vbs1-whitespace"> rs </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> CreateObject</span><span class="vbs1-symbol">(</span><span class="vbs1-string">"adodb.recordset"</span><span class="vbs1-symbol">)
</span><span class="vbs1-identifier">sql </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">"select * from "</span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> tablename </span><span class="vbs1-symbol">&</span><span class="vbs1-string">" where 1<>1"
</span><span class="vbs1-identifier">rs</span><span class="vbs1-symbol">.</span><span class="vbs1-identifier">Open sql</span><span class="vbs1-symbol">,</span><span class="vbs1-whitespace"> conn</span><span class="vbs1-symbol">,</span><span class="vbs1-whitespace"> </span><span class="vbs1-number">1</span><span class="vbs1-symbol">,</span><span class="vbs1-whitespace"> </span><span class="vbs1-number">1
</span><span class="vbs1-identifier">j </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> rs</span><span class="vbs1-symbol">.</span><span class="vbs1-identifier">Fields</span><span class="vbs1-symbol">.</span><span class="vbs1-identifier">Count
txtContent </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">""
</span><span class="vbs1-identifier">txtContent1 </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">""
</span><span class="vbs1-identifier">txtContent2 </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">""
</span><span class="vbs1-identifier">txtContent3 </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">""
</span><span class="vbs1-identifier">txtContent4 </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">""
</span><span class="vbs1-reservedword">For</span><span class="vbs1-whitespace"> i </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-number">0</span><span class="vbs1-whitespace"> </span><span class="vbs1-reservedword">To</span><span class="vbs1-whitespace"> </span><span class="vbs1-symbol">(</span><span class="vbs1-identifier">j </span><span class="vbs1-symbol">-</span><span class="vbs1-number">1</span><span class="vbs1-symbol">)
</span><span class="vbs1-whitespace"> title </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> rs</span><span class="vbs1-symbol">.</span><span class="vbs1-identifier">Fields</span><span class="vbs1-symbol">(</span><span class="vbs1-identifier">i</span><span class="vbs1-symbol">).</span><span class="vbs1-identifier">Name
 txtContent </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> txtContent </span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> title </span><span class="vbs1-symbol">&</span><span class="vbs1-string">"|"
</span><span class="vbs1-whitespace"> txtContent1 </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> txtContent1 </span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> title</span><span class="vbs1-symbol">&</span><span class="vbs1-string">"=trim(request("""</span><span class="vbs1-symbol">&</span><span class="vbs1-identifier">title</span><span class="vbs1-symbol">&</span><span class="vbs1-string">"""))"</span><span class="vbs1-symbol">&</span><span class="vbs1-string">""
</span><span class="vbs1-whitespace"> txtContent2 </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> txtContent2 </span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> title</span><span class="vbs1-symbol">&</span><span class="vbs1-string">"=rs("""</span><span class="vbs1-symbol">&</span><span class="vbs1-identifier">title</span><span class="vbs1-symbol">&</span><span class="vbs1-string">""")"
</span><span class="vbs1-whitespace"> txtContent3 </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> txtContent3 </span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">"rs("""</span><span class="vbs1-symbol">&</span><span class="vbs1-identifier">title</span><span class="vbs1-symbol">&</span><span class="vbs1-string">""")=trim(request("""</span><span class="vbs1-symbol">&</span><span class="vbs1-identifier">title</span><span class="vbs1-symbol">&</span><span class="vbs1-string">"""))"
</span><span class="vbs1-whitespace"> txtContent4 </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> txtContent4 </span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> title</span><span class="vbs1-symbol">&</span><span class="vbs1-string">"=rs("""</span><span class="vbs1-symbol">&</span><span class="vbs1-identifier">title</span><span class="vbs1-symbol">&</span><span class="vbs1-string">""")"
</span><span class="vbs1-reservedword">Next
</span><span class="vbs1-identifier">yongfa365 </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> </span><span class="vbs1-string">"<div align=center><a href=""http://www.yongfa365.com"" class=""titlink"" title=""柳永法(yongfa365)'Blog http://www.yongfa365.com"">柳永法(yongfa365)'Blog</a>制作</div>"</span><span class="vbs1-symbol">&</span><span class="vbs1-identifier">title</span><span class="vbs1-symbol">&</span><span class="vbs1-string">"里的字段"
</span><span class="vbs1-identifier">CreateFile tablename</span><span class="vbs1-symbol">&</span><span class="vbs1-string">".html"</span><span class="vbs1-symbol">,</span><span class="vbs1-whitespace"> yongfa365 </span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> txtContent </span><span class="vbs1-symbol">&</span><span class="vbs1-string">""</span><span class="vbs1-whitespace"> </span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> txtContent1 </span><span class="vbs1-symbol">&</span><span class="vbs1-string">""</span><span class="vbs1-whitespace"> </span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> txtContent2 </span><span class="vbs1-symbol">&</span><span class="vbs1-string">""</span><span class="vbs1-whitespace"> </span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> txtContent3 </span><span class="vbs1-symbol">&</span><span class="vbs1-string">""</span><span class="vbs1-whitespace"> </span><span class="vbs1-symbol">&</span><span class="vbs1-whitespace"> txtContent4
</span><span class="vbs1-comment">'' rs_all.movenext
''Loop

</span><span class="vbs1-reservedword">Function</span><span class="vbs1-whitespace"> CreateFile</span><span class="vbs1-symbol">(</span><span class="vbs1-identifier">FileName</span><span class="vbs1-symbol">,</span><span class="vbs1-whitespace"> Content</span><span class="vbs1-symbol">)
</span><span class="vbs1-whitespace"> </span><span class="vbs1-reservedword">Set</span><span class="vbs1-whitespace"> FSO </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> CreateObject</span><span class="vbs1-symbol">(</span><span class="vbs1-string">"Scripting.FileSystemObject"</span><span class="vbs1-symbol">)
</span><span class="vbs1-whitespace"> </span><span class="vbs1-reservedword">Set</span><span class="vbs1-whitespace"> fd </span><span class="vbs1-symbol">=</span><span class="vbs1-whitespace"> FSO</span><span class="vbs1-symbol">.</span><span class="vbs1-identifier">CreateTextFile</span><span class="vbs1-symbol">(</span><span class="vbs1-identifier">FileName</span><span class="vbs1-symbol">,</span><span class="vbs1-whitespace"> </span><span class="vbs1-reservedword">True</span><span class="vbs1-symbol">)
</span><span class="vbs1-whitespace"> fd</span><span class="vbs1-symbol">.</span><span class="vbs1-identifier">WriteLine Content
</span><span class="vbs1-reservedword">End</span><span class="vbs1-whitespace"> </span><span class="vbs1-reservedword">Function

</span><span class="vbs1-symbol"></</span><span class="vbs1-identifier">script</span><span class="vbs1-symbol">>
</</span><span class="vbs1-identifier">job</span><span class="vbs1-symbol">>
</span></span></div>
试试其它关键字
　表的字段　
同语言下
可能有用的
Dezai.CN贡献的其它代码(4037)