台灣最大程式設計社群網站
線上人數
649
 
會員總數:245785
討論主題:189420
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 用 ASP 印出資料庫的資料表名稱
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
用 ASP 印出資料庫的資料表名稱
價值 : 0 QP  點閱數:772 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
●用 ASP 印出資料庫的資料表名稱
<%
ODBC = Request("ODBC")

Set ConnectDB = Server.CreateObject("ADODB.Connection")
ConnectDB.CommandTimeout=30
ConnectDB.ConnectionTimeout=15
IF ODBC = 0 OR ODBC = Empty then
 DSNStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("accessdb.mdb")
 ConnectDB.Open DSNStr
Else
 DSNStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("accessdb.mdb")
 ConnectDB.Open DSNStr
End IF
Const adSchemaTables = 20
Set Schema = ConnectDB.OpenSchema(adSchemaTables)

Do While Not Schema.eof
 '--------略過系統資料表---------
 IF lcase(Left(Trim(Schema("Table_Name")),4)) <> "msys" then
  msgstr = msgstr & Trim(Schema("Table_Name")) & ""
 End IF
 Schema.movenext
Loop
Response.Write msgstr
Schema.close:Set Schema = Nothing
ConnectDB.Close:Set ConnectDB = Nothing
%>
以下是資料表名稱:
Account
測試資料表


本篇文章發表於2002-07-04 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.