繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP获取ACCESS数据库表名及结构的代码
- ASP
- asp生成三维饼图的函数
- ASP下的简洁的多重查询的方法与函数 真不错
- 发一个ASP的ADODB类代码
- A利用ASP小偷和Google实现在线翻译功能的代码
- ASP类型网站结合动网论坛会员的方法
- Asp下实现多表单域无组件文件上传的实例
- asp制作中常用到的函数库集合
- 易心asp分页类 v1.0
- asp中xmlhttp组件发包
- 检测是否为数字类型的asp代码
- 可以获得文件的文件名的asp函数
- 用asp实现访问远程计算机上MDB access数据库文件的方法
- 用ASP实现写IIS日志的代码
- asp在IE浏览器中下载服务端上的各类文件的实现方法
- asp汉字中文图片验证码的实现代码
- asp WAP获取手机终端信息的一段代码
- asp取得数组中的最大值的方法
- 用asp实现的截取指定格式字符串的代码
- asp jmail发邮件 详细解析
- ASP编程中连接数据库和数据库操作的常用代码
ASP获取ACCESS数据库表名及结构的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 94 ::
收藏到网摘: n/a
此方法可获得ACCESS数据的表名及其结构，数据类型等... 程序过滤了几个ACCESS数据库的几个隐藏表(可能是导致ACCESS数据库删除数据还会变大的原因)
<html>
<head>
<title>获取ACCESS数据库表名_www.ruanchen.com</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
%>
评论 (0) All
