asp阿获取access所有表的字段备注
来源:互联网 发布:apache tomcat 6.x 编辑:程序博客网 时间:2024/05/05 17:16
asp如何获取access数据库的字段说明代码如下:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>提取access字段的说明信息</title>
</head>
<%
dim table
table = trim(request("t1"))
database=trim(request("d1"))
%>
<body>
<form method="POST" action="">
数据文件名:<input type="text" name="D1" size="40" value=<%response.write(database)%> >同目录下数据文件名称 如:database.mdb<br>
表......名:<input type="text" name="T1" size="40" value=<%response.write(table)%> >database.mdb中的表名<br>
<input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2">
</form>
<%
if table = "" then
response.write("post nothing")
else%><%
dim conn
dim connstr
on error resume next
connstr="PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source="+server.mappath(database)+";"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
response.write(connstr+"<br>")
dim sql
dim rs
sql="select * from "+table+""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
response.write(sql+"<br>")
If rs.State = adStateOpen Then
cnnState = "open"
Else
cnnState = "closed"
End If
response.write(cnnState +"<br>")
response.write("列数:"+cstr(rs.fields.count)+"<br>")
For i=0 to rs.fields.count-1
Response.Write "<TH>"+ rs(i).Name +"</TH>;<br>"
Next
Dim MyTableName
Dim MyFieldName
Dim MyDB
set mydb=server.createobject("adox.catalog")
Dim MyTable
set mytable=server.createobject("adox.table")
Dim MyField
set myfield =server.createobject("adox.column")
Dim pro
On Error resume next
MyDB.ActiveConnection =conn
For Each MyTable In MyDB.Tables
For Each MyField In MyTable.Columns
'response.write "FieldName:" & FieldType(MyField.Type) & " FieldSize:" & MyField.DefinedSize 'FieldType(pro.Type)
'response.write table & "." & MyField.name &":" '呵呵这里有变动,以前的有误
response.write MyTable.name & "." & MyField.name &":" '呵呵这里有变动,以前的有误
For Each pro In MyField.Properties
if pro.name="Description" and pro.Value <> "" then response.write pro.Value & " <br> " 'MyTable.Name & " : " & MyField.Name & " : " & pro.Name & " : " & pro.Value
Next
For Each pro In MyField.Properties
if pro.name="Description" and pro.Value = "" then response.write " [NULL]<br> "
Next
Next
Next
rs.close()
conn.close()
end if
%>
</body>
</html>
- asp阿获取access所有表的字段备注
- asp阿获取access所有表的代码
- access备注字段的的错误:“所有记录中均未找到搜索关键字”
- C#创建Access数据库的备注字段
- 获取mysql表中字段备注信息以及选中数据库中表的备注信息
- C# access 获取所有表名和字段名
- 获取access所有表和字段,不引用ADOX
- 获取access所有表和字段,不引用ADOX
- c# 获取access所有表名 获取指定表所有字段名
- c# 获取access所有表名 获取指定表所有字段名
- 获取某一个表的所有字段
- 获取一个表的所有字段
- 获取一个表的所有字段信息
- 获取数据库表的所有字段信息
- mysql获取表的所有字段名
- asp 应用ADODb.Command使用adLongVarChar参数类型保存Access备注字段
- asp.net获取SQL所有数据库名、所有表名、所有字段名、列描述
- asp.net获取SQL所有数据库名、所有表名、所有字段名、列描述
- 获取sql server数据库中所有用户表名
- Configuration、SessionFactory、Session、Transaction
- 规则验证的简单应用
- asp阿获取access所有表的代码
- android 开发常用网站
- asp阿获取access所有表的字段备注
- Object-C 中的Selector 概念
- GC安装错误2:agent安装后GC上找不到主机
- POJ 3253 Fence Repair (堆排序)
- 重装asp.net1.1和asp.net2.0
- samba"拒绝访问"
- 夏普IGZO-LCD科普:从底层谈IGZO
- 基于概率传导和热传导的推荐算法R语言代码
- 使用libxml提示libxml/tree.h找不到的问题解决