一个获取ACCESS数据库表名以及表名对应的字段名和字段类型>>ASP教程>>网络编程>>畅无忧设计

网站首页

手机版

注册登录

您现在的位置：畅无忧设计 >> 网络编程 >> ASP教程 >> 正文

热门文章

化境ASP无组件上传类 - upload_5xs
一个获取ACCESS数据库表名以及表名
asp将查询结果导出到excel
艾恩ASP无组件上传修改版
ASP批量导入Excel到Access或者Sql
ASP读取数据库的Flash+JS图片切换特
ASP用两级联动下拉列表来显示大类和
ASP+JS实现网页歌曲连播、点播功能
使用ASP重启服务器
asp批量替换access数据库中指定字段

没有相关文章

一个获取ACCESS数据库表名以及表名对应的字段名和字段类型

来源：蓝色理想更新时间：2009/12/11 23:26:10 阅读次数：
字体：[大中小] 我要投稿

<%
showtable "../database/#mall.mdb" '调用
Sub showtable(tablepath)
StrSQL="DBQ="+server.mappath(""&tablepath&"")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open StrSQL
Set rs=Conn.OpenSchema(20)
rs.filter="table_type='table'" '过滤只显示table类型的记录
do while not rs.eof
     response.write "tablename："&rs("TABLE_NAME")&"<br>"
        Set rst =server.CreateObject("adodb.recordset")
        sql="select * from ["&rs("TABLE_NAME")&"]"
        rst.open sql,conn,1,1
        For i=0 To rst.fields.count-1
        response.write rst.fields(i).name&"--"&getType(rst.fields(i).type)&"<br />"
        next
        rs.movenext
Loop
End sub
function getType(num)
   select case num
     case "202" :
       getType="文本"
     case "203" :
       getType="备注"
     case "3" :
        getType="长整型"
     Case "2" :
       getType="整型"
     case "17" :
       getType="字节"
     case "3" :
       getType="长整型"
     case "4" :
       getType="单精浮点"
     Case "5" :
       getType="双精浮点"
     case "3" :
       getType="长整型"
     case "72" :
       getType="同步复制ID"
     case "131" :
       getType="小数"
     Case "135" :
       getType="日期/时间"
     case "6" :
       getType="货币"
     case "11" :
       getType="是/否"
     case "205" :
       getType="OLE对象"
   end Select
End function
%>

上一篇文章：网站生成静态页面，及网站数据采集的攻、防原理和策略

下一篇文章：如何轻松打造ASP计数器