access读取mysql表_ASP获取ACCESS数据库表名及结构的代码

ASP获取ACCESS数据库表名及结构的代码

更新时间：2008年08月20日 01:01:50   作者：

此方法可获得ACCESS数据的表名及其结构，数据类型等...

程序过滤了几个ACCESS数据库的几个隐藏表(可能是导致ACCESS数据库删除数据还会变大的原因)

获取ACCESS数据库表名_www.jb51.net

数据库路径:

---

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

%>

---

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 "

请输入数据库相对路径查看具体内容!

"

end if

%>

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 "

"&vbcrlf

response.write "表 "&TableName&" 中含有"&Cont&"个字段,具体如下:
"&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 " "&i&"--"&rs.fields(i).name&"--"&filtype&";
"&vbcrlf

Next

response.write "

"&vbcrlf

rs.Close

set rs=nothing

End Function

%>

相关文章

asp强大的application 是 php 中所没有的。昨天朋友抱怨他的人才网站读取速度慢，于是我帮他把asp中读库比较费时的部分用application做了缓存。2009-12-12

本文主要介绍的是ASP使用MySQL数据库的攻略，希望对你有帮助，一起来看。2015-10-10

asp网页邮箱访问...2006-09-09

asp截取字符串的两种应用...2006-08-08

让asp生成带有样式的word文件,如字体颜色为红色,加粗,字号为36号的文字2008-09-09

这篇文章主要介绍了ASP通过ODBC连接SQL Server 2008数据库的方法,需要的朋友可以参考下2015-08-08

asp下的分页程序代码2008-04-04

ASP判断是否为数字通常用isnumeric()函数，它的作用是判断里面的参数表达式是不是数值2007-11-11

这篇文章主要介绍了asp中Scripting.Dictionary字典对象使用示例,本文包含创建、赋值、遍历、判断KEY等操作,需要的朋友可以参考下2014-08-08

本文罗列了一些常用的ASP时间函数以及如何获取服务器时间的写法，感兴趣的朋友可以了解下，就当巩固知识了希望本文对你有所帮助2013-01-01

最新评论