asp如何擷取access資料庫的欄位說明

來源:互聯網
上載者:User

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
        Next
    Next

        rs.close()
        conn.close()
   end if
%>

</body>

</html>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。