ASP获取ACCESS数据库表名及结构的代码
来源：asp之家 发布时间：2011-04-15 10:50:00
<html>
<head>
<title>获取ACCESS数据库表名 - www.cidianwang.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
投稿猜你喜欢
- 一、读者指引读者指引帮助你掌握本文的梗概。以免你看了大半才明白这编文章不适合你，给你造成视觉污染。如果你正在用ASP+XML写一些程序，或者
为什么Python中0.2+0.1不等于0.3大家请看下面的python程序代码：print(0.2+0.1)猜一猜运行结果是什么，是0.3- 误区 #11:镜像在检测到故障后瞬间就能故障转移错误 数据库镜像的故障转移既可以自动发起，也可以手动发起
- 配置要求：IIS（win2000 server 自带）、Java 2 SDK 1.4.2 (或更高版本)、Tomcat Web Server
- 1 Kmean图像分割按照Kmean原理，对图像像素进行聚类。优点：此方法原理简单，效果显著。缺点：实践发现对于前景和背景颜色相近或者颜色区
- 前言SPA项目中，首屏加载速度都是老生常谈的问题了，首屏时间直接反应了用户多久能看到页面的主要内容，这决定了用户体验，本文聊一聊如何采集首屏
- 在我们建立一个数据库时，并且想将分散在各处的不同类型的数据库分类汇总在这个新建的数据库中时，尤其是在进行数据检验、净化和转换时，将会面临很大
- 目录1、几个概念2、举个例子3、解决问题4、换个方法通常，当我们需要对对象的敏感属性或者不希望外部直接访问的属性进行私有化，但是某些时候我们
- 前言vue3 支持用 jsx 实现组件，摆脱了 vue 文件式的组件，不再需要额外的指令，写法非常接近 React，减少记忆负担。本文简单的
- 使用 Django自带的 auth 用户验证功能，编写函数，使用 is_authenticated 检查用户是否登录，结果报错：TypeEr
- 随着网站访问量的加大，每次从数据库读取都是以效率作为代价的，很多用ACCESS作数据库的更会深有体会，静态页加在搜索时，也会被优先考虑。互联
- 基于tkinter模块的GUIGUI是图形用户界面的缩写，图形化的用户界面对使用过计算机的人来说应该都不陌生，在此也无需进行赘述。Pytho
- 准确地说， 这个标题是有问题的， go gin只能给浏览器返回操作cookie的指令， 真正执行cookie操作的是浏览器。 但广泛地来讲，
- list count统计个数实现在python数组中统计某个数字出现的次数。。。。。count_num = 3lst = [1,2,3,4,
- Sql Server的存储过程是一个被命名的存储在服务器上的Transacation-Sql语句集合,是封装重复性工作的一种方法,它支持用户
- 本文为大家分享了购物商城小程序，供大家参考，具体内容如下软件版本：python3.x功能：实现简单购物商城1.允许用户选择购买多
- 1.综述又称单词查找树，Trie树，是一种树形结构，是一种哈希树的变种。典型应用是用于统计，排序和保存大量的字符串（但不仅限于字符串），所以
- 首先需要安装itchat库，可以pip install itchat安装，也可以在pycharm里安装# -*- coding:utf-8
- 在django操作数据库的时候如何找出内容不为空的数据呢？from django.db.models import Qclass Index
- 结合工作中的内容和大家分享一次Left Jon优化的过程，希望能给同学们新的思路。【功能背景】 我们需要
