Forgot Password ??

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

	Registered : 109,038

HOME > ASP > ASP Forum > asp search ข้อมูล ติดปัญหานิดหน่อย รบกวนผู้รู้ตอบหน่อยจ๊ะ

asp search ข้อมูล ติดปัญหานิดหน่อย รบกวนผู้รู้ตอบหน่อยจ๊ะ

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

Guest

คือ ค้นหาข้อมูลได้ปกติ และแบ่งหน้าได้ปกติ // ปัญหาคือ เวลาไม่ใส่ข้อความใน texbox search แล้วจะขึ้น error ทันที แทนที่มันจะขึ้น ไม่พบข้อมูล

Code :
<%
if keyword="" then
Response.write(" ¡ÃØ³Ò¡ÃÍ¡ Keyword à¾×èÍ¤é¹ËÒ¨Ò¡ Field Description<hr>")
else
pageLen = 10 '¡ÓË¹´¨Ó¹Ç¹áµèÅÐË¹éÒ·ÕèµéÍ§¡ÒÃáÊ´§¡Õè Reccord
pageNo = request.QueryString("pageNo")
if pageNo="" then pageNo = 1
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "mb2","",""
'Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/product.mdb"),"" , ""
'ËÃ×Í¨Ðãªéà»ç¹ Conn.Open "product","",""
sql ="Select * From Date_VIN where Chassis like '%"&keyword&"%' or date like '%"&keyword&"%'"
'Set Rs = Conn.Execute(sql)
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
Nrecord=RS.recordcount
Rs.pageSize = pageLen
totalPage = Rs.PageCount
Rs.absolutePage = pageNo

If Rs.EOF Then
%>
äÁèÁÕ¢éÍÁÙÅã¹µÒÃÒ§ !
<%Else%>

รบกวนช่วยดูให้หน่อยนะจ๊ะ

Tag : - - - -

Date : 4 ก.พ. 2549 14:21:55

By : พิม

View : 2115

Reply : 5

No. 1

Guest

ไม่ใส่ข้อมูลแล้วจะกด Search ทำไม แปลก

Date : 4 ก.พ. 2549 15:42:45

By : ผ่านมา

No. 2

Guest

สงสัยอธิบายผิดไปนะ คือ ใส่ข้อความที่ต้องการค้นหา แล้วไม่มีในฐานข้อมูล แล้วมันจะฟ้อง page error นะ ที่จริงมันน่าจะโชว์ /ไม่มีข้อมูลในตาราง/
--------------------------------
และโปรแกรมฟ้องว่า error line >> Rs.absolutePage = pageNo นี้ด้วย

รบกวนอีกทีนะจ๊ะ

Date : 4 ก.พ. 2549 16:12:01

By : พิม

No. 3

Guest

สวัสดีครับ
ขออภัยที่ไม่ได้อ่าน code นะครับ
เมื่อไม่มีข้อมูลในฐานข้อมูลก็น่าจะทำดักไว้ก่อนที่จะเข้ากระบวนการแสดงผลนะครับ เช็คที่ RS.EOF หรือ Recordcount แล้วแสดงผลโดยตรงไปเลยครับว่าไม่พบ เพื่อปล่อยมา ก็ Error อย่างที่เห็นน่ะครับ

Date : 5 ก.พ. 2549 01:40:39

By : EOF

No. 4

Guest

รบกวนลองแก้ code ใหเดหน่อยค่ะ

Date : 6 ก.พ. 2549 13:52:38

By : suthicha

No. 5

Guest

มาแก้โค้ดให้คุณค่ะ

<%
if keyword="" then
Response.write(" ¡ÃØ³Ò¡ÃÍ¡ Keyword à¾×èÍ¤é¹ËÒ¨Ò¡ Field Description<hr>")
else
pageLen = 10
pageNo = request.QueryString("pageNo")
if pageNo="" then pageNo = 1
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "mb2","",""
'Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/product.mdb"),"" , ""
'ËÃ×Í¨Ðãªéà»ç¹ Conn.Open "product","",""
sql ="Select * From Date_VIN where Chassis like '%"&keyword&"%' or date like '%"&keyword&"%'"
'Set Rs = Conn.Execute(sql)
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3

If Rs.EOF Then
%>
äÁèÁÕ¢éÍÁÙÅã¹µÒÃÒ§ ! ไม่พบข้อมูล
<%
Else
Nrecord=RS.recordcount
Rs.pageSize = pageLen
totalPage = Rs.PageCount
Rs.absolutePage = pageNo
%>
<%
numSearch=1
Do while not rs.eof and numSearch <= pageLen
%>
พบข้อมูล
<%
numSearch=numSearch +1
RS.movenext
Loop
RS.close
Conn.close
%>

จบข่าวค่ะ

Date : 9 ก.พ. 2549 05:46:20

By : มินท์

ค้นหาข้อมูล

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

Re : asp search ข้อมูล ติดปัญหานิดหน่อย รบกวนผู้รู้ตอบหน่อยจ๊ะ

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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