vbs生成ACCESS数据里所有表的字段
导读：收集整理的这篇文章主要介绍了vbs生成ACCESS数据里所有表的字段，觉得挺不错的，现在分享给大家，也给大家做个参考。 <job id ="生成ACCESS数据库里所有表及所有字段...
收集整理的这篇文章主要介绍了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数据库
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： vbs生成ACCESS数据里所有表的字段
本文地址： https://pptw.com/jishu/609691.html