Forgot Password ??

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

	Registered : 109,038

HOME > ASP > ASP Forum > ค้นหาไม่ได้ค่ะ ช่วยดูให้หน่อยค่ะ คือ เอาโค้ดคนอื่นมาดูต่อค่ะ แล้วก้องง มันค้นหาไม่ได้ พอกดปุ่มค้นหาแล้วไม่โชว์ผลลัพธ์น่ะค่ะ

ค้นหาไม่ได้ค่ะ ช่วยดูให้หน่อยค่ะ คือ เอาโค้ดคนอื่นมาดูต่อค่ะ แล้วก้องง มันค้นหาไม่ได้ พอกดปุ่มค้นหาแล้วไม่โชว์ผลลัพธ์น่ะค่ะ

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

Guest

คือ เอาโค้ดคนอื่นมาดูต่อค่ะ แล้วก้องง
มันค้นหาไม่ได้ พอกดปุ่มค้นหาแล้วไม่โชว์ผลลัพธ์น่ะค่ะ

<%
session("searchdata") = request("searchdata")
If Request("searchdata") <> "" or session("searchdata") <> "" then
Countdetailst = 0
codedata1 = Request("codedata1")
codedata2 = Request("codedata2")
codedata3 = Request("codedata3")
codedata4 = Request("codedata4")
codedata5 = Request("codedata5") Countstdata = 0
Session("txtdatast3") = ""
Session("txtdatast4") = ""
Session("txtdatast5") = ""

If (Request("searchdata") = "ค้นหา") then
sql = ""
sql = "Select * From DLR_ORD_BKG,DLR_SLSM_MST,DSP_SRS_MST,DSP_MOD_MST,DSP_CLR_MST,DLR_SLSM_TEAM_MST,VSC_INV_INFO "

sql = sql & " Where DLR_ORD_BKG.DOB_SLSM_CD = DLR_SLSM_MST.SLM_SLSM_CD "

sql = sql & " and DLR_ORD_BKG.DOB_SRS_CD = DSP_SRS_MST.SMT_SRS_CD "

sql = sql & " and DLR_ORD_BKG.DOB_SRS_CD = DSP_MOD_MST.MMT_SRS_CD "

sql = sql & " and DLR_ORD_BKG.DOB_MOD_CD = DSP_MOD_MST.MMT_MOD_CD "

sql = sql & " and DLR_ORD_BKG.DOB_MOD_SFX = DSP_MOD_MST.MMT_MOD_SFX "

sql = sql & " and DLR_ORD_BKG.DOB_CLR_CD = DSP_CLR_MST.CMT_CLR_CD"

sql = sql & " and DLR_SLSM_MST.SLM_TEAM_CD = DLR_SLSM_TEAM_MST.STM_TEAM_CD "

sql = sql & " and DLR_ORD_BKG.DOB_VIN_NO = VSC_INV_INFO.IVI_VIN_NO "

If ( codedata1<> "") then

sql = sql & " and DOB_SRS_CD = '" & codedata1& "' "

End if
If ( codedata2 <> "") then
If (len(codedata2) >= 20) then
codedata2_srs = Left(codedata2,instr(codedata2,"#")-1)
codedata2_Md = mid(codedata2,instr(codedata2,"#")+1,18)
codedata2_model = mid(codedata2_Md,1,instr(codedata2_Md,"|")-1)
codedata2_sfx = mid(codedata2_Md,instr(codedata2_Md,"|")+1,2)
End If
If ( codedata2_srs <> "") then
sql = sql & " and DOB_SRS_CD = '" &codedata2_srs& "' "
End If
If ( codedata2_model <> "") then
sql = sql & " and DOB_MOD_CD = '" &codedata2_model& "' "
End If
If ( codedata2_sfx <> "") then
sql = sql & " and DOB_MOD_SFX = '" &codedata2_sfx& "' "
End If
End if
If ( codedata3<> "") then
sql = sql & " and DOB_CLR_CD = '" & codedata3& "' "
End if
If ( codedata4<> "") then
sql = sql & " and STM_TEAM_CD = '" & codedata4& "' "
End if
If ( codedata5<> "") then
sql = sql & " and DOB_SLSM_CD = '" & codedata5& "' "
End if
sql = sql & " Order by DOB_SRS_CD,DOB_MOD_CD,DOB_MOD_SFX,DOB_CLR_CD"

set rs = conn.execute(sql)
do while not rs.eof
Countstdata = Countstdata + 1
Session("txtdatast3") = rs("SMT_SRS_NM")

