vbs创建mysql数据库_vbs生成ACCESS数据里所有表的字段

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

更新时间：2008年06月25日 08:38:32   作者：

生成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 &