原创作者:柳永法(yongfa365)'Blog
<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 = 0 To (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
End Function
</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 = 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 = 0 To (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
Function CreateFile(FileName, Content)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set fd = FSO.CreateTextFile(FileName, True)
fd.WriteLine Content
End Function
</script>
</job>
测试下载地址:生成ACCESS数据里表的字段.rar
原创作者:柳永法(yongfa365)'Blog 引用本页地址: http://www.yongfa365.com/item/Create-ACCESS-Tables-Fields-VBS-yongfa365.html
|
相关链接
|
|
| |
文章分类 |
|
|
|