Session("txtdatast4") = rs("MMT_DESC")
Session("txtdatast5") = rs("CMT_CLR_CD")&" - "&rs("CMT_CLR_NM")
Response.Write " <tr> "
Response.Write "<td bgcolor=""#EFEFEF""><div align=""center"">"&CStr(Countstdata)&"</div></td>"
Response.Write "<td bgcolor=""#EFEFEF""><div align=""center"">"&rs("DOB_BKG_NO")&"</div></td>"
Response.Write "<td bgcolor=""#EFEFEF""><div align=""center"">"& rs("DOB_BKG_DT") &"</div></td>"

Response.Write "<td bgcolor=""#EFEFEF""><div align=""Left"">"&rs("SLM_SLSM_FST_NM")&" "&rs("SLM_SLSM_FMALY_NM")&"</div></td>"

If (rs("DOB_SRE_TY") = "1") then
txtdatast1 = "Ordinary"
ElseIF (rs("DOB_SRE_TY") = "2") then
txtdatast1 = "Fleet"
End If
Response.Write "<td bgcolor=""#EFEFEF""><div align=""center"">"&txtdatast1&"</div></td>"

If (rs("DOB_BKG_STS_CD") = "W") Or (rs("DOB_BKG_STS_CD") = "w") then
txtdatast2 = "รอการอนุมัติ"

ElseIF (rs("DOB_BKG_STS_CD") = "A") Or (rs("DOB_BKG_STS_CD") = "a") then

txtdatast2 = "อนุมัติ"

ElseIF (rs("DOB_BKG_STS_CD") = "F") Or (rs("DOB_BKG_STS_CD") = "f") then

txtdatast2 = "จัดไฟแนนซ์ผ่าน"

ElseIF (rs("DOB_BKG_STS_CD") = "M") Or (rs("DOB_BKG_STS_CD") = "m") then

txtdatast2 = "จัดสรรรถยนต์"
ElseIF (rs("DOB_BKG_STS_CD") = "S") Or (rs("DOB_BKG_STS_CD") = "s") then

txtdatast2 = "มีกำหนดวันที่ออกรถ"

ElseIF (rs("DOB_BKG_STS_CD") = "R") Or (rs("DOB_BKG_STS_CD") = "r") then

txtdatast2 = "ส่งมอบรถ"

ElseIF (rs("DOB_BKG_STS_CD") = "G") Or (rs("DOB_BKG_STS_CD") = "g") then

txtdatast2 = "ยกเลิกใบจอง"

ElseIF (rs("DOB_BKG_STS_CD") = "D") Or (rs("DOB_BKG_STS_CD") = "d") then
txtdatast2 = "ไ่ม่ดำเนินการใดๆ"
End If
Response.Write "<td bgcolor=""#EFEFEF""><div align=""center"">"&txtdatast2&"</div></td>"
Response.Write "<td bgcolor=""#EFEFEF""><div align=""center"">"&rs("DOB_VIN_NO")&"</div></td>"
Response.Write "<td bgcolor=""#EFEFEF""><div align=""center"">"&rs("IVI_INV_DT")&"</div></td>"

Response.Write "</tr>"
rs.movenext
loop
set rs = nothing
End IF
%>

Tag : - - - -

Date : 23 ส.ค. 2549 11:28:51

By : เพรียว

View : 2035

Reply : 6

No. 1

Guest

ลืมบอกไปว่าดูโค้ดไม่ค่อยรู้เรื่องถ้าจะกรุณามาก ๆ อธิบายให้ด้วยก็ดีมากๆค่ะ ขอบคุนล่วงหน้าค่ะ

Date : 23 ส.ค. 2549 11:36:56

By : เพรียว

No. 2

Guest

ที่ไม่แสดงผลนี่ขึ้น message error หรือเปล่าคะ หรือว่าไม่แสดงข้อมูลอะไรเลย

Date : 23 ส.ค. 2549 12:25:17

By : มักกะโรนีกะหมากเก็บ

No. 3

Guest

ไม่แสดงข้อมูลอะไรเรยค่ะ gxho asp ธรรมดาค่ะ ไม่มี msgbox

Date : 23 ส.ค. 2549 12:53:07

By : เพรียว

No. 4

Guest

ถ้าอย่างนั้นลอง response.write sql ออกมานะคะ คิดว่าถ้าไม่มี error message อาจจะเกิดจากใน database นั้นไม่มีข้อมูลอที่ตรงกับเงื่อนไขของ where น่ะค่ะ

Date : 23 ส.ค. 2549 13:51:27

By : มักกะโรนีกะหมากเก็บ

No. 5

Guest

น่าจะพอช่วยได้บ้างนะคะ

