Forgot Password ??

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

	Registered : 109,038

HOME > ASP > ASP Forum > error ADODB.Recordset error '800a0cb3' Current Recordset does not support bookmarks.

error ADODB.Recordset error '800a0cb3' Current Recordset does not support bookmarks.

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

ArZHuRa

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

ADODB.Recordset error '800a0cb3'

Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype

Code (ASP)

Dim sql
		sql = ""				
		sql = sql & " SELECT	A.BOX_OWNER_ID , A.SENDDOC_NO , A.TO_DATE , A.TO_TIME , A.FROM_ACT_ID , "
		sql = sql & "			A.DOC_SUBJECT , A.DOC_DESC , A.OBJECT_ID , B.CATE_ID , B.DOC_OWNER_ID , B.IMPT_ID , B.EXP_ID , A.FLG_REC ,  "
		sql = sql & "			NVL(C.CNT_FILE,0) AS  FILE_SEQ , NVL(D.CNT_OWN, 0) AS FW_SEQ  "
		sql = sql & " FROM		DOCT_INBOX A , DOCT_DRAFTS B , "
		sql = sql & " ( SELECT SENDDOC_NO ,COUNT(*) AS CNT_FILE "
		sql = sql & " FROM		DOCT_FILE_ATTACH  "
		sql = sql & " GROUP BY  SENDDOC_NO ) C ,  "
		sql = sql & " (SELECT BOX_OWNER_ID, SENDDOC_NO, TO_DATE, TO_TIME, COUNT(*) AS CNT_OWN "
		sql = sql & "  FROM DOCT_FORWARD "
		sql = sql & "  GROUP BY BOX_OWNER_ID, SENDDOC_NO, TO_DATE, TO_TIME) D "
		sql = sql & " WHERE		A.SENDDOC_NO	= B.SENDDOC_NO "
		sql = sql & " AND		B.SENDDOC_NO	= C.SENDDOC_NO(+) "
		sql = sql & " AND		A.BOX_OWNER_ID  = D.BOX_OWNER_ID(+) "
		sql = sql & " AND 		A.SENDDOC_NO	= D. SENDDOC_NO(+) "
		sql = sql & " AND 		A.TO_DATE		= D.TO_DATE(+) "
		sql = sql & " AND 		A.TO_TIME		= D.TO_TIME(+) "
		sql = sql & " AND		A.BOX_OWNER_ID	= '" & Session("mBOX_OWNER_ID") & "' " 
		sql = sql & " AND		A.FLG_DEL	IS NULL "
		
		'response.Write(sql)		
		Set Rs_scdoc = Server.CreateObject("ADODB.RecordSet")
		Rs_scdoc.Open sql ,objConn ,1,3				
		if not Rs_scdoc.EOF then
			'**** Paging/Pagination Calculator ***'
			
			dim PageLen, PageNo, TotalRecord, TotalPage, No, intID
			PageLen = 2
			PageNo = request.QueryString("Page")
			if PageNo = "" then PageNo = 1
			TotalRecord = Rs_scdoc.RecordCount
			Rs_scdoc.PageSize = PageLen
			TotalPage = Rs_scdoc.PageCount
			'Rs_scdoc.CursorType = adOpenStatic
			Rs_scdoc.AbsolutePage = PageNo   <<<<<  error here 
			
			BOX_OWNER_ID		= Rs_scdoc.Fields("BOX_OWNER_ID")  
			SENDDOC_NO			= Rs_scdoc.Fields("SENDDOC_NO")
			TO_DATE				= Rs_scdoc.Fields("TO_DATE")
			TO_TIME				= Rs_scdoc.Fields("TO_TIME")
			FROM_ACT_ID			= Rs_scdoc.Fields("FROM_ACT_ID")
			DOC_SUBJECT			= Rs_scdoc.Fields("DOC_SUBJECT")
			DOC_DESC			= Rs_scdoc.Fields("DOC_DESC")
			OBJECT_ID			= Rs_scdoc.Fields("OBJECT_ID")
			CATE_ID				= Rs_scdoc.Fields("CATE_ID")
			DOC_OWNER_ID		= Rs_scdoc.Fields("DOC_OWNER_ID")
			IMPT_ID				= Rs_scdoc.Fields("IMPT_ID")
			EXP_ID				= Rs_scdoc.Fields("EXP_ID")
			'FLG_REC			= Rs_scdoc.Fields("FLG_REC")
			'FILE_SEQ			= Rs_scdoc.Fields("FILE_SEQ")
		end if

