Forgot Password ??

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

	Registered : 109,038

HOME > ASP > ASP Forum > ช่วยแก้โค้ดให้หน่อยครับ คือ เงื่อนไขติดตรง Case ครับ ไม่รู้จะทำไงดี

ช่วยแก้โค้ดให้หน่อยครับ คือ เงื่อนไขติดตรง Case ครับ ไม่รู้จะทำไงดี

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

Guest

จาก search_Stu_asset

<form action="show_stu_asset.asp" method="post" name="frmSearch" id="frmSearch" onSubmit="return checkFields2();" >
<table width="618" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#0066CC">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr bgcolor="#0066CC">
<td> </td>
<td> </td>
<td> <div align="center"><strong><font color="#FFFFFF" size="3">-::
ค้นหาผู้ที่ได้รับทุน ::-</font></strong></div></td>
<td> </td>
</tr>
<tr bgcolor="#0066CC">
<td width="174"> </td>
<td width="17"> </td>
<td width="271"> </td>
<td width="156"> </td>
</tr>
<tr bgcolor="#0066CC">
<td><div align="right"><font color="#FFFFFF" size="1" face="MS Sans Serif, Tahoma, sans-serif">ค้นหาจาก</font></div></td>
<td><div align="center"><font size="1" face="MS Sans Serif, Tahoma, sans-serif">::
</font></div></td>
<td><select name="cboSearch" id="cboSearch" >
<option value="1">รหัสนักศึกษา</option>
<option value="2">ชื่อทุน</option>
<option value="3">สาขา</option>
<option value="4">ชั้นปี</option>
<option value="5">ชื่อนักศึกษา</option>
</select></td>
<td> </td>
</tr>
<tr bgcolor="#0066CC">
<td><div align="right"><font color="#FFFFFF" size="1" face="MS Sans Serif, Tahoma, sans-serif">สถานะทุน</font></div></td>
<td><div align="center"><font size="1" face="MS Sans Serif, Tahoma, sans-serif">::
</font></div></td>
<td><font size="1" face="MS Sans Serif, Tahoma, sans-serif">
<input name="Institute" type="radio" value="1" checked>
<font color="#FFFFFF">ทุนใหม่ </font>      
<input name="Institute" type="radio" value="2" checked>
<font color="#FFFFFF"> ทุนเก่า<font color="#FFFF00"> (จากโรงเรียนเดิม)</font></font></font></td>
<td> </td>
</tr>
<tr bgcolor="#0066CC">
<td><div align="right"><font color="#FFFFFF" size="1" face="MS Sans Serif, Tahoma, sans-serif">ป้อนรายการที่ต้องการค้นหา</font></div></td>
<td><div align="center"><font size="1" face="MS Sans Serif, Tahoma, sans-serif">::
</font></div></td>
<td><input name="txtSearch" type="text" id="txtSearch"></td>
<td> </td>
</tr>
<tr bgcolor="#0066CC">
<td> </td>
<td><div align="center"></div></td>
<td> </td>
<td> </td>
</tr>
<tr bgcolor="#0066CC">
<td> </td>
<td> </td>
<td><input name="cmdSearch" type="submit" id="cmdSearch" value="ทำการค้นหา">
   <input name="cmdCancel" type="reset" id="cmdCancel" value="ยกเลิก">
</td>
<td> </td>
</tr>
<tr bgcolor="#0066CC">
<td> </td>
<td> </td>
<td>  </td>
<td> </td>
</tr>
</table>
</form></td>

..........................................................จบ......................................................................

จาก show_stu_asset.asp ทำการเรียกใช้

<%
txtSearch= Request.Form("txtSearch")

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("/Student_Affairs/Database/Affairs.mdb")

Set RSFind =Server.CreateObject("ADODB.Recordset")
Set RSFind1=Server.CreateObject("ADODB.Recordset")