<%
' เป็นการรับค้ามาจาก form อื่นโดยทำการเก็บค่าตัวแปรเอาไว้ใน session
session("searchdata") = request("searchdata")

'ตรวจสอบว่าตัวแปรที่ส่งมามีค่าหรือไม่
If Request("searchdata") <> "" or session("searchdata") <> "" then
Countdetailst = 0

' ถ้ามีค่าก็เก็บค่า เช่น codedata1, codedata 2 เอาไว้ในตัวแปร
' คำสั่ง request("") เป็นการรับค่ามาจาก form อื่น
codedata1 = Request("codedata1")
codedata2 = Request("codedata2")
codedata3 = Request("codedata3")
codedata4 = Request("codedata4")
codedata5 = Request("codedata5") Countstdata = 0
Session("txtdatast3") = ""
Session("txtdatast4") = ""
Session("txtdatast5") = ""

' ตรวจสอบว่าค่าของตัวแปร searchdata = ค้นหา ใช่หรือไม่ (คิดว่าตัวแปร searchdata น่าจะเป็นปุ่ม submit โดยที่ value = 'ค้นหา')
If (Request("searchdata") = "ค้นหา") Then

' ถ้าใช่ก็ให้มาทำการ select ข้อมูลจาก database
sql = ""
sql = "Select * From DLR_ORD_BKG,DLR_SLSM_MST,DSP_SRS_MST,DSP_MOD_MST,DSP_CLR_MST,DLR_SLSM_TEAM_MST,VSC_INV_INFO "

sql = sql & " Where DLR_ORD_BKG.DOB_SLSM_CD = DLR_SLSM_MST.SLM_SLSM_CD "

sql = sql & " and DLR_ORD_BKG.DOB_SRS_CD = DSP_SRS_MST.SMT_SRS_CD "

sql = sql & " and DLR_ORD_BKG.DOB_SRS_CD = DSP_MOD_MST.MMT_SRS_CD "

sql = sql & " and DLR_ORD_BKG.DOB_MOD_CD = DSP_MOD_MST.MMT_MOD_CD "

sql = sql & " and DLR_ORD_BKG.DOB_MOD_SFX = DSP_MOD_MST.MMT_MOD_SFX "

sql = sql & " and DLR_ORD_BKG.DOB_CLR_CD = DSP_CLR_MST.CMT_CLR_CD"

sql = sql & " and DLR_SLSM_MST.SLM_TEAM_CD = DLR_SLSM_TEAM_MST.STM_TEAM_CD "

sql = sql & " and DLR_ORD_BKG.DOB_VIN_NO = VSC_INV_INFO.IVI_VIN_NO "

' check ว่าเขาได้ใส่เงืื่อนไขในการค้นหาข้อมูลของเงื่อนไขที่ 1 หรือเปล่า ถ้าใช่ต้องเอามาใส่ในเงื่อนไข where
If ( codedata1<> "") then

sql = sql & " and DOB_SRS_CD = '" & codedata1& "' "

End If

' check ว่าเขาได้ใส่เงืื่อนไขในการค้นหาข้อมูลของเงื่อนไขที่ 2 หรือเปล่า ถ้าใช่ต้องเอามาใส่ในเงื่อนไข where
If ( codedata2 <> "") Then

If (len(codedata2) >= 20) then

codedata2_srs = Left(codedata2,instr(codedata2,"#")-1)
codedata2_Md = mid(codedata2,instr(codedata2,"#")+1,18)
codedata2_model = mid(codedata2_Md,1,instr(codedata2_Md,"|")-1)
codedata2_sfx = mid(codedata2_Md,instr(codedata2_Md,"|")+1,2)
End If
If ( codedata2_srs <> "") then
sql = sql & " and DOB_SRS_CD = '" &codedata2_srs& "' "
End If
If ( codedata2_model <> "") then
sql = sql & " and DOB_MOD_CD = '" &codedata2_model& "' "
End If
If ( codedata2_sfx <> "") then
sql = sql & " and DOB_MOD_SFX = '" &codedata2_sfx& "' "
End If
End if
If ( codedata3<> "") then
sql = sql & " and DOB_CLR_CD = '" & codedata3& "' "
End if
If ( codedata4<> "") then
sql = sql & " and STM_TEAM_CD = '" & codedata4& "' "
End if
If ( codedata5<> "") then
sql = sql & " and DOB_SLSM_CD = '" & codedata5& "' "
End if
sql = sql & " Order by DOB_SRS_CD,DOB_MOD_CD,DOB_MOD_SFX,DOB_CLR_CD"

' ทำการ connect กับ database
set rs = conn.execute(sql)

