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

Registered : 107,415

HOME > ASP > ASP Forum > Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.





 

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

 



Topic : 061500



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



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




Code
<%
SET rs=Server.CreateObject("ADODB.Recordset")
SET rsMiss=Server.CreateObject("ADODB.Recordset")
SET rsYear=Server.CreateObject("ADODB.Recordset")
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("dbfile\PP30db.mdb")

sqlMiss = "SELECT AutoID, TIN, BraNam, JurNam, ISIC From company WHERE AutoID="&Request.QueryString("id1")
rsMiss.open sqlMiss,conn,1,3
Response.Write "<BR><BR><CENTER><font size='3'> <font color=black><B>รายละเอียดผู้ประกอบการ</B></CENTER><BR>"
Response.Write "<CENTER><B>TIN : </B>"&rsMiss("TIN")&"<font size='3'> <font color=black><B> &nbsp;&nbsp;สถานประกอบการ : </B> "&rsMiss("BraNam")&"&nbsp;&nbsp;<font size='3'> <font color=black><B>ชื่อ-สกุล : </B>"&rsMiss("JurNam") &" <font size='3'> <font color=black><B> &nbsp;&nbsp;ISIC : </B>"&rsMiss("ISIC") &"<HR></CENTER><BR>"
sqlYear = "SELECT DISTINCT PP_Year FROM pp50 WHERE AutoID="&Request.QueryString("id1")& " ORDER BY PP_Year"
rsYear.open sqlYear,conn,1,3
rsYear.MoveFirst
Do While Not rsYear.Eof
sql = "SELECT PP_Year, SaleTax1, SaleTax5 FROM pp50 WHERE AutoID="&Request.QueryString("id1")& " AND PP_Year="&rsYear("PP_Year")& " ORDER BY PP_Year"
rs.open sql,conn,1,3
' On Error Resume Next
IF rs.RecordCount =0 THEN
Response.Write "<CENTER><font face='MS Sans Serif' size='2' color='#3300CC'>* * * ไม่พบข้อมูล * * * <BR><form><input type=button value='ปิดหน้าจอนี้' onClick='javascript:window.close();'></form></CENTER><BR>"
Else
Response.Write "<TABLE table border=1 width=500 cellspacing=0 bordercolor=black bordercolordark=white bordercolorlight=black>"
Response.Write "<TH BGCOLOR='#CCCCCC'><font size='3'> <font color=black>&nbsp;พ.ศ.&nbsp;</TH><TH BGCOLOR='#CCCCCC'><font size='3'> <font color=black>&nbsp;&nbsp;ยอดขายตามงบ&nbsp;&nbsp;</TH><TH BGCOLOR='#CCCCCC'><font size='3'> <font color=black>&nbsp;&nbsp;อากรแสตมป์&nbsp;&nbsp;</TH>"
Sum1=0
sum2=0
rs.MoveFirst
Do While Not rs.Eof
If Color=0 Then
Response.Write "<TR BGCOLOR=#FFFFCC>"
Color=1
Else
Response.Write "<TR BGCOLOR=#CCFFCC>"
Color=0
End If
Response.Write " <TD ALIGN='center'><font size='2'> <font color=black>"&rs("PP_Year")&"</TD><TD ALIGN='Right'><font size='2'> <font color=black>"&FormatNumber(rs("SaleTax1"),2)&"</TD><TD ALIGN='Right'><font size='2'> <font color=black>"&FormatNumber(rs("SaleTax5"),2)&"</TD></TR>"
Sum1=Sum1+rs("SaleTax1")
Sum2=Sum5+rs("SaleTax5")
rs.MoveNext
loop

Response.Write"</TABLE><BR>"
END IF
rsYear.MoveNext
rs.Close
loop

conn.Close

%>

--------------
จากโค๊ต กรณีไม่มีข้อมูลผมสั่งให้ขึ้นว่า "ไม่พบข้อมูล" แต่พอรันโปรแกรมแล้วมันไม่ทำคำสั่งนี้ครับ

error ดังนี้ ครับ Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

ไม่รู้ว่าทำผิดอะไรตรงไหนรึป่าว แต่หากมีข้อมูลก็แสดงปกตินะครับ



Tag : ASP







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2011-06-10 16:00:01 By : 08062521 View : 1873 Reply : 3
 

 

No. 1



โพสกระทู้ ( 73,924 )
บทความ ( 838 )

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

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

ใช้ตัวนี้ครอบครับ

Code (ASP)
IF NOT rsMiss.EOF Then
.
.
ใส่คำสั่งอื่น ๆ 
.
.
End IF







แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-06-10 16:27:20 By : webmaster
 


 

No. 2



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



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


ใส่ตรงส่วนไหนครับ ผมลองแล้วมันก็ไม่หายครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-06-14 09:20:58 By : 08062521
 

 

No. 3



โพสกระทู้ ( 73,924 )
บทความ ( 838 )

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

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

Code (ASP)
	Dim Conn,strSQL,objRec
	Set Conn = Server.Createobject("ADODB.Connection")
	Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""
	strSQL = "SELECT * FROM customer "
	Set objRec = Server.CreateObject("ADODB.Recordset")
	objRec.Open strSQL, Conn, 1,3

	If objRec.EOF Then
		Response.write (" Not found record.")	
	Else


	End IF


ตัวอย่างการเชคกรณีที่ไม่มี Record ครับ

Go to : ASP Microsoft Access List Record Paging/Pagination
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-06-14 21:15:59 By : webmaster
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม

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