设置/提取access字段的说明信息
1 <html>
2 <head>
3 <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
4 <title>设置/提取access字段的说明信息</title>
5 </head>
6 <%
7 dim table
8 table = trim(request("t1"))
9 database=trim(request("d1"))
10 %>
11 <body>
12 <form method="POST" action="">
13 数据文件名:<input type="text" name="D1" size="40" value=<%response.write(database)%> >同目录下数据文件名称 如：database.mdb<br>
14 表
名:<input type="text" name="T1" size="40" value=<%response.write(table)%> >database.mdb中的表名<br>
15 <input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2">
16 </form>
17
18 <%
19 if table = "" then
20 response.write("post nothing")
21 else%>
22
23 <%
24 dim conn
25 dim connstr
26 on error resume next
27 connstr="PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source="+server.mappath(database)+";"
28 set conn=server.createobject("ADODB.CONNECTION")
29 conn.open connstr
30 response.write(connstr+"<br>")
31 dim sql
32 dim rs
33 sql="select * from "+table+""
34 set rs=server.createobject("adodb.recordset")
35 rs.open sql,conn,3,2
36 response.write(sql+"<br>")
37
38 If rs.State = adStateOpen Then
39 cnnState = "open"
40 Else
41 cnnState = "closed"
42 End If
43 response.write(cnnState +"<br>")
44 response.write("列数:"+cstr(rs.fields.count)+"<br>")
45
46 For i=0 to rs.fields.count-1
47 Response.Write "<TH>"+ rs(i).Name +"</TH>;<br>"
48 Next
49
50
51 Dim MyTableName
52 Dim MyFieldName
53
54 Dim MyDB
55 set mydb=server.createobject("adox.catalog")
56 Dim MyTable
57 set mytable=server.createobject("adox.table")
58 Dim MyField
59 set myfield =server.createobject("adox.column")
60 Dim pro
61 Dim p
62
63 On Error resume next
64
65 MyDB.ActiveConnection =conn
66
67
68 '设置字段说明属性
69 For Each MyTable In MyDB.Tables
70 'Debug.Print MyTable.Name
71 For Each MyField In MyTable.Fields
72 'Debug.Print MyField.Name
73 If MyField.Name = FieldName And MyTable.Name = TableName Then
74 Set pro = MyField.CreateProperty("Caption", 12, "aa")
75 MyField.Properties.Append pro
76 Set pro = MyField.CreateProperty("Description", 10, "aa")
77 MyField.Properties.Append pro
78
79 End If
80 For Each p In MyField.Properties
81 If p.Name = "caption" Then
82 Debug.Print MyTable.Name & ":" & MyField.Name & ":" & "pro:"; p.Name & "--" & p.Value
83 'MyField.Properties.Delete "Caption" '删除属性
84 End If
85 Next
86 Next
87 Next
88
89
90 '读取字段说明属性
91 For Each MyTable In MyDB.Tables
92 For Each MyField In MyTable.Columns
93 'response.write "FieldName:" & FieldType(MyField.Type) & " FieldSize:" & MyField.DefinedSize 'FieldType(pro.Type)
94 'response.write table & "." & MyField.name &":" '呵呵这里有变动,以前的有误
95 response.write MyTable.name & "." & MyField.name &":" '呵呵这里有变动,以前的有误
96 For Each pro In MyField.Properties
97 if pro.name="Description" and pro.Value <> "" then response.write pro.Value & " <br> " 'MyTable.Name & " : " & MyField.Name & " : " & pro.Name & " : " & pro.Value
98 Next
99 Next
100 Next
101
102 rs.close()
103 conn.close()
104 end if
105 %>
106
107 </body>
108
109 </html>
110
2 <head>
3 <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
4 <title>设置/提取access字段的说明信息</title>
5 </head>
6 <%
7 dim table
8 table = trim(request("t1"))
9 database=trim(request("d1"))
10 %>
11 <body>
12 <form method="POST" action="">
13 数据文件名:<input type="text" name="D1" size="40" value=<%response.write(database)%> >同目录下数据文件名称 如：database.mdb<br>
14 表
名:<input type="text" name="T1" size="40" value=<%response.write(table)%> >database.mdb中的表名<br>15 <input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2">
16 </form>
17
18 <%
19 if table = "" then
20 response.write("post nothing")
21 else%>
22
23 <%
24 dim conn
25 dim connstr
26 on error resume next
27 connstr="PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source="+server.mappath(database)+";"
28 set conn=server.createobject("ADODB.CONNECTION")
29 conn.open connstr
30 response.write(connstr+"<br>")
31 dim sql
32 dim rs
33 sql="select * from "+table+""
34 set rs=server.createobject("adodb.recordset")
35 rs.open sql,conn,3,2
36 response.write(sql+"<br>")
37
38 If rs.State = adStateOpen Then
39 cnnState = "open"
40 Else
41 cnnState = "closed"
42 End If
43 response.write(cnnState +"<br>")
44 response.write("列数:"+cstr(rs.fields.count)+"<br>")
45
46 For i=0 to rs.fields.count-1
47 Response.Write "<TH>"+ rs(i).Name +"</TH>;<br>"
48 Next
49
50
51 Dim MyTableName
52 Dim MyFieldName
53
54 Dim MyDB
55 set mydb=server.createobject("adox.catalog")
56 Dim MyTable
57 set mytable=server.createobject("adox.table")
58 Dim MyField
59 set myfield =server.createobject("adox.column")
60 Dim pro
61 Dim p
62
63 On Error resume next
64
65 MyDB.ActiveConnection =conn
66
67
68 '设置字段说明属性
69 For Each MyTable In MyDB.Tables
70 'Debug.Print MyTable.Name
71 For Each MyField In MyTable.Fields
72 'Debug.Print MyField.Name
73 If MyField.Name = FieldName And MyTable.Name = TableName Then
74 Set pro = MyField.CreateProperty("Caption", 12, "aa")
75 MyField.Properties.Append pro
76 Set pro = MyField.CreateProperty("Description", 10, "aa")
77 MyField.Properties.Append pro
78
79 End If
80 For Each p In MyField.Properties
81 If p.Name = "caption" Then
82 Debug.Print MyTable.Name & ":" & MyField.Name & ":" & "pro:"; p.Name & "--" & p.Value
83 'MyField.Properties.Delete "Caption" '删除属性
84 End If
85 Next
86 Next
87 Next
88
89
90 '读取字段说明属性
91 For Each MyTable In MyDB.Tables
92 For Each MyField In MyTable.Columns
93 'response.write "FieldName:" & FieldType(MyField.Type) & " FieldSize:" & MyField.DefinedSize 'FieldType(pro.Type)
94 'response.write table & "." & MyField.name &":" '呵呵这里有变动,以前的有误
95 response.write MyTable.name & "." & MyField.name &":" '呵呵这里有变动,以前的有误
96 For Each pro In MyField.Properties
97 if pro.name="Description" and pro.Value <> "" then response.write pro.Value & " <br> " 'MyTable.Name & " : " & MyField.Name & " : " & pro.Name & " : " & pro.Value
98 Next
99 Next
100 Next
101
102 rs.close()
103 conn.close()
104 end if
105 %>
106
107 </body>
108
109 </html>
110
