客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
<html> <head> <title>获取ACCESS数据库表名_www.ogeek.net</title> </head> <body style="text-align:left;margin-left:50px;font-family:'arial';font-size:12px"> <form style="padding:5px;margin:5px;margin-left:0px" name="get" action="" method="post"> 数据库路径:<input type="text" name="path" value="" size="50" /> <input type="hidden" name="ari" value="1" /> <input type="submit" value="查看" /> </form> <hr> <% if request.form("ari")="1" and request.form("path")<>"" then dim conn,connstr,i,sql,rs on error resume next Connstr="DRIVER=Microsoft Access Driver (*.mdb);DBQ="+server.mappath(request.form("path")) Set Conn=Server.CreateObject("ADODB.Connection") conn.Open connstr If Err Then err.Clear Set Conn = Nothing Response.Write "数据库连接出错，请检查连接字串。" Response.End End If %> <font color=red><%=conn.connectionstring%></font><hr> <% j=0 dim tablecount tablecount=0 Set shm = conn.OpenSchema(20) shm.MoveFirst Do While Not shm.EOF If shm("TABLE_TYPE") = "TABLE" Then If Left(shm("table_name"), 1) <> "~" Then '这里过滤掉隐藏表 j=j+1 call GetFileds(shm("table_name")) End If End If shm.MoveNext Loop response.write "共有 "&j&" 个数据表!" else response.write "<h3>请输入数据库相对路径查看具体内容!</h3>" end if %> </body> </html> <% Function GetFileds(TableName) Set rs = server.createobject("adodb.recordset") Dim SQL SQL = "select * from " & TableName rs.Open SQL, conn, 1, 1 Dim Cont Cont = rs.Fields.Count response.write "<div style=""margin-bottom:10px;padding:5px;border:1px #dddddd solid;background:#eeeeee"">"&vbcrlf response.write "表 <font color=red><b>"&TableName&"</b></font> 中含有"&Cont&"个字段,具体如下:<br>"&vbcrlf For i = 0 To Cont - 1 dim filtype select case rs.fields(i).type case 3 filtype="自动编号(数字)" case 202 filtype="字符" case 203 filtype="备注" case 125 filtype="日期" case 11 filtype="真/假(是/否)" end select response.write " <font color=red>"&i&"</font>--<font color=green><b>"&rs.fields(i).name&"</b></font>--"&filtype&";<br />"&vbcrlf Next response.write "</div>"&vbcrlf rs.Close set rs=nothing End Function %> |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论