Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,024

HOME > ASP > ASP Forum > วนลูป DISTINCT ให้เทียบเฉพาะค่า Year กับ Month ได้หรือเปล่า



 

วนลูป DISTINCT ให้เทียบเฉพาะค่า Year กับ Month ได้หรือเปล่า

 



Topic : 073806



โพสกระทู้ ( 122 )
บทความ ( 0 )



สถานะออฟไลน์




Code (ASP)
sql = "SELECT DISTINCT top 4  fill_date FROM wguses order by fill_date desc "


จะเทียบเฉพาะ ค่าเดือน กับปี ของ fill_date ได้หรือเปล่าเหรอครับ
ข้อมูล

2012-01-01
2012-01-01
2012-01-03

2011-11-01
2011-11-03
2011-11-03

2011-10-01
2011-10-01
2011-10-03


วนลูป listbox มันจะออกมาเป็น

2012-01-01
2012-01-03
2011-11-01
2011-11-03
2011-10-01
2011-10-03


***อยากให้ออกมาเป็น***

2012-01
2011-11
2011-10




Tag : ASP, Ms SQL Server 2008







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2012-02-14 11:10:38 By : imperator View : 1643 Reply : 14
 

 

No. 1

Guest


Code
select convert(varchar,y)+'-'+convert(varchar,m) as ym
from (SELECT DISTINCT year(fill_date) as y,month(fill_date) as m FROM wguses) as a order by y,m desc


ลองดูครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-02-14 11:35:36 By : Thep
 


 

No. 2



โพสกระทู้ ( 122 )
บทความ ( 0 )



สถานะออฟไลน์


ไม่ได้คับ หรือต้องมาแปลงก่อน เขียน sql ทีเดียวไม่ได้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-02-14 11:41:13 By : imperator
 

 

No. 3

Guest


ใช้ฐานข้อมูลอะไรครับ ถ้าเป็น sql

ก้อเอา คำสั่งนี้ ไป run ดู

Code
select convert(varchar,y)+'-'+convert(varchar,m) as ym
from (SELECT DISTINCT year(fill_date) as y,month(fill_date) as m FROM wguses) as a order by y,m desc



ผมลองดูยังได้เลยครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-02-14 11:45:34 By : Thep
 


 

No. 4



โพสกระทู้ ( 122 )
บทความ ( 0 )



สถานะออฟไลน์


sql 2008 r2 ครับ
ไม่ได้แฮะ

Code (ASP)
<select id="month_fueling" name="month_fueling" >

<% 
Dim sql,rstemp,month_fueling
Set rstemp = Server.CreateObject("ADODB.Recordset")

sql = "select convert(varchar,y)+'/'+convert(varchar,m) as ym from (SELECT DISTINCT year(fill_date) as y,month(fill_date) as m FROM wguses) as a order by y,m desc  "
rstemp.open sql,sConn

While Not rstemp.EOF 

datey=rstemp("y")		
datem=rstemp("m")	
%>


<option value="<% =datey&datem  %>">

<% =datey %> - <% =datem %>
</option>
<%

rstemp.MoveNext 
Wend 
set rstemp = nothing

%>
</select>

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-02-14 13:21:24 By : imperator
 


 

No. 5

Guest


Code (ASP)
<select id="month_fueling" name="month_fueling" >

<% 
Dim sql,rstemp,month_fueling
Set rstemp = Server.CreateObject("ADODB.Recordset")

sql = "SELECT DISTINCT year(fill_date) as y,month(fill_date) as m FROM wguses order by y,m desc"
rstemp.open sql,sConn

While Not rstemp.EOF 

datey=rstemp("y")	
datem=rstemp("m")	
%>


<option value="<% =datey&datem %>">

<% =datey %> - <% =datem %>
</option>
<%

rstemp.MoveNext 
Wend 
set rstemp = nothing

%>
</select>



ลองดูครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-02-14 13:29:36 By : Thep
 


 

No. 6

Guest


เปลี่ยนมาใช้อันนี้

Code (ASP)
sql = "SELECT DISTINCT year(fill_date) as y,month(fill_date) as m FROM wguses order by year(fill_date),month(fill_date) desc"

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-02-14 13:30:37 By : Thep
 


 

No. 7