Tag : ASP, Oracle, VBScript

ประวัติการแก้ไข
2010-10-06 12:20:24

Date : 2010-10-06 12:14:45

By : meduzaa

View : 2331

Reply : 10

No. 1

TC Admin

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

จากตัวอย่าง Oracle ผมก็สามารถใช้ได้ปกติดีน่ะครับ

Go to : ASP Oracle List Record Paging/Pagination

Date : 2010-10-06 13:15:54

By : webmaster

No. 2

ArZHuRa

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

ถ้าอย่างนั้นช่วยดูทั้งหมดที่ครับ
Code (ASP)

<%@ Language=VBScript %>

<html>
	<head>
		<title>ลงรับเอกสารแล้วส่งต่อ</title>
		<meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
		<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
		<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
		<LINK href="css/edoc.css" type="text/css" rel="stylesheet">
		<LINK href="css/mintgreen.css" type="text/css" rel="stylesheet">
		<script language="JavaScript" src="js/pcit.js"></script>
		<script src="js/prototype-1.6.0.3.js" type="text/javascript"></script>
		<!--#include file ="Connect_Ora.asp"-->
		<script language="javascript">
		
		var x  = (screen.width/2)- 280 ; 
		var x2 = (screen.width/2)- 500 ; 
		var y  = 300 ;
	
		
		function F_Check_value(val){
			elm =  document.getElementsByTagName('input');
			
			for(i=0; i<elm.length; i++){
				if(elm[i].type == 'checkbox'){
					if(val) elm[i].checked = true ;
					else elm[i].checked = false ;
				}//end if
			}//end for
					
		}//end function
		
		function Refresh(){
			window.location.reload();
		}//end function
		
		
		function F_Check_Del(){
			elm =  document.getElementsByTagName('input');
			var mValue = "";
			for(i=0; i<elm.length; i++){
				if(elm[i].type == 'checkbox' && elm[i].id != 'chk_all'){
					if(elm[i].checked){   //alert(elm[i].id);
						if (mValue == "") mValue = elm[i].value;
						else mValue  += "||" + elm[i].value;
					}//end if
				}//end if
			}//end for
			//alert("xxx.asp?" + url);
			
			if (mValue != ""){ 
				if (!window.confirm("ยืนยันการลบข้อมูล")){return;}
				//var url = "xxx.asp?mValue=" + mValue ;
				var url = "update_del_inbox.asp?mValue=" + mValue ;
					PCIT_NewAjax(url ,"img_save");
					
					Refresh();  
			}//end if
		}//end function
		
		
		</script>
<%

	''ผู้สร้างเอกสาร
	Session("mBOX_OWNER_ID")  = "001"   ''มาตอน logon
	
	'mSENDDOC_NO  = "53-00002"  
	
	'SELECT A.BOX_OWNER_ID , A.SENDDOC_NO , A.TO_DATE , A.TO_TIME , A.FROM_ACT_ID , 
	'A.DOC_SUBJECT , A.DOC_DESC , A.OBJECT_ID , B.CATE_ID , B.DOC_OWNER_ID , B.IMPT_ID , B.EXP_ID , A.FLG_REC , 
	'NVL(C.CNT_FILE,0) AS  FILE_SEQ 
	'FROM DOCT_INBOX A , DOCT_DRAFTS B ,  
	'( SELECT SENDDOC_NO ,COUNT(*) AS CNT_FILE
	' FROM  DOCT_FILE_ATTACH 
	' GROUP BY  SENDDOC_NO ) C
	'WHERE A.SENDDOC_NO = B.SENDDOC_NO 
	'AND A.BOX_OWNER_ID = '002' 
	'AND B.SENDDOC_NO = C.SENDDOC_NO(+)
	
		Dim sql
		sql = ""				
		sql = sql & " SELECT	A.BOX_OWNER_ID , A.SENDDOC_NO , A.TO_DATE , A.TO_TIME , A.FROM_ACT_ID , "
		sql = sql & "			A.DOC_SUBJECT , A.DOC_DESC , A.OBJECT_ID , B.CATE_ID , B.DOC_OWNER_ID , B.IMPT_ID , B.EXP_ID , A.FLG_REC ,  "
		sql = sql & "			NVL(C.CNT_FILE,0) AS  FILE_SEQ , NVL(D.CNT_OWN, 0) AS FW_SEQ  "
		sql = sql & " FROM		DOCT_INBOX A , DOCT_DRAFTS B , "
		sql = sql & " ( SELECT SENDDOC_NO ,COUNT(*) AS CNT_FILE "
		sql = sql & " FROM		DOCT_FILE_ATTACH  "
		sql = sql & " GROUP BY  SENDDOC_NO ) C ,  "
		sql = sql & " (SELECT BOX_OWNER_ID, SENDDOC_NO, TO_DATE, TO_TIME, COUNT(*) AS CNT_OWN "
		sql = sql & "  FROM DOCT_FORWARD "
		sql = sql & "  GROUP BY BOX_OWNER_ID, SENDDOC_NO, TO_DATE, TO_TIME) D "
		sql = sql & " WHERE		A.SENDDOC_NO	= B.SENDDOC_NO "
		sql = sql & " AND		B.SENDDOC_NO	= C.SENDDOC_NO(+) "
		sql = sql & " AND		A.BOX_OWNER_ID  = D.BOX_OWNER_ID(+) "
		sql = sql & " AND 		A.SENDDOC_NO	= D. SENDDOC_NO(+) "
		sql = sql & " AND 		A.TO_DATE		= D.TO_DATE(+) "
		sql = sql & " AND 		A.TO_TIME		= D.TO_TIME(+) "
		sql = sql & " AND		A.BOX_OWNER_ID	= '" & Session("mBOX_OWNER_ID") & "' " 
		sql = sql & " AND		A.FLG_DEL	IS NULL "
		
		'response.Write(sql)		
		Set Rs_scdoc = Server.CreateObject("ADODB.RecordSet")
		Rs_scdoc.Open sql ,objConn ,1,3				
		if not Rs_scdoc.EOF then
			'**** Paging/Pagination Calculator ***'
			
			dim PageLen, PageNo, TotalRecord, TotalPage, No, intID
			PageLen = 2
			PageNo = request.QueryString("Page")
			if PageNo = "" then PageNo = 1
			TotalRecord = Rs_scdoc.RecordCount
			Rs_scdoc.PageSize = PageLen
			TotalPage = Rs_scdoc.PageCount
			'Rs_scdoc.CursorType = adOpenStatic
			Rs_scdoc.AbsolutePage = PageNo
			
			BOX_OWNER_ID		= Rs_scdoc.Fields("BOX_OWNER_ID")  
			SENDDOC_NO			= Rs_scdoc.Fields("SENDDOC_NO")
			TO_DATE				= Rs_scdoc.Fields("TO_DATE")
			TO_TIME				= Rs_scdoc.Fields("TO_TIME")
			FROM_ACT_ID			= Rs_scdoc.Fields("FROM_ACT_ID")
			DOC_SUBJECT			= Rs_scdoc.Fields("DOC_SUBJECT")
			DOC_DESC			= Rs_scdoc.Fields("DOC_DESC")
			OBJECT_ID			= Rs_scdoc.Fields("OBJECT_ID")
			CATE_ID				= Rs_scdoc.Fields("CATE_ID")
			DOC_OWNER_ID		= Rs_scdoc.Fields("DOC_OWNER_ID")
			IMPT_ID				= Rs_scdoc.Fields("IMPT_ID")
			EXP_ID				= Rs_scdoc.Fields("EXP_ID")
			'FLG_REC			= Rs_scdoc.Fields("FLG_REC")
			'FILE_SEQ			= Rs_scdoc.Fields("FILE_SEQ")
		end if		
	
		''ประเภทเอกสาร		
		sql = ""
		sql = sql & " SELECT	CATE_ID , CATE_NAME  "
		sql = sql & " FROM		DOCR_CATEGORY "
		sql = sql & " WHERE		CATE_ID  = '" & CATE_ID & "' "
	
        Set RsType_doc = Server.CreateObject("ADODB.RecordSet")
		RsType_doc.Open sql ,objConn
		
		if not RsType_doc.EOF then	
			mcate_name    = RsType_doc.Fields("CATE_NAME")
		end if				
		
		''ชั้นความเร็ว		
		sql = ""
		sql = sql & " SELECT	EXP_ID , EXP_NAME "
		sql = sql & " FROM		DOCR_EXPRESS "
		sql = sql & " WHERE		EXP_ID  = '" & EXP_ID & "' "
		  
        Set RsDocr_express = Server.CreateObject("ADODB.RecordSet")
		RsDocr_express.Open sql ,objConn
		
		if not RsDocr_express.EOF then	
			mexp_name    = RsDocr_express.Fields("EXP_NAME")
		end if	
		
		''ชั้นความลับ		
		sql = ""
		sql = sql & " SELECT	IMPT_ID , IMPT_NAME "
		sql = sql & " FROM		DOCR_IMPORTANT "
		sql = sql & " WHERE		IMPT_ID  = '" & IMPT_ID & "' "
		
        Set RsDocr_important = Server.CreateObject("ADODB.RecordSet")  
		RsDocr_important.Open sql ,objConn
		
		if not RsDocr_important.EOF then	
			mimpt_name    = RsDocr_important.Fields("IMPT_NAME")
		end if	
				
		''ผู้ส่ง	
		sql = ""
		sql = sql & " SELECT	ACT_ID, ACT_NAME "
		sql = sql & " FROM		DOCR_ACTOR "
		sql = sql & " WHERE		ACT_ID = '" & FROM_ACT_ID & "' "
		
		Set Rs_act = Server.CreateObject("ADODB.RecordSet")
		Rs_act.Open sql ,objConn
		
		if not Rs_act.EOF then	
			act_name    = Rs_act.Fields("ACT_NAME")
		end if
		
		''เพื่อ	
		sql = ""
		sql = sql & " SELECT	OBJECT_ID  ,  OBJECT_NAME "
		sql = sql & " FROM		DOCR_OBJECTIVE "
		sql = sql & " WHERE		OBJECT_ID = '" & OBJECT_ID & "' "
		
		Set Rs_object = Server.CreateObject("ADODB.RecordSet")
		Rs_object.Open sql ,objConn
		
		if not Rs_object.EOF then	
			object_name    = Rs_object.Fields("OBJECT_NAME")
		end if								
		
%>
	</head>
	<body topmargin="5" leftmargin="1" rightmargin="1" bottommargin="5">
		<SPAN class='head_prog'>กล่องขาเข้า</SPAN><br>
		<SPAN class='head_prog'><IMG id="Img1" src="imgs\delete.gif"><a title="Click เพื่อลบรายการ" href="#"><span class="txt_display_05" onclick="F_Check_Del()">ลบเอกสาร</span></a></SPAN>
		<center><SPAN class='head_prog'>ลงรับเอกสารแล้วส่งต่อ</SPAN></center>
		<TABLE id="T_data" width="100%" cellspacing="0" border="0" cellpadding="0">
			<!-- เริ่มเขียนหัวตาราง -->
			<tr class="c_table004" height="25">
				<td align="center" class="c_table001" width="2%"><INPUT type="checkbox" ID="chk_all" NAME="chk_all" onclick="F_Check_value(this.checked)"></td>
				<td align="center" class="c_table002" width="5%">&nbsp;</td>
				<td align="center" class="c_table002" width="6%">&nbsp;</td>
				<td align="center" class="c_table002" width="1%">&nbsp;</td>
				<td align="center" class="c_table002" width="7%">เลขที่ส่งออก</td>
				<td align="center" class="c_table002" width="8%">ประเภทเอกสาร</td>
				<td align="center" class="c_table002" width="8%">ชั้นความเร็ว</td>
				<td align="center" class="c_table002" width="8%">ชั้นความลับ</td>
				<td align="center" class="c_table002" width="8%">ผู้ส่ง</td>
				<td align="center" class="c_table002" width="1%">&nbsp;</td>
				<td align="center" class="c_table002" width="10%">เรื่อง</td>
				<td align="center" class="c_table002" width="8%">เพื่อ</td>
				<td align="center" class="c_table002" width="6%">วันที่</td>
				<td align="center" class="c_table002" width="4%">เวลา</td>
				<td align="center" class="c_table002" width="1%">&nbsp;</td>
			</tr>
			<% 
			
				Dim mSpace
				mSpace = "&nbsp;"
				Dim mCnt,nCnt
				'mCnt = 0
			
			%>
			<TR class="c_table004" height="25">
				<%IF  Rs_scdoc.EOF Then %>
				<td class="c_table005" align='center'>&nbsp;</td>
				<td class="c_table002" align='center' colspan="14">ไม่มีเอกสารขาเข้า</td>
			</TR>
			<% Else 
			While Not Rs_scdoc.EOF and No <= PageLen										
						
						mCnt = mCnt + 1
						if (mcnt mod 2) = 0 then 
							response.Write("<TR height='30px' align='center' class='txt_display_05'>" )
						else
							response.Write("<TR height='30px' align='center' class='txt_display_05'>" )
						end if
					
						'' Column 'checkbox'
						response.Write("<TD align='center' class='c_table001'>")
						'response.Write("<INPUT type='checkbox' ID='CHK'" & mCnt & " NAME='chk_val[]'>") 
						response.Write("<INPUT type='checkbox' ID='CHK"& mCnt & "' NAME='' value='"& Rs_scdoc.Fields("BOX_OWNER_ID")& "|" & Rs_scdoc.Fields("SENDDOC_NO") & "|" & Rs_scdoc.Fields("TO_DATE") & "|" & Rs_scdoc.Fields("TO_TIME") & "'>")
						'response.Write(mCnt)
						response.Write("</TD>")
						
						'' Column 'ลงรับ'
						response.Write("<TD align='center' class='c_table003'>") 
						'response.Write"<a href='scdoc_101.asp?BOX_OWNER_ID=" & BOX_OWNER_ID & "&SENDDOC_NO=" & SENDDOC_NO & "&TO_DATE=" & TO_DATE & " &TO_TIME=" & TO_TIME & "'>ลงรับ</a>"
						response.Write"<a href='scdoc_103.asp?mbox_owner=" & Rs_scdoc.Fields("BOX_OWNER_ID") & "&msenddoc=" & Rs_scdoc.Fields("SENDDOC_NO") & "&mto_date=" & Rs_scdoc.Fields("TO_DATE") & "&mto_time=" & Rs_scdoc.Fields("TO_TIME") & "'>ลงรับ</a>"
						response.Write("</TD>")
						
						'' Column 'preview'
						response.Write("<TD align='center' class='c_table003'>")
						response.Write"<a href='scdoc_102.asp?mbox_owner=" & Rs_scdoc.Fields("BOX_OWNER_ID") & "&msenddoc=" & Rs_scdoc.Fields("SENDDOC_NO") & "&mto_date=" & Rs_scdoc.Fields("TO_DATE") & "&mto_time=" & Rs_scdoc.Fields("TO_TIME") & "' target='new'>preview</a>"
						response.Write("</TD>")
						
						'' Column image receive 
						response.Write("<TD align='left' class='c_table003'>")
						IF  Rs_scdoc.Fields("FLG_REC") = "Y" THEN
							response.Write("<IMG id='Img1' src='images\receive.gif'>")
						Else
							response.Write(mSpace)
						END IF
						response.Write("</TD>")
						
						'' Column เลขที่ส่งออก
						response.Write("<TD align='center' class='c_table003'>")
						response.Write(Rs_scdoc.Fields("SENDDOC_NO"))
						response.Write("</TD>")
						
						'' Column ประเภทเอกสาร
						response.Write("<TD align='left' class='c_table003'>")
						response.Write(mSpace & mcate_name)
						response.Write("</TD>")
		
						'' Column ชั้นความเร็ว    
						response.Write("<TD align='left' class='c_table003'>")
						response.Write(mSpace & mexp_name)
						response.Write("</TD>")
						
						'' Column ชั้นความลับ
						response.Write("<TD align='left' class='c_table003'>")
						response.Write(mSpace & mimpt_name)
						response.Write("</TD>")
						
						'' Column ผู้ส่ง
						response.Write("<TD align='left' class='c_table003'>")
						response.Write(mSpace & act_name)
						response.Write("</TD>")
						
						'' Column image attach
						response.Write("<TD align='left' class='c_table003'>")
						IF CDbl(Rs_scdoc.Fields("FILE_SEQ")) > 0 THEN
							response.Write("<IMG id='Img1' src='images\attach_file.gif'>")
						Else
							response.Write(mSpace)
						END IF
						response.Write("</TD>")
						
						'' Column เรื่อง
						response.Write("<TD align='left' class='c_table003'>")
						response.Write(mSpace & Rs_scdoc.Fields("DOC_SUBJECT"))
						response.Write("</TD>")
						
						'' Column เพื่อ
						response.Write("<TD align='left' class='c_table003'>")
						response.Write(mSpace & object_name)
						response.Write("</TD>")
						
						'' Column วันที่
						response.Write("<TD align='left' class='c_table003'>")
						response.Write(mSpace & Rs_scdoc.Fields("TO_DATE"))
						response.Write("</TD>")
						
						'' Column เวลา     
						response.Write("<TD align='left' class='c_table003'>")
						response.Write(mSpace & Rs_scdoc.Fields("TO_TIME"))
						response.Write("</TD>")
						
						'' Column image forward
						response.Write("<TD align='left' class='c_table003'>")
						IF CDbl(Rs_scdoc.Fields("FW_SEQ")) > 0 THEN
							response.Write("<IMG id='Img1' src='images\forward.gif'>")
						Else
							response.Write(mSpace)
						END IF
						response.Write("</TD>")
					
					Rs_scdoc.MoveNext
				Wend			
				End If
			%>
			<TR class="c_table004" height="25">
				<td class="c_table004">&nbsp;</td>
				<td class="c_table004">&nbsp;</td>
				<td class="c_table004">&nbsp;</td>
				<td class="c_table004">&nbsp;</td>
				<td class="c_table004">&nbsp;</td>
				<td class="c_table004">&nbsp;</td>
				<td class="c_table004">&nbsp;</td>
				<td class="c_table004">&nbsp;</td>
				<td class="c_table004">&nbsp;</td>
				<td class="c_table004">&nbsp;</td>
				<td class="c_table004">&nbsp;</td>
				<td class="c_table004">&nbsp;</td>
				<td class="c_table004">&nbsp;</td>
				<td class="c_table004">&nbsp;</td>
				<td class="c_table004">&nbsp;</td>
			</TR>
		</TABLE>
		
		<table class="c_table003">
			<tr>
				<td>
					Total : <%=TotalRecord%>  Page <%=PageNo%> All Page <%=TotalPage%>
				</td>
				<td align="right">
					<% IF Cint(PageNo) > 1 then %>
							<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=1"><< First</a> 
							<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=PageNo-1%>">< Back</a>
					<% End IF%>
					<% IF Cint(PageNo) < TotalPage Then %>
							<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=PageNo+1%>">Next ></a> 
							<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=TotalPage%>">Last >></a>
					<% End IF%>
					<br>
					Go to
					<% For intID = 1 To TotalPage%>
						<% if intID = Cint(PageNo) Then%>
							<b><%=intID%></b>
						<%Else%>
							<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=intID%>"><%=intID%></a>
						<%End IF%>
					<%Next%>
				</td>
			</tr>
		</table>		
		
		<span id="Query"></span>
		<span class="txt_display_05">Report : Edoc_show_inbox.asp</span>
		
		<%	
			objRec.Close
			Set objRec = Nothing
			
			Rs_scdoc.Close
			set Rs_scdoc = nothing
			
			objconn.close
			set objconn = Nothing
		
		%>
		<div id="img_save" style="display: none;"><img src="imgs/loading3.gif" alt="Loading..."></div>
	</body>
</html>

Date : 2010-10-06 13:22:17

By : meduzaa

No. 3

TC Admin

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

ทำไมบางตัวมี Parameter ทำไมบางตัวไม่มีครับ น่ะครับ

Code

Rs_act.Open sql ,objConn

Rs_scdoc.Open sql ,objConn ,1,3

Date : 2010-10-06 13:45:06

By : webmaster

No. 4

ArZHuRa

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

มันจำเป็นต้องใส่ทุกตัวเหรอครับ เนื่องจากผมพึ่งเริ่มศึกษา ยังไม่ค่อยรู้อะไรมาก

ในส่วนของ Rs_act.Open sql ,objConn ไว้ select ค่าจาก table refferance ครับ เลยไม่ได้ใส่

ผมควรวต้องทำอย่างไรครับ

ประวัติการแก้ไข
2010-10-06 13:58:51
2010-10-06 13:59:58

Date : 2010-10-06 13:57:25

By : meduzaa

No. 5

TC Admin

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

ถ้า select เฉย ๆ ไม่ต้อง ใช้ recordset ก็ได้ครับ จากตัวอย่างน่าจะเปิด recordset หลายตัวน่ะครับ

Code (ASP)

	strSQL = "SELECT * FROM customer WHERE CustomerID = '"&Request.QueryString("CusID")&"'  "
	Set objRec = Conn.Execute(strSQL)