if Request.Form("Institute")=1 then
SQLCheck = "select * from QrSearchAsset "
Select Case Request.Form("cboSearch")
Case 1
SQLCheck= SQLCheck&" WHERE (StudentID LIKE '%" & txtSearch & "%') "
Case 2
SQLCheck= SQLCheck& " WHERE (Expr1 LIKE '%" & txtSearch & "%') "
Case 3
SQLCheck= SQLCheck&" WHERE (Asd_name LIKE '%" & txtSearch & "%') "
Case 4
SQLCheck= SQLCheck& " WHERE (Major_Thai_Name LIKE '%" & txtSearch & "%') "
Case 5
SQLCheck= SQLCheck& " WHERE (Class LIKE '%" & txtSearch & "%') "
End Select
' SQLCheck= SQLCheck&" WHERE (Institute "&1&") "

elseif Request.Form("Institute")=2 then
SQLCheck = "select * from QrSearchAsset1 "
Select Case Request.Form("cboSearch")
Case 1
SQLCheck= SQLCheck&" WHERE (StudentID LIKE '%" & txtSearch & "%') "
Case 2
SQLCheck= SQLCheck& " WHERE (Expr1 LIKE '%" & txtSearch & "%') "
Case 3
SQLCheck= SQLCheck&" WHERE (Asd_name LIKE '%" & txtSearch & "%') "
Case 4
SQLCheck= SQLCheck& " WHERE (Major_Thai_Name LIKE '%" & txtSearch & "%') "
Case 5
SQLCheck= SQLCheck& " WHERE (Class LIKE '%" & txtSearch & "%') "
End Select
SQLCheck= SQLCheck&" WHERE (Institute '&2&') "
end if

RSFind.Open SQLCheck,Conn,1,3

If RSFind.recordcount < 1 Then
Response.Write "<div align=center>ไม่พบ...ข้อมูล กรุณาเลือกใหม่อีกครั้ง<br><br>"
Response.Write "<a href=javascript:history.back(1)>ย้อนกลับ</a></div><br>"
Response.End
End If

i=1
while not RSFind.eof
%>
.......................................โค้ด HTML...................................................................................

<%
i=i+1
RSFind.movenext
wend
Set RSFind = Nothing
Conn.Close
Set Conn = Nothing
%>
</body>

*************************คือ เงื่อนไขติดตรง Case ครับ ไม่รู้จะทำไงดี*******************************
******************************************ช่วยที่นะครับ************************************************

Tag : - - - -

Date : 4 ธ.ค. 2548 12:01:56

By : AkeInta

View : 2209

Reply : 3

No. 1

Guest

สวัสดีครับ
1. คุณน่าจะให้ combo ส่งค่าที่ค้นหามาเลยจะได้ไม่ต้องมาเทียบอีก
ตัวอย่าง แทนที่จะต้องมาตรวจค่า combo ก็ให้มาค้นหาค่าที่ส่งมากับ combo เลย ลดโค้ดไปได้มาก
2. ตัวอย่างการค้นหา
one_field=False ' สร้างตัวแปรขึ้นมาตรวจสอบเงื่อนไขการค้นหา
if Request.Form("Institute")=1 then
SQLCheck = "select * from QrSearchAsset "
SQLCheck=SQLCheck&" Where ("&Request.form("combo_name")&") LIKE '%" & txtSearch & "%') "
elseif Request.Form("Institute")=2 then
' ทำเหมือนกันแต่เปลี่ยนไปค้นอีกตารางใช่ไหม ^^
end if

หวังว่าคงจะช่วยได้นะครับ

Wiwat K.
[email protected]
[email protected]
[email protected]

Date : 5 ธ.ค. 2548 09:17:20

By : Wiwat K.

No. 2

Guest

ขอบคุณมาก ๆ ครับ พี่ช่วยผมได้เยอะเลยครับ ขอบคุณจริง ๆ ครับ

Date : 5 ธ.ค. 2548 09:44:03

By : AkeInta

No. 3

Guest

ยินดีครับ

Wiwat K.
[email protected]
[email protected]
[email protected]

Date : 5 ธ.ค. 2548 16:58:02

By : Wiwat K.

ค้นหาข้อมูล

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

Re : ช่วยแก้โค้ดให้หน่อยครับ คือ เงื่อนไขติดตรง Case ครับ ไม่รู้จะทำไงดี

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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