Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,025

HOME > ASP > ASP Forum > เขียน ASP ดึงข้อมูลแล้วโปรแกรมแจ้งข้อผิดพลาด Error Type: IBMDA400 Command (0x80004005) SQL0104



 

เขียน ASP ดึงข้อมูลแล้วโปรแกรมแจ้งข้อผิดพลาด Error Type: IBMDA400 Command (0x80004005) SQL0104

 



Topic : 046829



โพสกระทู้ ( 46 )
บทความ ( 0 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์




ผมเขียน ASP ดึงข้อมูลจาก AS/400 โดยวนลูปเช็คข้อมูลแล้วเกิด Error ตามด้านล่างนี้ครับ

Error Type:
IBMDA400 Command (0x80004005)
SQL0104: Token Y was not valid. Valid tokens: FOR WITH FETCH ORDER UNION EXCEPT OPTIMIZE. Cause . . . . . : A syntax error was detected at token Y. Token Y is not a valid token. A partial list of valid tokens is FOR WITH FETCH ORDER UNION EXCEPT OPTIMIZE. This list assumes that the statement is correct up to the token. The error may be earlier in the statement, but the syntax of the statement appears to be valid up to this point. Recovery . . . : Do one or more of the following and try the request again: -- Verify the SQL statement in the area of the token Y. Correct the statement. The error could be a missing comma or quotation mark, it could be a misspelled word, or it could be related to the order of clauses. -- If the error token is <END-OF-STATEMENT>, correct the SQL statement because it does not end with a valid clause.
/consumption/consump.asp, line 145

ตัวอย่างโปรแกรม Error ตรงบรรทัดสีแดง ครับ
<%
Set conn5 = Server.CreateObject("ADODB.Connection")
Conn5.ConnectionTimeout = 0
Conn5.CommandTimeout = 0
conn5.open "Provider=IBMDA400;Data source=157.116.20.1;User Id=PCS;Password=PCS;" & _
"DEFAULT COLLECTION=RYGCOLLIB;"

Set conn6 = Server.CreateObject("ADODB.Connection")
conn6.ConnectionTimeout = 0
conn6.CommandTimeout = 0
conn6.open "Provider=IBMDA400;Data source=157.116.20.1;User Id=PCS;Password=PCS;" & _
"DEFAULT COLLECTION=RINVDLIB;"

Set rs9= Server.CreateObject("ADODB.Recordset")

sql9 = "SELECT D_ITEMNO AS ITEMNO, D_TRANSD, D_TRANSM, D_TRANSY, D_QTRANS, D_PRICE, D_VENDOR , D_PORD_NBR, D_VENDINVC FROM RINVDLIB.RINVD"&mm&""&yyy&" , RINVDLIB.RITEM"&mm&""&yyy&" WHERE D_ITEMNO = I_ITEMNO AND D_PORD_STS = 'T' AND (D_TRANSCD = '10' OR D_TRANSCD = '11') AND NOT ( (I_ITEMCLAS = 'C' AND I_INVCNTRL = '2') OR (I_ITEMCLAS = 'T' AND I_INVCNTRL = '2') ) UNION ALL SELECT D_ITEMNO AS ITEMNO, D_TRANSD, D_TRANSM, D_TRANSY, D_QTRANS, D_PRICE, D_VENDOR, D_PORD_NBR , D_VENDINVC FROM RINVDLIB.RINVD"&mm&""&yyy&" WHERE D_ITEMNO NOT IN ( SELECT I_ITEMNO FROM RINVDLIB.RITEM"&mm&""&yyy&") ORDER BY D_TRANSY ASC, D_TRANSM ASC, D_TRANSD ASC, D_PORD_NBR ASC"
rs9.open sql9, conn6, 1, 3
' num_count = rs9.RecordCount
' response.write num_count
' response.end

response.write "<table>"
response.write "<tr>"
response.write "<td>"&"RECEIVE DATE"&"</td>"
response.write "<td>"&"W/O NO"&"</td>"
response.write "<td>"&"P/O NO"&"</td>"
response.write "<td>"&"ITEM NO"&"</td>"
response.write "<td>"&"ITEM NAME"&"</td>"
response.write "<td>"&"VENDOR "&"</td>"
response.write "<td>"&"INVOICE NO"&"</td>"
response.write "<td>"&"QTY"&"</td>"
response.write "<td>"&"PRICE"&"</td>"
response.write "<td>"&"AMOUNT "&"</td>"
response.write "</tr>"
AMOUNT = 0
ITEMNO1 = ""
do while not rs9.eof

ITEMNO1 = rs9("ITEMNO")

PORDNBR = rs9("D_PORD_NBR")

Set rs8= Server.CreateObject("ADODB.Recordset")
sql8 = "Select * FROM RITEM"&mm&""&yyy&" where I_ITEMNO = '"&ITEMNO1&"' ORDER BY I_ITEMNO"
rs8.open sql8, conn6, 1, 3

if not rs8.eof then
ITEMNME = rs8("I_ITEMNME")
else
ITEMNME = "-"
end if

Set rs7 = Server.CreateObject("ADODB.Recordset")
sql7 = "Select WKORNO, PONO from RINVDLIB.RIDVWO"&mm&""&yyy&" where PONO = '"&PORDNBR&"' order by PONO"
rs7.open sql7, conn6, 1, 3

if not rs7.eof then
WONO = rs7("WKORNO")
else
WONO = "No W/O"
end if

AMOUNT = formatnumber(rs9("D_QTRANS")) * formatnumber(rs9("D_PRICE"))
adate = rs9("D_TRANSD")&"/"&rs9("D_TRANSM")&"/"&rs9("D_TRANSY")

response.write "<tr>"
response.write "<td>"&adate&"</td>"
response.write "<td>"&WONO&"</td>"
response.write "<td>"&rs9("D_PORD_NBR")&"</td>"
response.write "<td>"&rs9("ITEMNO")&"</td>"
response.write "<td>"&ITEMNME&"</td>"
response.write "<td>"&rs9("D_VENDOR")&"</td>"
response.write "<td>"&rs9("D_VENDINVC")&"</td>"
response.write "<td>"&rs9("D_QTRANS")&"</td>"
response.write "<td>"&rs9("D_PRICE")&"</td>"
response.write "<td>"&AMOUNT&"</td>"
response.write "</tr>"
ITEMNO1 = ""
ITEMNME = ""

rs9.movenext
set rs8 = nothing
loop
response.write "</table>"
%>



Tag : ASP, DB2







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2010-08-10 10:34:17 By : naranont View : 1570 Reply : 0
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : เขียน ASP ดึงข้อมูลแล้วโปรแกรมแจ้งข้อผิดพลาด Error Type: IBMDA400 Command (0x80004005) SQL0104
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 01
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่