Forgot Password ??

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

	Registered : 109,028

HOME > ASP > ASP Forum > Error Type: ADODB.Recordset (0x800A0CB3) Current Recordset does not support bookmarks.

Error Type: ADODB.Recordset (0x800A0CB3) Current Recordset does not support bookmarks.

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

Guest

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<META http-equiv="Content-Type" Content="text/html; charset=windows-874">
</HEAD>
<TITLE>ค้นหาข้อมูล (sjsSearch2.asp)</TITLE>
<BODY>
<% Response.Buffer=True %>



<%
Dim SumAll

uYear = Request.QueryString("txtyear")
'Response.Write uYear
'Response.End
'--------------------------------------------------------------------------------
sub allstudent 'นับจำนวนนักศึกษา
stdall = 0
Set rs1 = Server.CreateObject ("ADODB.Recordset")
sql1 = "SELECT * FROM uoc_std "
sql1 = sql1 & "WHERE year = '" & uYear & "'"
sql1 = sql1 & "AND Ok is NULL "
sql1 = sql1 & "ORDER BY std_id"
set rs1 = Conn.Execute(sql1)
Do while (not rs1.BOF and not rs1.EOF)
rs1.MoveNext
stdall=stdall+1
loop
SumAll = stdall
end sub
'--------------------------------------------------------------------------------
n = 1
allstudent
'Response.Write SumAll
PageLen = 20
PageNo = Request.QueryString("page")
if PageNo = "" then PageNo = 1

Set rsSearch2 = Server.CreateObject ("ADODB.Recordset")
sqlSearch2 = "SELECT * FROM uoc_std "
sqlSearch2 = sqlSearch2 & "WHERE year = '" & uYear & "'"
sqlSearch2 = sqlSearch2 & "AND Ok is NULL "
sqlSearch2 = sqlSearch2 & "ORDER BY std_id"
set rsSearch2 = Conn.Execute(sqlSearch2)

If rsSearch2.EOF Then
Response.Write ""
Response.Write " 2...ไม่มีข้อมูล ปีที่ท่านระบุ...! กลับไปกรอกข้อมูลใหม่"
Response.Write " ...No Data. Please back and input data again. "
else
TotalRecord = SumAll
rsSearch2.PageSize = PageLen
TotalPage = int(TotalRecord/PageLen) + 1
'--> rsSearch2.AbsolutePage = pageno
%>
<center>รายชื่อนักศึกษาที่ยังไม่กรอกแบบสอบถาม ปี พ.ศ. <%=uYear%></center>
<TABLE WIDTH="700" BORDER=0 CELLSPACING=0 CELLPADDING=0 style="WIDTH: 783px; HEIGHT: 40px" align=center>
<TR>
<TD>ลำดับที่</TD>
<TD>รหัสประจำตัว</TD>
<TD width="200">ชื่อ-นามสกุล</TD>
<TD>คณะ</TD>
<TD>สาขา</TD>
</TR>
<%Do while not rsSearch2.EOF and n <= PageLen%>
<% if ((n mod 2)=0) then%>
<tr style="BACKGROUND-COLOR: gold">
<%else%>
<tr style="BACKGROUND-COLOR: paleturquoise">
<%end if%>
<%
Set rsFac = Server.CreateObject ("ADODB.Recordset")
sqlFac = "SELECT * FROM ref_fac "
sqlFac = sqlfac & "WHERE fac_id like '%" & rsSearch2("fac_id") & "%'"
set rsFac = Conn.Execute(sqlFac)
if (rsFac.BOF and rsFac.EOF) then 'กรณีไม่มีข้อมูล
uTxFacNameTH = "ไม่มี"
else 'มีข้อมูล
uTxFacID = rsFac("fac_id")
uTxFacNameTH = rsFac("fac_name_th")
end if
'--- เช็ครหัสสาขาวิชา ---
Set rsIscedID = Server.CreateObject ("ADODB.Recordset")
sqlIscedID = "SELECT * FROM ref_isced "
sqlIscedID = sqlIscedID & "WHERE isced_id like '%" & rsSearch2("Isced_ID") & "%'"
set rsIscedID = Conn.Execute(sqlIscedID)
if (rsIscedID.BOF and rsIscedID.EOF) then 'กรณีไม่มีข้อมูล
uTxIscedNameTH = "ไม่มี"
else 'มีข้อมูล
uTxIscedID = rsIscedID("isced_id")
uTxIscedNameTH = rsIscedID("isced_name_th")
end if
%>
<TD><center><%=(n)%></center></TD>
<TD><center><%=rsSearch2("std_id")%></center></TD>
<TD width="200"><%=rsSearch2("std_fname")%>  <%=rsSearch2("std_lname")%></TD>
<TD><%=uTxFacNameTH%></TD>
<TD><%=uTxIscedNameTH%></TD>
</tr>
<%n=n+1 'เพิ่มค่าลำดับที่%>
<%
if pageno = "1" then
ResultsCount = n
else
ResultsCount = (pageno&"0")+n-20
end if
Scount = (pageno&"0")-pagelen+1
Mcount = ResultsCount-1
%>
<%rsSearch2.MoveNext 'เลื่อนตัวชี้ไปที่ record ถัดไป%>
<%Loop%>
</TABLE> 
Total : <%=TotalRecord%>  Page <%=PageNo%>  All Page <%=TotalPage%>

