台灣最大程式設計社群網站
線上人數
600
 
會員總數:245214
討論主題:189087
歡迎您免費加入會員
討論區列表 >> MS SQL >> [SQL]錯誤訊息代表???
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
[SQL]錯誤訊息代表???
價值 : 0 QP  點閱數:1463 回應數:4

樓主

Richard
初學者
237 3
4 71
發送站內信

錯誤類型:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 運作必須使用更新查詢。

本篇文章發表於2002-03-26 21:47
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

葉子
檢舉此回應
也許把sql script 語法PO出來
會比較易懂些
本篇文章回覆於2002-03-26 21:49
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

Richard
檢舉此回應
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="ADOVBS.INC"-->

<%
SET ECDBproduct = SERVER.CREATEOBJECT("ADODB.Connection")
    ECDBproductPath = SERVER.MAPPATH("ecdb/product.mdb")
    ECDBproduct.OPEN "driver={Microsoft Access Driver (*.mdb)};dbq=" & ECDBproductPath

SET ECDBorder = SERVER.CREATEOBJECT("ADODB.Connection")
    ECDBorderPath = SERVER.MAPPATH("ecdb/order.mdb")
    ECDBorder.OPEN "driver={Microsoft Access Driver (*.mdb)};dbq=" & ECDBorderPath



    sys_sn  = Request.Form("sys_sn")
     Products = Split(sys_sn,  ",")

SQLstr_sn ="select * from order_list order by id desc"
set RS_order=ECDBorder.Execute(SQLstr_sn)

if RS_order.EOF then
no = 1
else
no = RS_order("id")+1
end if

if len(no)=1 then order_sn = "A" +"00000"+cStr(no)
if len(no)=2 then order_sn = "A" +"0000"+cStr(no)
if len(no)=3 then order_sn = "A" +"000"+cStr(no)
if len(no)=4 then order_sn = "A" +"00"+cStr(no)
if len(no)=5 then order_sn = "A" +"0"+cStr(no)
if len(no)=6 then order_sn = "A" +cStr(no)

  

    For I=0 To UBound(Products)
      
       ProductList=Products(I)

If Len(ProductList) = 0 Then
       Response.Redirect "no_order.asp"
       Response.end
End if

Q_Productlist = Request.Form ("Q_" & ProductList)   
      
       SQLstr_product = "Select * From product where sys_sn ='"& ProductList & "'"
       Set RS_product = ECDBproduct.Execute(SQLstr_product)
      
           
     SQLstr = "INSERT INTO order_list (order_sn,sys_sn,vendor,qty,price,order_date)"
SQLstr = SQLstr & " VALUES ('" & order_sn & "','"& ProductList &"','"& RS_product("vendor") &"',"& Q_ProductList &","& RS_product("price") &",'" &date& "')"


'response.write sqlstr
'response.end

ECDBorder.Execute(SQLstr)
      
    Next
   
 
 
If Err.Number <> 0 Then
      Response.Write "錯誤號碼:"& Err.Number & "<br>"
  Response.Write "錯誤程式:"& Err.Source & "<br>"
  Response.Write "錯誤號碼:"& Err.Description & "<br>"
    Else
      Response.Write "<Br><Br><Br><Br>"
      Response.Write "<center><font size='3' COLOR='#0000FF'>產品購買完成<br><br>"
      Response.Write "<a href='index.asp'>回首頁</a></font><br><br>"
      Response.Write "</center>"
      Response.Write "<hr>"

    End If   
   
   ECDBproduct.CLOSE
   ECDBorder.CLOSE



%>
本篇文章回覆於2002-03-26 21:57
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
回應


檢舉此回應
請先檢查資料夾擊檔案的權限是否只被允許讀取...
檔案屬性是否被設定唯讀...
請先開放權限及變更屬性...
本篇文章回覆於2002-03-27 09:35
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
回應

凝風
捐贈 VP 給 凝風 檢舉此回應
在你的database按右鍵→內容→安全→新增Everyone→「允許」打勾
本篇文章回覆於2002-03-27 09:52
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

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