โพสกระทู้ ( 122 )
บทความ ( 0 )



สถานะออฟไลน์


ได้นะคับ แต่วุ่นวายมากเลยตอนเอาไปเทียบกับค่าใน DB แล้ว List record ออกมา

Code (ASP)
sql = "SELECT DISTINCT top 4 fill_date FROM wguses order by fill_date desc "


อันนี้พอจะแทรกอะไรเข้าไปได้ไหมให้ ไม่สนใจค่า date เทียบแต่ค่า month กับ year
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-02-14 15:08:45 By : imperator
 


 

No. 8

Guest


ตอนเอาไปเทียบกับค่าใน DB แล้ว List record ออกมา

ขอดู Code หน่อยดิ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-02-15 09:30:23 By : Thep
 


 

No. 9



โพสกระทู้ ( 122 )
บทความ ( 0 )



สถานะออฟไลน์


ตอนนี้ใช้ตัวนี้วนลูป เดือน ปี ครับ

Code (ASP)
<select id="month_fueling" name="month_fueling" >

<% 
Dim sql,rstemp,d1,d2,month_fueling
Set rstemp = Server.CreateObject("ADODB.Recordset")

sql = "SELECT TOP 4 year(fill_date) AS yr, month(fill_date) AS mt FROM wguses GROUP BY year(fill_date) , month(fill_date) ORDER BY  yr DESC, mt  DESC "

rstemp.open sql,sConn


While Not rstemp.EOF 
%>
<option value="<% =rstemp("mt")&","&rstemp("yr")  %>">
<% =Monthname(rstemp("mt")) %> - <% =rstemp("yr")%>
</option>
<%

rstemp.MoveNext 
Wend 

%>
</select>

_______________________________________________________________________________________

อันนี้เทียบ DB

Code (ASP)
Set rstemp = Server.CreateObject("ADODB.Recordset")

sql = "SELECT *, ISNULL(qty,0) AS qty2, ISNULL(unit,0) As unit2 FROM wguses Where month(fill_date) = '"&mon_split(0)&"'  and year(fill_date) = '"&mon_split(1)&"' ORDER BY fill_date "

mon_split =  Split(request.form ("month_fueling"),",")

rstemp.open sql,sConn,1,3


ติดปัญหาว่า....บรรทัด sql Error :

Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 0]'


หาไม่เจอว่า error จากตรงไหน
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-02-15 09:51:05 By : imperator
 


 

No. 10

Guest


Code (ASP)
mon_split = Split(request.form("month_fueling"),",")

sql = "SELECT *, ISNULL(qty,0) AS qty2, ISNULL(unit,0) As unit2 FROM wguses Where month(fill_date) = '"&mon_split(0)&"' and year(fill_date) = '"&mon_split(1)&"' ORDER BY fill_date "
rstemp.open sql,sConn,1,3


ลองดูครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-02-15 10:27:11 By : Thep
 


 

No. 11



โพสกระทู้ ( 122 )
บทความ ( 0 )



สถานะออฟไลน์


ขอบคุณครับ rep บนแต่ปัญหาคือ Array Empty

ผมเลยเอา if check ก่อนสั่งให้ Split

เพื่อให้ค่า request.form ("month_fueling") ไม่ว่าง

ด้านล่างคือ OK แล้วนะครับ แต่ไม่รู้มันทำได้ดีกว่านี้รึป่าว เพิ่งหัดเขียน

____________________________________________________________________________________
วนลูป เดือน ปี

Code (ASP)
<select id="month_fueling" name="month_fueling" >

<% 
Dim sql,rstemp,d1,d2,month_fueling
Set rstemp = Server.CreateObject("ADODB.Recordset")

sql = "SELECT TOP 4 year(fill_date) AS yr, month(fill_date) AS mt FROM wguses GROUP BY year(fill_date) , month(fill_date) ORDER BY  yr DESC, mt  DESC "

rstemp.open sql,sConn

While Not rstemp.EOF 

If request.form("month_fueling") = rstemp("mt")&"/"&rstemp("yr") Then
strSel = "selected"
Else
strSel = ""
End IF
%>

<option value="<% =rstemp("mt")&"/"&rstemp("yr") %>" <% =strSel %>>
<% =Monthname(rstemp("mt")) %> - <% =rstemp("yr")%>
</option>
<%