<%if cint(PageNo) > 1 then%>
<input type="button" class="form-site2" value="Previous" onClick="window.location='sjsSearch3.asp?txtyear=<%=uYear%>&page=<%=PageNo-1%>'"> 
<%end if%>
<%if cint(PageNo) < TotalPage then%>
<input type="button" class="form-site2" value="Next" onClick="window.location='sjsSearch3.asp?txtyear=<%=uYear%>&page=<%=PageNo+1%>'"> 
<%end if%>

 
Go to
<%if cint(PageNo) > 1 then%>
<a href="sjsSearch3.asp?txtyear=<%=uYear%>&page=<%=PageNo-1%> ">«Prev</a>
<%end if%>
<%for intID = 1 to totalpage%>
<a href="sjsSearch3.asp?txtyear=<%=uYear%>&page=<%=intID%> " class="searchlink">
<%if intID = cint(pageno) then%></a>

<%=intID%>
<%else%>
<%=intID%>
<%end if%> 
<%next%>
<%if cint(pageno) < totalpage then%>
<a href="sjsSearch3.asp?txtyear=<%=uYear%>&page=<%=pageno+1%>">Next»</a>
<%end if%>
<%
End If
set rsSearch1 = nothing
Conn.Close
set Conn = nothing
%>
 
<INPUT onclick=VbScript:window.print() type=button value=Print name=btnPrint>


</BODY>
</HTML>

ขอความช่วยเหลือด้วยครับ
ผมได้ลองเขียนโปรแกรมแบ่งหน้า โดยอาศัยเกร็ดความรู้จากท่านต่างๆ ผมติดตรงที่ว่า
rsSearch2.AbsolutePage = pageno มันฟ้อง error ตลอดครับ

Error Type:
ADODB.Recordset (0x800A0CB3)
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.

จะมีวิธีแก้ไขอย่างไรครับ
และตอนนี้แสดงผลได้หน้าเดียวเท่านั้น ไม่สามารถไปหน้าอื่นๆ
ขอความช่วยเหลือจากผู้รูด้วยครับ

ขอบคุณมากครับ
สรวิศ

Tag : - - - -

Date : 2009-12-04 14:40:11

By : สรวิศ

View : 1797

Reply : 4

No. 1

TC Admin

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

มันจะต้องใช้ผ่าน RecordSet นะครับ

<%
	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
%>

น่าจะแก้เป็น

	rsSearch2.Open strSQL, Conn, 1,3

Date : 2009-12-04 18:55:55

By : webmaster

No. 2

Guest

ผมใช้ MySql เป็นฐานข้อมูล และใช้การ Include เป็นการติดต่อกับฐานข้อมูล
ผมลองเปลี่ยนแล้ว ก็ยังฟ้อง error ครับตรงที่หัวลูกศรครับ

sqlSearch2 = "SELECT * FROM uoc_std "
sqlSearch2 = sqlSearch2 & "WHERE year = '" & uYear & "'"
sqlSearch2 = sqlSearch2 & "AND Ok is NULL "
sqlSearch2 = sqlSearch2 & "ORDER BY std_id"
Set rsSearch2 = Server.CreateObject ("ADODB.Recordset")
' set rsSearch2 = Conn.Execute(sqlSearch2)
rsSearch2.Open sqlSearch2,Conn, 1,3

If rsSearch2.EOF Then
Response.Write ""
Response.Write " 2...ไม่มีข้อมูล ปีที่ท่านระบุ...! กลับไปกรอกข้อมูลใหม่"
Response.Write " ...No Data. Please back and input data again. "
else
TotalRecord = SumAll
rsSearch2.PageSize = PageLen
TotalPage = int(TotalRecord/PageLen) + 1
-->error rsSearch2.AbsolutePage = pageno

