vbs生成ACCESS資料裡所有表的欄位

NO IMAGE

<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資料庫