' check เงื่อนไขของ loop ในกรณีที่ข้อมูลที่เรา select ออกมามีหลายเรคคอร์ด
'ในขณะที่ยังไม่หมดเรคคอร์ด
do while not rs.eof

Countstdata = Countstdata + 1

' เก็บค่าของข้อมูลที่ดึงมาจากฐานข้อมูลลงในตัวแปร session
Session("txtdatast3") = rs("SMT_SRS_NM")
Session("txtdatast4") = rs("MMT_DESC")
Session("txtdatast5") = rs("CMT_CLR_CD")&" - "&rs("CMT_CLR_NM")

' แสดงค่าออกมาโดยใส่ในตารางของ html
Response.Write " <tr> "
Response.Write "<td bgcolor=""#EFEFEF""><div align=""center"">"&CStr(Countstdata)&"</div></td>"
Response.Write "<td bgcolor=""#EFEFEF""><div align=""center"">"&rs("DOB_BKG_NO")&"</div></td>"
Response.Write "<td bgcolor=""#EFEFEF""><div align=""center"">"& rs("DOB_BKG_DT") &"</div></td>"

Response.Write "<td bgcolor=""#EFEFEF""><div align=""Left"">"&rs("SLM_SLSM_FST_NM")&" "&rs("SLM_SLSM_FMALY_NM")&"</div></td>"

' ข้างล่างก็เป็นการ check เงื่อนไขของข้อมูลที่ select ได้ โดยถ้าตรงกับเงื่อนไขของ if ที่เรากำหนดก็ให้เก็บค่าที่เราต้องการไว้ในตัวแปร
If (rs("DOB_SRE_TY") = "1") then
txtdatast1 = "Ordinary"
ElseIF (rs("DOB_SRE_TY") = "2") then
txtdatast1 = "Fleet"
End If
Response.Write "<td bgcolor=""#EFEFEF""><div align=""center"">"&txtdatast1&"</div></td>"

If (rs("DOB_BKG_STS_CD") = "W") Or (rs("DOB_BKG_STS_CD") = "w") then
txtdatast2 = "รอการอนุมัติ"

ElseIF (rs("DOB_BKG_STS_CD") = "A") Or (rs("DOB_BKG_STS_CD") = "a") then

txtdatast2 = "อนุมัติ"

ElseIF (rs("DOB_BKG_STS_CD") = "F") Or (rs("DOB_BKG_STS_CD") = "f") then

txtdatast2 = "จัดไฟแนนซ์ผ่าน"

ElseIF (rs("DOB_BKG_STS_CD") = "M") Or (rs("DOB_BKG_STS_CD") = "m") then

txtdatast2 = "จัดสรรรถยนต์"
ElseIF (rs("DOB_BKG_STS_CD") = "S") Or (rs("DOB_BKG_STS_CD") = "s") then

txtdatast2 = "มีกำหนดวันที่ออกรถ"

ElseIF (rs("DOB_BKG_STS_CD") = "R") Or (rs("DOB_BKG_STS_CD") = "r") then

txtdatast2 = "ส่งมอบรถ"

ElseIF (rs("DOB_BKG_STS_CD") = "G") Or (rs("DOB_BKG_STS_CD") = "g") then

txtdatast2 = "ยกเลิกใบจอง"

ElseIF (rs("DOB_BKG_STS_CD") = "D") Or (rs("DOB_BKG_STS_CD") = "d") then
txtdatast2 = "ไ่ม่ดำเนินการใดๆ"
End If

Response.Write "<td bgcolor=""#EFEFEF""><div align=""center"">"&txtdatast2&"</div></td>"
Response.Write "<td bgcolor=""#EFEFEF""><div align=""center"">"&rs("DOB_VIN_NO")&"</div></td>"
Response.Write "<td bgcolor=""#EFEFEF""><div align=""center"">"&rs("IVI_INV_DT")&"</div></td>"

Response.Write "</tr>"

' เลื่อนไปยังเรคคอร์ดต่อไป
rs.movenext
loop
set rs = nothing
End IF
%>

Date : 23 ส.ค. 2549 14:14:32

By : มักกะโรนีกะหมากเก็บ

No. 6

Guest

ขอบคุนนะคะคุณมักกะโรนีกะหมากเก็บ

Date : 23 ส.ค. 2549 16:44:08

By : เพรียว

ค้นหาข้อมูล

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

Re : ค้นหาไม่ได้ค่ะ ช่วยดูให้หน่อยค่ะ คือ เอาโค้ดคนอื่นมาดูต่อค่ะ แล้วก้องง มันค้นหาไม่ได้ พอกดปุ่มค้นหาแล้วไม่โชว์ผลลัพธ์น่ะค่ะ

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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