Forgot Password ??

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

	Registered : 109,027

HOME > ASP > ASP Forum > การค้นหาข้อมูล ใช้ and กับ or ร่วมกันได้ป่าวครับ คือเป็นการค้นหาโดยใช้ทั้ง form และ text

การค้นหาข้อมูล ใช้ and กับ or ร่วมกันได้ป่าวครับ คือเป็นการค้นหาโดยใช้ทั้ง form และ text

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

Guest

คือเป็นการค้นหาโดยใช้ทั้ง form และ text แต่ว่าเลือกค้นอันไหนก็ได้ (มีให้เลือกหลาย form และมีข้อความให้ใส่ได้หลายที่)
ทำการเลือกประเภทรถ มีรถเก๋ง รถกระบะ รถตู้
ทำการเลือกยี่ห้อ honda toyota
ใส่ข้อมูลเลือกปี จาก..........ถึง...........ปี
ใส่ข้อมูลเลือกราคา จาก...............ถึง.................บาท
ข้อมูลทั้งหมดอยู่ใน table เดียว จะเขียนคำสั้งยังไง เวลาแสดงผลให้เลือกแสดงข้อมูลทั้ง record ที่มีข้อมูลที่ค้นหา ขอบคุณล่วงหน้าครับ

Tag : - - - -

Date : 18 พ.ค. 2551 07:43:08

By : sandbgb

View : 1510

Reply : 4

No. 1

Guest

dim a1, a2, a3, a4, a5, a6
a1 = cstr(request.form(.....ประเภท......))
a2 = cstr(request.form(......ยี่ห้อ.......))
a3= cdate(request.form(.........จากวันที่........))
a4 = cdate(request.form(.......ถึงวันที่........))
a5 = cdbl(request.form(..........จากราคา.....))
a6 = cdbl(request.form(........ถึงราคา........))

'******************* กรณีมีครบทุกเงื่อนไข...................
sql ="SELECT * FROM ตาราง " & _
"WHERE (([ประเภทรถ] ='" & a1 & "') AND ([ยี่ห้อ] = '" & a2 & "') AND ([วันที่] between #" & a3 & "# and #" & a4 & "#) AND ([ราคา] between " & a5 & " and " & a6 & "))"
'************************ กรณีขาดไปเงื่อนไขใดเงื่อนไขหนึ่ง **********************

function WhereNot(sq)

if instr(1,lcase(sq),"where")>1 then
WhereNot =sq & ") AND ("
else
WhereNot = sq & " WHERE ("
end if

sql = "SELECT * FROM ตาราง"
if not isnull(a1) then sql = WhereNot(sql) & "[ประเภทรถ] ='" & a1 & "'
if not isnull(a2) then sql = WhereNot(sql) & "[ยี่ห้อ] ='" & a2 & "'
if not isnull(a3) then
sql = WhereNot(sql) & [วันที่] between #" & a3 & "# and #"
if a4 <a3 or isnull(a4) then a4=a3
sql = sql & a4 & "#"
end if

if not isnull(a5) then
sql = WhereNot(sql) & [วันที่] between " & a5 & " and "
if a6 <a5 or isnull(a6) then a6=a5
sql = sql & a6 & "#"
end if

if instr(1,lcase(sq),"where")>1 then sql = sql & ")"

'ตรวจสอบดูก่อนว่า sql statement ที่เราต้องการถูกต้องตามไวยากรณ์ของ SQL หรือไม่
response.write "sql = " & vbcrlf & sql
'ถ้าไม่ถูกต้อง ก็กลับไปย้อนดูใหม่ทีละจุด ผมเขียนสดผ่านหน้าเว็บเลยครับ ไม่ได้ทดสอบหรือตรวจทานอีกรอบ
'แต่ถ้าถูกต้องแล้ว ก็เอา statement นี้ไปทำงานได้เลย เช่น

rs.open sql ,conn, 1

Date : 18 พ.ค. 2551 09:52:58

By : yeadram

No. 2

Guest

กรรม ลืม ปิด function
ถ้าจะก็อปปี้ไปลอง อย่าลืมปิดนะครับ

Function WhereNot(sq)
If instr(1,lcase(sq),"where")>1 then
WhereNot =sq & ") AND ("
Else
WhereNot = sq & " WHERE ("
End if
End Function

Date : 18 พ.ค. 2551 09:55:16

By : yeadram

No. 3

Guest

เอาใหม่ดีกว่า
Dim sql
Dim a1, a2, a3, a4, a5, a6

a1 = cstr(request.form(.....ประเภท......))
a2 = cstr(request.form(......ยี่ห้อ.......))
a3= cdate(request.form(.........จากวันที่........))
a4 = cdate(request.form(.......ถึงวันที่........))
a5 = cdbl(request.form(..........จากราคา.....))
a6 = cdbl(request.form(........ถึงราคา........))

'******************* กรณีมีครบทุกเงื่อนไข...................
sql ="SELECT * FROM ตาราง " & _
"WHERE (([ประเภทรถ] ='" & a1 & "') AND ([ยี่ห้อ] = '" & a2 & "') AND ([วันที่] between #" & a3 & "# and #" & a4 & "#) AND ([ราคา] between " & a5 & " and " & a6 & "))"
response.write " sql ครบเงื่อนไข = " & vbcrlf & sql

'************************ กรณีขาดไปเงื่อนไขใดเงื่อนไขหนึ่ง **********************

Function WhereNot(sq)
if instr(1,lcase(sq),"where")>1 then
WhereNot =sq & ") AND ("
else
WhereNot = sq & " WHERE ("
end if
End Function

sql = "SELECT * FROM ตาราง"
if not isnull(a1) then sql = WhereNot(sql) & "[ประเภทรถ] ='" & a1 & "'
if not isnull(a2) then sql = WhereNot(sql) & "[ยี่ห้อ] ='" & a2 & "'
if not isnull(a3) then
sql = WhereNot(sql) & [วันที่] between #" & a3 & "# and #"
if a4 <a3 or isnull(a4) then a4=a3
sql = sql & a4 & "#"
end if

if not isnull(a5) then
sql = WhereNot(sql) & [วันที่] between " & a5 & " and "
if a6 <a5 or isnull(a6) then a6=a5
sql = sql & a6
end if

if instr(1,lcase(sq),"where")>1 then sql = sql & ")"

'ตรวจสอบดูก่อนว่า sql statement ที่เราต้องการถูกต้องตามไวยากรณ์ของ SQL หรือไม่
'ลองเปรียบเทียบกับ กรณี มีครบทุกเงื่อนไขก็ได้ครับ วงเล็บ ตัวแปรเครื่องหมายต่างๆ มีครบตามนั้นหรือไม่
response.write " sql = " & vbcrlf & sql

'ถ้าไม่ถูกต้อง ก็กลับไปย้อนดูใหม่ทีละจุด ผมเขียนสดผ่านหน้าเว็บเลยครับ ไม่ได้ทดสอบ
'แต่ถ้าถูกต้องแล้ว ก็เอา statement นี้ไปทำงานได้เลย เช่น
rs.open sql ,conn, 1

Date : 18 พ.ค. 2551 10:01:44

By : yeadram

No. 4

Guest

ของคุณมากคราบจะ
รองดูนะ

Date : 18 พ.ค. 2551 15:49:40

By : sandbgb

ค้นหาข้อมูล

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

Re : การค้นหาข้อมูล ใช้ and กับ or ร่วมกันได้ป่าวครับ คือเป็นการค้นหาโดยใช้ทั้ง form และ text

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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