服务器之家

服务器之家 > 正文

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

时间:2020-07-23 11:05     来源/作者:VBS教程网
  1. <job id ="生成ACCESS数据库里所有表及所有字段并生成一定格式的字符组合">  
  2. <script language ="vbscript">  
  3. databasename ="access.mdb"''数据库地址  
  4. tablename ="blogarticle"''要处理的表名  
  5.  
  6.  
  7. Set conn = CreateObject("ADODB.Connection")  
  8. connstr ="provider=microsoft.jet.oledb.4.0;data source="&databasename  
  9. conn.Open connstr  
  10.  
  11. Set rs_all = CreateObject("adodb.recordset")  
  12. sql_all ="select name from MSysObjects where type=1 and flags=0"  
  13. rs_all.Open sql_all, conn,1,1  
  14.  
  15. DoWhileNot rs_all.EOF  
  16.     tablename = rs_all(0)  
  17. Set rs = CreateObject("adodb.recordset")  
  18.     sql ="select * from "& tablename &" where 1<>1"  
  19.     rs.Open sql, conn,1,1  
  20.     j = rs.Fields.Count  
  21.     txtContent =""  
  22.     txtContent1 =""  
  23.     txtContent2 =""  
  24.     txtContent3 =""  
  25.     txtContent4 =""  
  26. For i =0To(j -1)  
  27.         title = rs.Fields(i).Name  
  28.         txtContent = txtContent & title &"|"  
  29.         txtContent1 = txtContent1 & title&"=trim(request("""&title&"""))"&"<br>"  
  30.         txtContent2 = txtContent2 & title&"=rs("""&title&""")<br>"  
  31.         txtContent3 = txtContent3 &"rs("""&title&""")=trim(request("""&title&"""))<br>"  
  32.         txtContent4 = txtContent4 & title&"=rs("""&title&""")<br>"  
  33. Next  
  34.     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>"  
  35.     CreateFile tablename&".html", yongfa365 & txtContent &"<br><br>"& txtContent1 &"<br><br>"& txtContent2 &"<br><br>"& txtContent3 &"<br><br>"& txtContent4  
  36.     rs_all.movenext  
  37. Loop  
  38.  
  39. Function CreateFile(FileName, Content)  
  40. Set FSO = CreateObject("Scripting.FileSystemObject")  
  41. Set fd = FSO.CreateTextFile(FileName,True)  
  42.     fd.WriteLine Content  
  43. EndFunction  
  44.  
  45. </script>  
  46. </job>  
  47.  
  48.  
  49. <job id ="生成ACCESS数据库里指定表的所有字段并生成一定格式的字符组合">  
  50. <script language ="vbscript">  
  51. databasename ="access.mdb"''数据库地址  
  52. tablename ="blogarticle"''要处理的表名  
  53.  
  54.  
  55. Set conn = CreateObject("ADODB.Connection")  
  56. connstr ="provider=microsoft.jet.oledb.4.0;data source="&databasename  
  57. conn.Open connstr  
  58.  
  59. ''Set rs_all = CreateObject("adodb.recordset")  
  60. ''sql_all = "select name from MSysObjects where type=1 and flags=0"  
  61. ''rs_all.Open sql_all, conn, 1, 1  
  62.  
  63. ''Do While Not rs_all.EOF  
  64. ''    tablename = rs_all(0)  
  65. Set rs = CreateObject("adodb.recordset")  
  66. sql ="select * from "& tablename &" where 1<>1"  
  67. rs.Open sql, conn,1,1  
  68. j = rs.Fields.Count  
  69. txtContent =""  
  70. txtContent1 =""  
  71. txtContent2 =""  
  72. txtContent3 =""  
  73. txtContent4 =""  
  74. For i =0To(j -1)  
  75.     title = rs.Fields(i).Name  
  76.     txtContent = txtContent & title &"|"  
  77.     txtContent1 = txtContent1 & title&"=trim(request("""&title&"""))"&"<br>"  
  78.     txtContent2 = txtContent2 & title&"=rs("""&title&""")<br>"  
  79.     txtContent3 = txtContent3 &"rs("""&title&""")=trim(request("""&title&"""))<br>"  
  80.     txtContent4 = txtContent4 & title&"=rs("""&title&""")<br>"  
  81. Next  
  82. 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>"  
  83. CreateFile tablename&".html", yongfa365 & txtContent &"<br><br>"& txtContent1 &"<br><br>"& txtContent2 &"<br><br>"& txtContent3 &"<br><br>"& txtContent4  
  84. ''    rs_all.movenext  
  85. ''Loop  
  86.  
  87. Function CreateFile(FileName, Content)  
  88. Set FSO = CreateObject("Scripting.FileSystemObject")  
  89. Set fd = FSO.CreateTextFile(FileName,True)  
  90.     fd.WriteLine Content  
  91. EndFunction  
  92.  
  93. </script>  
  94. </job>  
标签:

相关文章

热门资讯

2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全 2019-12-26
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享 2020-04-07
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意 2019-07-07
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
返回顶部