收藏本站腾讯微博新浪微博

经典论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

蓝色理想 最新研发动态 网站开通淘帖功能 - 蓝色理想插件 论坛内容导读一页看论坛 - 给官方提建议

论坛活动及任务 地图和邮件任务 请多用悬赏提问 热夏来袭,选一款蓝色理想的个性T恤吧!

手机上论坛,使用APP获得更好体验 急需前端攻城狮,获得内部推荐机会 论坛开通淘帖功能,收藏终于可以分类了!

搜索
查看: 4608|回复: 2

[asp] 献一函数:ASP获取ACCESS数据库的表名以及表名对应的字段名和字段类型

[复制链接]
发表于 2009-12-9 13:43:53 | 显示全部楼层 |阅读模式
  1. <%
  2. showtable "../database/#mall.mdb" '调用
  3. Sub showtable(tablepath)
  4. StrSQL="DBQ="+server.mappath(""&tablepath&"")+";DRIVER={Microsoft Access Driver (*.mdb)};"
  5. set conn=server.createobject("ADODB.CONNECTION")
  6. conn.open StrSQL
  7. Set rs=Conn.OpenSchema(20)
  8. rs.filter="table_type='table'"  '过滤只显示table类型的记录
  9. do while not rs.eof
  10.      response.write "tablename:"&rs("TABLE_NAME")&"<br>"
  11.             Set rst =server.CreateObject("adodb.recordset")
  12.             sql="select * from ["&rs("TABLE_NAME")&"]"
  13.             rst.open sql,conn,1,1
  14.             For i=0 To rst.fields.count-1
  15.             response.write  rst.fields(i).name&"--"&getType(rst.fields(i).type)&"<br />"
  16.             next
  17.             rs.movenext
  18. Loop
  19. End sub

  20. function getType(num)
  21.    select case num
  22.      case "202" :
  23.        getType="文本"
  24.      case "203" :
  25.        getType="备注"
  26.      case "3" :
  27.                 getType="长整型"
  28.      Case "2" :
  29.        getType="整型"
  30.      case "17" :
  31.        getType="字节"
  32.      case "3" :
  33.        getType="长整型"
  34.      case "4" :
  35.        getType="单精浮点"
  36.      Case  "5" :
  37.        getType="双精浮点"
  38.      case "3" :
  39.        getType="长整型"
  40.      case "72" :
  41.        getType="同步复制ID"
  42.      case "131" :
  43.        getType="小数"
  44.      Case "135" :
  45.        getType="日期/时间"
  46.      case "6" :
  47.        getType="货币"
  48.      case "11" :
  49.        getType="是/否"
  50.      case "205" :
  51.        getType="OLE对象"
  52.    end  Select
  53. End function
  54. %>
复制代码

[[i] 本帖最后由 yudi 于 2009-12-9 13:45 编辑 ]
发表于 2009-12-9 14:36:03 | 显示全部楼层
....谢谢..
试试先
回复 支持 反对

使用道具 举报

发表于 2009-12-9 22:30:59 | 显示全部楼层
还没有了解过。还可以。谢了。
关键就是这个rst.fields(i).type
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|Archiver|手机版|blueidea.com ( 湘ICP备12001430号 )  

GMT+8, 2020-9-21 17:24 , Processed in 0.124687 second(s), 8 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表