您现在的位置是：网站首页> 编程资料编程资料
vbs生成ACCESS数据里所有表的字段_vbs_
2023-05-25
337人已围观
简介 vbs生成ACCESS数据里所有表的字段_vbs_
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 ="
"
CreateFile tablename&".html", yongfa365 & txtContent &"
"& txtContent1 &"
"& txtContent2 &"
"& txtContent3 &"
"& txtContent4
rs_all.movenext
Loop
Function CreateFile(FileName, Content)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set fd = FSO.CreateTextFile(FileName,True)
fd.WriteLine Content
EndFunction
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&"""))"&"
"
txtContent2 = txtContent2 & title&"=rs("""&title&""")
"
txtContent3 = txtContent3 &"rs("""&title&""")=trim(request("""&title&"""))
"
txtContent4 = txtContent4 & title&"=rs("""&title&""")
"
Next
yongfa365 ="
"
CreateFile tablename&".html", yongfa365 & txtContent &"
"& txtContent1 &"
"& txtContent2 &"
"& txtContent3 &"
"& txtContent4
'' rs_all.movenext
''Loop
Function CreateFile(FileName, Content)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set fd = FSO.CreateTextFile(FileName,True)
fd.WriteLine Content
EndFunction
您可能感兴趣的文章:
