Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

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.

เริ่มหัวข้อใหม่

toto

โพสกระทู้ ( 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 " <CENTER> รายละเอียดผู้ประกอบการ</CENTER> "
Response.Write "<CENTER>TIN : "&rsMiss("TIN")&"   สถานประกอบการ : "&rsMiss("BraNam")&"   ชื่อ-สกุล : "&rsMiss("JurNam") &"   ISIC : "&rsMiss("ISIC") &"<HR></CENTER> "
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>* * * ไม่พบข้อมูล * * * <form><input type=button value='ปิดหน้าจอนี้' onClick='javascript:window.close();'></form></CENTER> "
Else
Response.Write "<TABLE table border=1 width=500 cellspacing=0 bordercolor=black bordercolordark=white bordercolorlight=black>"
Response.Write "<TH BGCOLOR='#CCCCCC'>  พ.ศ. </TH><TH BGCOLOR='#CCCCCC'>   ยอดขายตามงบ  </TH><TH BGCOLOR='#CCCCCC'>   อากรแสตมป์  </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'> "&rs("PP_Year")&"</TD><TD ALIGN='Right'> "&FormatNumber(rs("SaleTax1"),2)&"</TD><TD ALIGN='Right'> "&FormatNumber(rs("SaleTax5"),2)&"</TD></TR>"
Sum1=Sum1+rs("SaleTax1")
Sum2=Sum5+rs("SaleTax5")
rs.MoveNext
loop

Response.Write"</TABLE> "
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

Date : 2011-06-10 16:00:01

By : 08062521

View : 3383

Reply : 3

No. 1

TC Admin

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

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

Code (ASP)

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

Date : 2011-06-10 16:27:20

By : webmaster

No. 2

toto

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

ใส่ตรงส่วนไหนครับ ผมลองแล้วมันก็ไม่หายครับ

Date : 2011-06-14 09:20:58

By : 08062521

No. 3

TC Admin

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

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.

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก