 |
|
ช่วยด้วยครับ ผมติดปัญหา asp ผมแสดงข้อมูลจาก access ได้แค่ 999 record แต่ใน access มีข้อมูลอยู่ 2000 record ต้องใส่โค๊ดตัวใหนเพิ่มครับ |
|
 |
|
|
 |
 |
|
ปกติไม่น่าจะเกี่ยวกันครับ ขอดู Code ที่ Query หน่อยครับ

ASP Microsoft Access List Record
|
 |
 |
 |
 |
Date :
2015-03-05 07:15:46 |
By :
mr.win |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
สวัสดีครับ ผมศึกษาจากหัวข้อในเว็บ ASP Microsoft Access List Record Paging/Pagination
อันนี้เป็นโค๊ดครับ
ASP..
Code (ASP)
<!--#include file="header1.asp" -->
<html>
<body>
<table bgcolor=#CCCCCC cellpadding=1 cellspacing=1
width="53%">
<tbody>
<tr>
<td width="95%" height="27" align=middle bgcolor="#FFFFFF" class=txtThai><img src="image/banner10.png" width="915" height="133" border="1"></td>
</tr>
<tr>
<td height="27" align=middle bgcolor="#99CCFF" class=txtThai><div align="center"><font color="#0000FF" size="2"><strong><font color="#0000FF">Drawing Document Center </font> </strong></font></div></td>
</tr>
</tbody>
</table>
<br>
<div align="left"><font color="#0000FF" size="2"><strong><font color="#0000FF">EC Drawing Product Document </font> </strong></font></div>
<br>
<span style="font-size: 12pt"> If you want to filter the data.</span> <img src="image/D9435886-20.gif" width="54" height="55" align="absmiddle"> <a href="http://admin-witoon/Drawing/ECDWG.ASP" style="font-weight: bold">Click Here!!</a>
</br></br>
<%
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 ecuproduct "
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open strSQL, Conn, 1,3
If objRec.EOF Then
Response.write (" Not found record.")
Else
Dim PageLen,PageNo,TotalRecord,TotalPage,No,intID
PageLen =50
PageNo = Request.QueryString("Page")
if PageNo = "" Then PageNo = 1
TotalRecord = objRec.RecordCount
objRec.PageSize = PageLen
TotalPage = objRec.PageCount
objRec.AbsolutePage = PageNo
%>
<table width="915" border="1" align="center">
<tr>
<th width="83" bgcolor="#00FFFF"> <div align="center" class="blue_bold">ProductID </div></th>
<th width="106" bgcolor="#00FFFF"> <div align="center" class="blue_bold">ProductName </div></th>
<th width="256"bgcolor="#00FFFF"> <div align="center" class="blue_bold">Full Name </div></th>
<th width="89"bgcolor="#00FFFF"> <div align="center" class="blue_bold">Drawing No. </div></th>
<th width="68"bgcolor="#00FFFF"> <div align="center" class="blue_bold">Edit No. </div></th>
<th width="97"bgcolor="#00FFFF"> <div align="center" class="blue_bold">RespnBy </div></th>
<th width="91"bgcolor="#00FFFF"> <div align="center" class="blue_bold">DateUpdate </div></th>
<th width="73"bgcolor="#00FFFF"> <div align="center" class="blue_bold">View </div></th>
</tr>
<%
No=1
Do While Not objRec.EOF and No <= PageLen
%>
<tr>
<td><div align="center"><%=objRec.Fields("ProductID").Value%></div></td>
<td><%=objRec.Fields("ProductName").Value%></td>
<td><%=objRec.Fields("FullName").Value%></td>
<td><%=objRec.Fields("DwgNumber").Value%></td>
<td><div align="center"><%=objRec.Fields("EditNo").Value%></div></td>
<td><div align="center"><%=objRec.Fields("RespnBy").Value%></div></td>
<td><div align="center"><%=objRec.Fields("DateUpdate").Value%></div></td>
<td><div align="center"><a href="<%=objRec.Fields("PathFile").Value%>" target="_blank" class="blue_bold" style="color: #006600">View </a></span></div></td>
</tr>
<%
No = No + 1
objRec.MoveNext
Loop
%>
</table>
<div align="center">Total : <%=TotalRecord%> Page <%=PageNo%> All Page <%=TotalPage%>
<% 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%>
<%
End IF
objRec.Close()
Conn.Close()
Set objRec = Nothing
Set Conn = Nothing
%>
<!--#include file="footer.asp" -->
</div>
</body>
</html>
ลองช่วยดูให้หน่อยนะครับ ขอบคุณมากๆครับ
|
 |
 |
 |
 |
Date :
2015-03-05 08:16:11 |
By :
admin_comcsi |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
มันแบ่งหน้าหรือเปล่าครับ ลองดูตรง objRec.RecordCount
|
 |
 |
 |
 |
Date :
2015-03-05 09:49:35 |
By :
mr.win |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ใช่ครับ ทำทำตามหัวข้อที่มีการแบ่งหน้า โดยให้แสดงหน้าละ 50 รายการครับ แล้วผมต้องแก้โค๊ดตรงใหนครับ
ตรง TotalRecord = objRec.RecordCount ต้องใส่อะไรเพิ่มไหมครับ รบกวนพี่ช่วยบอกวิธีแก้ให้ด้วยครับ
ขอบคุณครับ
|
 |
 |
 |
 |
Date :
2015-03-05 09:56:35 |
By :
admin_comcsi |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
วานพี่ช่วยแนะนำทีครับ ผมไม่ค่อยถนัด asp ครับ
|
 |
 |
 |
 |
Date :
2015-03-05 10:01:14 |
By :
admin_comcsi |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
หรือว่ามันจะเกี่ยวกับ limit ของ MS Access เองครับ รบกวนใครที่เคยเอาข้อมูล Access มาแสดงโดยที่มีข้อมูลมากกว่า 1000 แถว รบกวนช่วยชี้แนะด้วยครับ ตอนนี้ผมลองหลายวิธีแล้วครับ แต่ก็ไม่สำเร็จ
|
 |
 |
 |
 |
Date :
2015-03-05 15:29:15 |
By :
admin_comcsi |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ไม่เกี่ยวครับ ลอง Response.write objRec.RecordCount ว่าได้กี่ Record ครับ
|
 |
 |
 |
 |
Date :
2015-03-05 17:16:48 |
By :
mr.win |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
สวัสดีครับ คุณ TC Admin ผมลองตามที่บอกแล้วครับ ก็ยังได้แค่ 999 record ครับ ผมแนบรูปหน้าเว็บมาให้ดูด้วยครับ

|
 |
 |
 |
 |
Date :
2015-03-06 09:39:23 |
By :
admin_comcsi |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ก่อนหน้าเป็นแบบนี้ครับ หน้าที่แสดงเป็นหน้าสุดท้ายแล้วครับ แต่ total page 1326 แต่ข้อมูลแสดงได้แค่ 999 record ครับ

|
 |
 |
 |
 |
Date :
2015-03-06 09:42:13 |
By :
admin_comcsi |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
พี่ TC Admin ครับ ผมรู้แล้วว่าผมทำผิดตรงใหน พอดีไปดูที่ access ผมไปใส่ Primary key ที่ไม่ใช่ ID ที่เป็น Auto ทำให้เวลาแสดงข้อมูลมัน ไม่เรียง
แล้ก็ไปกำหนดที่ option ของ access display ให้แสดงข้อมูลมากขึ้น ที่ default กำหนดไว้แค่ 1000 records (อันนี้ไม่รู้ว่าเกี่ยวกันหรือเปล่านะครับ) สรุปตอนนี้แก้ใขให้แสดงได้ครบแล้วครับ ขอบคุณพี่ TC Admin มากๆนะครับ ที่ช่วยแนะนำ
|
 |
 |
 |
 |
Date :
2015-03-06 09:55:27 |
By :
admin_comcsi |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|