Date : 2010-10-06 14:07:25

By : webmaster

No. 6

ArZHuRa

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

ขอบคุณมากครับเดี๋ยวจาลองดูครับ

Date : 2010-10-06 14:25:40

By : meduzaa

No. 7

ArZHuRa

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

ขอถามอีกอย่างครับ

ADODB.Recordset error '800a0cb3'

Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.

มันจะมีสาเหตุจากอะไรบ้างครับ

Date : 2010-10-06 14:32:54

By : meduzaa

No. 8

xxx

โพสกระทู้ ( 3,144 )
บทความ ( 1 )

ไม่รู้ ไม่เคยใช้แบบนี้ ถ้าทำ paging ผมให้ rs.move() เอา

Date : 2010-10-06 15:39:48

By : tungman

No. 9

TC Admin

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

น่าจะเกิดจากเปิด RecordSet ซ้ำกันหรือเปล่าอันนี้ไม่แน่ใจครับ

Date : 2010-10-06 15:48:36

By : webmaster

No. 10

ArZHuRa

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

โทดทีครับคุณ tungman ช่วยแนะนำให้ละเอียดหน่อยได้ไหมครับ

คือตัวผมเองก็พึ่งเริ่มศึกษาได้ไม่นาน ช่วยชี้แนะ ผู้น้อยด้วย

ขอบคุณครับ

Date : 2010-10-06 15:48:59

By : meduzaa

ค้นหาข้อมูล

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

Re : error ADODB.Recordset error '800a0cb3' Current Recordset does not support bookmarks.

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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