当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > vbs生成ACCESS数据里所有表的字段

VBScript
一个实现VBS倒计时的代码
用vbs实现将剪切板的unix格式的内容处理成pc格式的代码
用vb和vbs 破解flashxp的密码的代码
用VBS实现的批量gb2312转utf-8,支持拖动
用vbs实现的XP序列号替换器
VBS可以做什么的简单说明
用vbs实现cmd功能的代码
VBS基础编程教程 (第1篇)
VBS基础编程教程 (第3篇)
VBS基础编程教程 (第4篇)
VBS基础编程教程 (第5篇)
VBS基础编程教程 (第6篇)
利用vbscript的for命令实现定时关机
在桌面右下角出现温馨提示的vbs冒泡程序
利用VBS发送邮件 挑选速度快的肉鸡做VPN 的vbs代码
vbs教程 chm下载
用vbs实现的简单的服务器文件备份办法压缩文件名自动按日期命名
输入mdb数据库即可将打包的mdb文件解包
VBS编程教程第一部
vbs脚本 加密 几个小细节小结下

No. « 24 25 26 27 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-11   浏览: 73 ::
收藏到网摘: n/a

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