rstemp.MoveNext 
Wend 
Set rstemp = nothing
%>


</select>


____________________________________________________________________________________
Check for List Record

Code (ASP)
<%
Set rstemp = Server.CreateObject("ADODB.Recordset")

If request.form ("month_fueling") <> "" then
mon_split =  Split(request.form ("month_fueling"),"/")

sql = "SELECT *, ISNULL(qty,0) AS qty2, ISNULL(unit,0) As unit2 FROM wguses Where month(fill_date) = '"&mon_split(0)&"'  and year(fill_date) = '"&mon_split(1)&"' "

rstemp.open sql,sConn,1,3
While not rstemp.EOF
.
.
.
rstemp.movenext 
Wend
Set rstemp = nothing 
End If
%>



ประวัติการแก้ไข
2012-02-15 10:48:41
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-02-15 10:46:42 By : imperator
 


 

No. 12

Guest


<select id="month_fueling" name="month_fueling" >

<%
Dim sql,rstemp,d1,d2,month_fueling
Set rstemp = Server.CreateObject("ADODB.Recordset")

sql = "select convert(varchar,y)+'-'+case when m < 10 then '0' else '' end+''+convert(varchar,m) as ym from
(SELECT DISTINCT year(fill_date) as y,month(fill_date) as m FROM wguses) as a order by y,m desc"

rstemp.open sql,sConn

While Not rstemp.EOF

If request.form("month_fueling") = rstemp("ym") Then
strSel = "selected"
Else
strSel = ""
End IF
%>

<option value="<%=rstemp("ym") %>" <% =strSel %>>
<%=Monthname(right(rstemp("ym"),2))%> - <%=left(rstemp("ym"),4)%>
</option>
<%

rstemp.MoveNext
Wend
Set rstemp = nothing
%>

</select>


____________________________________________________________________________________
Check for List Record

<%
Set rstemp = Server.CreateObject("ADODB.Recordset")

If request.form("month_fueling") <> "" then

sql = "SELECT *, ISNULL(qty,0) AS qty2, ISNULL(unit,0) As unit2 FROM wguses Where convert(char(6),fill_date,112) = '"&replace(request.form("month_fueling"),"-","")&"' "

rstemp.open sql,sConn,1,3
While not rstemp.EOF
.
.
.
rstemp.movenext
Wend
Set rstemp = nothing
End If
%>
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-02-15 11:10:17 By : Thep
 


 

No. 13



โพสกระทู้ ( 122 )
บทความ ( 0 )



สถานะออฟไลน์


sql = "SELECT *, TOP 4 year(fill_date) AS yr, month(fill_date) AS mt FROM wguses WHERE spemp_code='"&request.form("emp_id")&"' GROUP BY year(fill_date) , month(fill_date) ORDER BY yr DESC, mt DESC "

เงื่อนไขแบบนี้ SELECT *, TOP 4 year(fill_date) AS yr, month(fill_date) AS mt ...
มันขัดใจกันยังไงเหลอครับ รันไม่ออกเลย
คืออยากได้ค่า record อื่นๆด้วยจะได้ไม่ต้องเปิด sql หลายๆครั้ง


ปกติ SELECT TOP 4 year(fill_date) AS yr, month(fill_date) AS mt ...
มันรันออกปกติ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-02-15 16:08:43 By : imperator
 


 

No. 14

Guest


เพราะว่า คาสั่ง GROUP BY จะต้องระบุ filed ที่ต้องการ GROUP ลงไป

SELECT TOP 4 year(fill_date) AS yr, month(fill_date) AS mt FROM wguses GROUP BY year(fill_date) , month(fill_date) ORDER BY yr DESC, mt DESC



อย่างนี้ไม่ได้

SELECT *, TOP 4 year(fill_date) AS yr, month(fill_date) AS mt FROM wguses WHERE spemp_code='"&request.form("emp_id")&"' GROUP BY year(fill_date) , month(fill_date) ORDER BY yr DESC, mt DESC
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-02-16 08:20:53 By : Thep
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : วนลูป DISTINCT ให้เทียบเฉพาะค่า Year กับ Month ได้หรือเปล่า
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 05
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่