มีวิธีแก้ไขไหมครับ รบกวนด้วยครับ แต่ comment เอาไว้ มันแสดงผลได้หน้าเดียวครับ ดังข้อมูลข้างล่างนี้ครับ

รายชื่อนักศึกษาที่ยังไม่กรอกแบบสอบถาม ปี พ.ศ. 2551
1 491533021 วริยา สังขนันท์ คณะบริหารธุรกิจ การจัดการ
2 440522025 ศิริขวัญ สีดา คณะบริหารธุรกิจ การตลาด
3 440541026 อัครวัฒน์ ชินอัครเศรณี คณะบริหารธุรกิจ การจัดการ
4 440811042 กอบพล ปัญญายงค์ คณะศิลปศาสตร์ ภาษาต่างประเทศและวัฒนธรรม
5 440821036 พิษณุ จันทรพิกุล คณะศิลปศาสตร์ การเดินทางและการท่องเที่ยว
6 450542010 อัคริศ พยัคฆันตร คณะบริหารธุรกิจ การจัดการ
7 450621005 ฐิติรัตน์ คงอ่อน คณะนิเทศศาสตร์ การประชาสัมพันธ์
8 450821021 ธัญพร รุ่งวรานนท์ คณะศิลปศาสตร์ การเดินทางและการท่องเที่ยว
9 453821015 เจอด วงศ์ข้าหลวง คณะศิลปศาสตร์ การเดินทางและการท่องเที่ยว
10 453821016 สุวัฒน์ พิมพ์ลิขิตศักดิ์ คณะศิลปศาสตร์ การเดินทางและการท่องเที่ยว
11 460611001 วีรวัฒน์ พากเพียรกิจ คณะนิเทศศาสตร์ การพิมพ์และการพิมพ์โฆษณา
12 460631023 ทชภณ จิรขจรจริตกุล คณะนิเทศศาสตร์ การผลิตวิทยุและโทรทัศน์
13 460631030 นิรมล อัสสเวทสุวรรณ คณะนิเทศศาสตร์ การผลิตวิทยุและโทรทัศน์
14 460631059 ศิรินันท์ บัวผัน คณะนิเทศศาสตร์ การผลิตวิทยุและโทรทัศน์
15 460731015 สุระ มาลากิจสกุล คณะวิศวกรรมศาสตร์ การผลิตและกระบวนการ
16 460811007 ศรัญญา มาบุญธรรม คณะศิลปศาสตร์ ภาษาต่างประเทศและวัฒนธรรม
17 460811052 จุฑามาศ ตั้งประเสริฐกุล คณะศิลปศาสตร์ ภาษาต่างประเทศและวัฒนธรรม
18 460821067 บุททา ใจงามสกุล คณะศิลปศาสตร์ การเดินทางและการท่องเที่ยว
19 460821068 ปฐมพงศ์ ศิรวีรชาติ คณะศิลปศาสตร์ การเดินทางและการท่องเที่ยว
20 461414002 ฉัชลีญา ศรีมหาพรม คณะศึกษาศาสตร์ ศึกษาศาสตร์อื่น ๆ

Total : 469 Page 1 All Page 24
Go to 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Next»

มันไม่แสดงผลหน้าอื่นๆ ที่คลิกเลือกตามที่ต้องการ
รบกวนด้วยครับ

Date : 2009-12-08 07:52:03

By : สริศ

No. 3

The Asp-Tuy

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

เวลากดลิงก์หน้าลองดูว่า URL ได้ค่าตรงกับตัวเลขที่กดมั้ย ดูตรงสเตตัสบาร์ด้านล่างก่อนกดลิงก์ก็ได้ครับ

Date : 2009-12-08 22:49:24

By : asptuy

No. 4

Guest

ตัวอย่างที่คัดลอกมาจากด้านบน

<a href="sjsSearch3.asp?txtyear=<%=uYear%>&page=<%=PageNo-1%> ">«Prev</a>

มันแสดงผลได้ครบ แต่ไม่ยอมดึงข้อมูลในหน้าถัดไปขึ้นมาให้
แตถ้าเอา txtyear=<%=uYear%> ตัวนี้ออกไปมันแสดงให้ได้ครับ
แต่ข้อมูลที่ผมต้องการนั้นให้เลือกปีได้ด้วยครับ

Date : 2009-12-09 11:29:31

By : สรวิศ

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : Error Type: ADODB.Recordset (0x800A0CB3) Current Recordset does not support bookmarks.

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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