[ASP ] 有一行程式一直跑不出來~~拜託求救T_T
以下是我寫關於資料庫要排序的程式
但是有一行Rs.Open SQL,Conn,1,1
電腦會一直顯示錯誤類型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驅動程式不支援此要求內容。
想請問各位大大是什麼問題???
我人說是因為資料庫權限沒有開啟
什麼要開啟"讀寫"權力 這個我不太懂
如果是這樣 要怎麼開啟去哪裡開啟呢???
有人可以幫幫我嗎T_T
謝謝><
<HTML>
<head>
<title>財經資料</title>
</head>
<BODY Background="../NetScore/image/bg1.gif">
<p align="center"><font size="6" color="#0000FF"
face="金梅中楷體">財經資料</font></p>
<p>
<a href="A.asp">淨值TOP20</a>
<a href="B.asp">三個月績效TOP20</a>
<a href="C.asp">六個月績效TOP20</a>
<a href="D.asp">三個月加六個月績效TOP20</a>
<%
dim conn
Set Conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("new.mdb")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & DBPath
Set Rs = Server.CreateObject("ADODB.RecordSet")
if trim(request("op1")) = "" then
SQL= "Select * From 國外基金 Order By 淨值 Asc "
else
SQL= "Select * From 國外基金 Order By " & trim(request("op1")) & "Desc"
end if
Rs.Open SQL,Conn,1,1
%>
<center>
<Form method="get" action="456.asp">
<TABLE Border=1 Cellspacing=1 bordercolor="#800000" width="776">
<TR BgColor=#00FFFF>
<%
'輸出「抬頭名稱」
For i=0 to Rs.Fields.Count-1
Response.Write "<TD>" & Rs(i).Name & "</TD>"
Next
%>
</TR>
<%
'輸出「資料表中的內容」
Rs.MoveFirst
While Not Rs.Eof
aa="<TR>"
For i=0 to Rs.Fields.Count-1
aa=aa & "<TD>" & Rs(i)
Next
Response.Write aa & "<TR>"
Rs.MoveNext
Wend
%>
</TABLE>
<select name="op1" size="1">
<% For i=0 to Rs.Fields.Count-1 %>
<option value ="<% = Rs(i).Name %>"><% = Rs(i).Name %></option>
<% Next %>
</select>
<input type="submit" value="送出" name="Submit">
</Form>
<%
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
</BODY>
</HTML>
--
我的相簿www.wretch.cc/album/meii
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.168.82.15
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
