设置/提取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 

 

转载于:https://www.cnblogs.com/luckboy/archive/2009/11/21/1607572.html