vbs怎么生成ACCESS数据里所有表的字段-创新互联

这篇文章主要讲解了“vbs怎么生成ACCESS数据里所有表的字段”，文中的讲解内容简单清晰，易于学习与理解，下面请大家跟着小编的思路慢慢深入，一起来研究和学习“vbs怎么生成ACCESS数据里所有表的字段”吧！

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&"""))"&"
"
        txtContent2 = txtContent2 & title&"=rs("""&title&""")
"
        txtContent3 = txtContent3 &"rs("""&title&""")=trim(request("""&title&"""))
"
        txtContent4 = txtContent4 & title&"=rs("""&title&""")
"
Next
    yongfa365 ="柳永法(yongfa365)'Blog制作