asp代码获取access数据库表的名称和结构



访问Access数据库的表名_



数据库的路径:




<
如果要求表单(阿里)=1,要求表单(路径)< >然后
朦胧的Conn,connstr,我,SQL,RS
下次继续出错
connstr =司机=微软Access Driver(* .mdb);DBQ =+ server.mappath(要求表单(路径))
设置conn = server.createobject(数据连接)
康涅狄格州开connstr
如果犯错,然后
呃。清晰
设置conn =没有
响应。写入数据库连接错误,请检查连接字符串。
反应结束
最后如果
%>

<
J = 0
昏暗的tablecount
tablecount = 0
SHM = conn.openschema集(20)
shm.movefirst
而不是shm.eof
如果SHM(table_type )=表然后
如果左(SHM(table_name ),1)< >~ 然后来过滤出隐藏表
j = j + 1
电话getfileds(SHM(table_name ))
最后如果
最后如果
shm.movenext

response.write共享J数据表!
其他的
response.write 请看具体内容数据库的相对路径!
最后如果
%>


<
功能getfileds(字段)
集= server.createobject(ADODB。记录集)
sql
SQL =SELECT * FROM tablename
的。打开SQL,Conn,1, 1
模糊控制
续= rs.fields.count
response.write vbcrlf
response.write表是包含、领域,具体如下:vbcrlf
我= 0续1
昏暗的filtype
选择案例rs.fields型(I)。
案例3
filtype =自动编号(数字)
案例202
filtype =人物
案例203
filtype =注意
案例125
filtype =日期
案例11
filtype =真/假(是/否)
最后选择
响应。写我rs.fields(我)。名称;vbcrlf filtype
下一个
response.write vbcrlf
关闭
设置=无
端功能
%>