Forgot Password ??

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

	Registered : 109,037

HOME > .NET Framework > Forum > ขอความช่วยเหลือค่ะ ต้องการ add ช่วงวันที่ของ start date กับ end date ใน sql

ขอความช่วยเหลือค่ะ ต้องการ add ช่วงวันที่ของ start date กับ end date ใน sql

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

นุช

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

รบกวนดู Code หน่อยค่ะ คือต้องการ Add ช่วงวันที่เริ่มลา ถึง วันสิ้นสุดการลาค่ะ บันทึกใน table การลา เช่น
วันที่เริ่มลา 2017-02-16 สิ้นสุดการลา 2017-02-17

ผลลัพธ์ที่ต้องการ คือ

Employee ID	Name	LastName	Position	A	BB	Job	Zone	LeaveType	StartDate	EndDate	TotalLeave	Description
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-16	2017-02-17	2	พักผ่อน
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-17	2017-02-17	2	พักผ่อน

แต่จากการเขียน code ผลลัพธ์ที่ได้คือ

Employee ID	Name	LastName	Position	A	BB	Job	Zone	LeaveType	StartDate	EndDate	TotalLeave	Description
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-16	2017-02-17	2	พักผ่อน
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-17	2017-02-17	2	พักผ่อน
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-17	2017-02-17	2	พักผ่อน

คือ add เกินมา 1 วันค่ะ

Employee ID	Name	LastName	Position	A	BB	Job	Zone	LeaveType	StartDate	EndDate	TotalLeave	Description
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-17	2017-02-17	2	พักผ่อน

รบการช่วยดู Code ให้ด้วยค่ะ

Code (VB.NET)

 Private Sub Btnabsent_Click(sender As Object, e As EventArgs) Handles Btnabsent.Click
        Dim iCheck As String
        Dim idate1 As String
        idate1 = CStr(Format(Dtpstrdate.Value, "yyyy-MM-dd"))
        Dim idate2 As String
        idate2 = CStr(Format(DtpEndDate.Value, "yyyy-MM-dd"))
        Dim datex As Date
        Dim iloop As Boolean = False
        datex = Dtpstrdate.Value



        If confirm("คุณต้องการเพิ่มข้อมูล หรือไม่?") = vbNo Then Return

        'For i As Integer = 0 To ts

        For i As Integer = 0 To DateDiff(DateInterval.Day, Dtpstrdate.Value, DtpEndDate.Value)

            sql = "select count(*) from tblLeave where [Job] = '" & txtjob2.Text & "'and StartDate = '" & datex.ToString("yyyy-MM-dd") & "'"

            iCheck = cx.ExecuteScalar(sql)
            ' Debug.Print(datex.ToString("yyyy-MM-dd") & " " & iCheck)
            If iCheck > 1 Then
                fail("ไม่สามารถ Plan ลาได้เนื่องจากฝั่ง'" & txtjob2.Text & "' มีคนลาครบแล้ว ในวันที่ " & datex.ToString("dd/MM/yyyy"))
                txtid2.Select()
                iloop = True
                Return
            Else
                sql = ""
                sql = "insert into tblLeave values('" & txtid2.Text & "','" & txtname2.Text & "','" & txtlastname2.Text & "','" & txtposition2.Text & "','" & txtA2.Text & "','" & txtBB2.Text & "','" & txtjob2.Text & "','" & txtzone2.Text & "','" & cboleave.Text & "','" & datex.ToString("yyyy-MM-dd") & "','" & idate2.ToString & "','" & txttotalleave.Text & "','" & txtcom.Text & "')"
                cx.Execute(sql)
                iloop = False
            End If
            datex = datex.AddDays(1)

        Next
        If iloop Then
            Return
        End If

        If cmd_excuteNonquery() = 0 Then
            fail("เพิ่มข้อมูลไม่สำเร็จ")
        Else
            ok("เพิ่มข้อมูลเรียบร้อยแล้ว")
            refresh_all_data_userid()
            txtid2.Text = ""
            txtname2.Text = ""
            txtlastname2.Text = ""
            txtposition2.Text = ""
            txtA2.Text = ""
            txtBB2.Text = ""
            txtjob2.Text = ""
            txtzone2.Text = ""
            txtphone.Text = ""
            cboleave.Text = ""
            Dtpstrdate.Value = Now
            DtpEndDate.Value = Now
            txttotalleave.Text = ""
            txtcom.Text = ""
            txtid2.Select()



        End If
    End Sub

รบกวนด้วยน่ะค่ะ

Tag : .NET, Ms SQL Server 2008, VB.NET

Date : 2017-02-10 08:51:03

By : nuch_fin

View : 970

Reply : 19

No. 1

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

น่าจะมาจากนี่รึป่าวครับ
Code (VB.NET)

For i As Integer = 0 To DateDiff(DateInterval.Day, Dtpstrdate.Value, DtpEndDate.Value)

แนะนำว่า(แค่แนะนำนะครับ) ให้ออกแบบ table ใหม่
Code

Employee ID	Name	LastName	Position	A	BB	Job	Zone	LeaveType	DateLeave	Description
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-16	พักผ่อน
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-17	พักผ่อน
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-18	พักผ่อน
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-19	พักผ่อน
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-20	พักผ่อน
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-22	พักผ่อน
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-23	พักผ่อน
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-24	พักผ่อน

ลาเยอะขนาดนี้ไล่ออกเลยดีไม๊ 555

แบบนี้จะไม่สะดุดเรื่องจำนวนวันลา

แบบเดิม ถ้า เขาขอหยุด 18-24 TotalLeave(6 วัน) ซึ่งจริงๆหยุด 5 วัน

ตารางนี้ก็จะบอกแค่ว่าหยุดวันไหนบ้าง เขาขอหยุด 18-24 วันที่ 21 หยุดไม่ได้ก็ไม่เป็นไร(ประมาณนั้นครับ)

Date : 2017-02-10 10:44:13

By : lamaka.tor

No. 2

Guest

วันที่ลาจะเกิดจากการ ใช้ Date time picker ค่ะ แล้วต้องแก้ code ยังไงค่ะ

Date : 2017-02-10 11:00:34

By : ืีืnuch_fin

No. 3

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

ตอบความคิดเห็นที่ : 2 เขียนโดย : ืีืnuch_fin เมื่อวันที่ 2017-02-10 11:00:34

รายละเอียดของการตอบ ::

ไม่ต้องแก้ครับ

Code (VB.NET)

 For i As Integer = 0 To DateDiff(DateInterval.Day, Dtpstrdate.Value, DtpEndDate.Value)
'เช็ค และ เพิ่ม เป็น วันๆไปครับ ถ้าครบแล้วก็ไม่ Insert ถ้ายังก็ Insert เข้าไป 

 Next

Code

ดูๆแล้วอาจจะต้องมีปฎิทิน วันหยุด ให้พนักงานดูด้วยนะครับ 
แบบว่า วันนี้ หยุดกี่คน ใครบ้าง แปะๆๆๆๆ ในวันนั้นๆ

พนักงานก็จะกรองได้ว่า วันนี้คนหยุดเยอะนี่หว่าไม่หยุดดีกว่า(งานจะไม่ตกที่ HR เยอะครับ)

ตอนนี้ผมนึกภาพ เวลาผมจะหยุด ผมก็มาดู ปฎิทิน นี้ พอเห็นแล้วมีคนหยุดเยอะ ผมก็จะเลื่อไปหยุดวันอื่น

Date : 2017-02-10 11:24:39

By : lamaka.tor

No. 4

นุช

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

แต่มัน add วันที่มาเกิน 1 วันอ่ะค่ะ
คือลา 16-17/02/2017
แต่่ผลลัพธ์ที่ได้คือ

sql

จริงๆคือต้องการให้พนักงานมาคีย์ลาเองเลยค่ะ ถ้าคีย์แล้วพบว่าวันที่ลาเกินโควต้าของจุดงานตัวเอง ที่กำหนดไว้ระบบก็จะไม่ยอมให้ลาค่ะ

ประวัติการแก้ไข
2017-02-10 11:39:53

Date : 2017-02-10 11:36:27

By : nuch_fin

No. 5

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

ตอบความคิดเห็นที่ : 4 เขียนโดย : nuch_fin เมื่อวันที่ 2017-02-10 11:36:27

รายละเอียดของการตอบ ::

ถึงได้บอกไง ว่าให้ออกแบบ ตารางใหม่ ครับ

No. 1
แบบนี้ไม่น่าจะมีปัญหาเรื่องนั้นครับ

Date : 2017-02-10 11:45:29

By : lamaka.tor

No. 6

นุช

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

ขอบคุณค่ะเดี่ยวจะไปออกแบบตารางใหม่ดูก่อนค่ะ

Date : 2017-02-10 11:48:01

By : nuch_fin

No. 7

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

มันจะเป็นแบบนี้ครับ
ตารางเดิม
ในกรณีที่ ขอหยุด 5 วัน แต่วันที่ 2017-02-18 คนดันเต็มซะก่อนครับ
Code

Employee ID	Name	LastName	Position	A	BB	Job	Zone	LeaveType	StartDate	EndDate	TotalLeave	Description
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-16	2017-02-16	5	พักผ่อน
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-17	2017-02-17	5	พักผ่อน
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-17	2017-02-19	5	พักผ่อน
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-17	2017-02-20	5	พักผ่อน

แต่ถ้าเราตัดบางส่วนออก
ในกรณีที่ ขอหยุด 5 วัน แต่วันที่ 2017-02-18 คนดันเต็มซะก่อนครับ
จะออกมาประมาณนี้ครับ
Code

Employee ID	Name	LastName	Position	A	BB	Job	Zone	LeaveType	DateLeave	Description
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-16	พักผ่อน
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-17	พักผ่อน
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-19	พักผ่อน
4801575	ประจงจิตต์	เดชเกลี้ยง	ผู้ช่วยผู้จัดการแผนก			Support		ลาพักร้อน	2017-02-20	พักผ่อน

Code (VB.NET)

 For i As Integer = 0 To DateDiff(DateInterval.Day, Dtpstrdate.Value, DtpEndDate.Value)
'เช็ค และ เพิ่ม เป็น วันๆไปครับ ถ้าครบแล้วก็ไม่ Insert ถ้ายังก็ Insert เข้าไป 

 Next

Date : 2017-02-10 12:03:17

By : lamaka.tor

No. 8

นุช

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

แก้ table แล้วค่ะ
แต่มัน show ผลลัพธ์เหมือนเดิม คือมันเบิ้ลวันสุดท้ายมาอีกค่ะ

Date : 2017-02-10 13:45:33

By : nuch_fin

No. 9

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

ตอบความคิดเห็นที่ : 8 เขียนโดย : nuch_fin เมื่อวันที่ 2017-02-10 13:45:33

รายละเอียดของการตอบ ::

ขอดูโค้ดหน่อยครับ ยังใช้ โค้ดเดิมไม๊

Date : 2017-02-10 14:03:47

By : lamaka.tor

No. 10

Rookie

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

Code

For i As Integer = 1 To DateDiff(DateInterval.Day, Dtpstrdate.Value, DtpEndDate.Value)

ลองแก้ตรงนี้ดูครับอาจไม่เบิ้ล ผิดพลาดประการใดขอ อภัย ด้วยนะครับมือใหม่ แฮร่ๆ

Date : 2017-02-10 16:26:25

By : adminliver

No. 11

Guest

@นุช, All
--- ผมเห็นวิธีคิดของพวกคุณ/ผสมผสานกับการเขียนโปรแกรม (โปรแกรมเมอร์/โปรแกรมมิ่ง) จนชินตา

--- เด็กอายุ 50 ปี ชักปืนยิง เด็กอายุ 17 นัดเดียว ตายคาที่ ใครถูกใครผิด กรรมเป็นเครื่องกำหนด (วันพรุ่งนี้เป็นวันพระใหญ่)
--- ใครถูกใครผิดผมไม่สนใจ (ผมคิดในใจ สติปัญญาเขลาทั้งคู่/รวมถึงทุกฯคนที่อยู่ในเหตุการณ์)

ผมถามพวกคุณกลับแค่นี้ว่า
--- เมียน้อยของผมเกิดวันที่ 29 เดือนกุมภาพันธ์ พ.ศ. 2550
------ ในปี พ.ศ. 2551 ผมอยากจัดงานวันเกิดให้หล่อนได้หรือไม่? (ครบรอบวันเกิด)

ปล. ภรรยาของผมอาทิตย์หนึ่งผมให้ไปทำงานแค่วันเดียว (เดือนละ 4 วัน)
---- คนที่สมควรจะโดนไล่ออกก็คือ คนที่ไปทำงานทุกวันและไร้ซึ่งความฝัน (ไม่ใช่คนที่ขายฝัน)

Date : 2017-02-11 00:00:15

By : หน้าฮี

No. 12

Guest

เล่าเรื่องจริงให้ฟังนะ
--- พ่อก็จังไรแม่ก็จังไร พยายามมิให้ลูกรู้จักคำวา "จังไร"
...
...
...

พ่อถามลูกว่า? : หิวข้าวไหมลูก
ลูก:...
แม่ถามลูกว่า? : ได้ยินที่พ่อเขาถามไหมลูก
ลูก...

...
...
...

มีต่อ...
...
...

ปล. ภรรยาของผมคือเมียของผม และผมเป็นคนที่ขายความฝัน

Date : 2017-02-11 00:44:10

By : หน้าฮี

No. 13

นุช

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

@ TOR_CHEMISTRY ยังใช้ Code เดิมอยู่ค่ะ

Date : 2017-02-11 06:02:58

By : nuch_fin

No. 14

นุช

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

@ คุณ Rookie ค่ะ
แกไขตามที่บอกแล้วแต่ผลลัพธ์ที่ได้คือ

เเเ

ลา 11-12/02/2017 แต่มัน Show แค่วันที่ 11/02/2017 จำนวน 2 Recordค่ะ

Date : 2017-02-11 06:38:28

By : nuch_fin

No. 15

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

ประมาณนี้นะครับ
Code (VB.NET)

Do
            Me.DateTimePicker1.Value.AddDays(1)
            MessageBox.Show(Me.DateTimePicker1.Value)
        Loop Until Me.DateTimePicker1.Value >= Me.DateTimePicker2.Value

Date : 2017-02-11 09:14:07

By : lamaka.tor

No. 16

นุช

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

@ คุณ TOR_CHEMISTRY คือเปลี่ยนจากใช้ for next เป็น Do loop หรือเปล่าค่ะ เพิ่งหัดเขียนไม่ค่อยเข้าใจเท่าไหร่ค่ะ
รบกวนด้วยน่ะค่ะ

Date : 2017-02-11 09:42:25

By : nuch_fin

No. 17

Guest

@นุช โค๊ดเดิมของหนูมันผิดอยู่นิดเดียว ตรงวันที่เท่านั้น

Code (VB.NET)

Dim days As Byte = Dtpstrdate.Value.Subtract(dtpEndDate.Value).Days + 1
Dim startDate As DateTime = dtpStartDate.Value
Dim strfixedDate As String = String.Empty
Dim sql As String = String.Empty
For i As Integer = 0 To days - 1
    '2017-01-31 (ระบุให้เป็นปี ค.ศ)
    strfixedDate = startDate.Year.ToString("D4") & "-" & startDate.Month.ToString("D2") & "-" & startDate.Day.ToString("D2")
    sql = "select count(*) from tblLeave where [Job] = '" & txtjob2.Text & "'and StartDate = '" & strfixedDate & "'"
    'Execute your SQL
    If iCheck > 1 Then
    Else
        sql = "insert into tblLeave values('" & strfixedDate & "')"
    End If
    startDate = startDate.AddDays(1)
Next

Date : 2017-02-12 08:26:49

By : หน้าฮี

No. 18

Rookie

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

ตอบความคิดเห็นที่ : 14 เขียนโดย : nuch_fin เมื่อวันที่ 2017-02-11 06:38:28

รายละเอียดของการตอบ ::

สงสัยต้องให้จารย์ TOR_CHEMISTRY จัดการให้แล้วฮะ แฮร่ๆ ผมหมดมุขละฮะ อิอิ

Date : 2017-02-13 22:23:07

By : adminliver

No. 19

FONFIRE

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

คำสั่ีง cmd_excuteNonquery คืออะไรเหรอครับ

If cmd_excuteNonquery() = 0 Then
fail("เพิ่มข้อมูลไม่สำเร็จ")

Date : 2017-02-14 09:23:22

By : fonfire

ค้นหาข้อมูล

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

Re : ขอความช่วยเหลือค่ะ ต้องการ add ช่วงวันที่ของ start date กับ end date ใน sql

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

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

Load balance : Server 01

Registered : 109,037

document.write("<font color=996600>[.NET]</font>"); ขอความช่วยเหลือค่ะ ต้องการ add ช่วงวันที่ของ start date กับ end date ใน sql

No. 1

No. 2

No. 3

No. 4

No. 5

No. 6

No. 7

No. 8

No. 9

No. 10

No. 11

No. 12

No. 13

No. 14

No. 15

No. 16

No. 17

No. 18

No. 19

ค้นหาข้อมูล

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

Notice

ขอความช่วยเหลือค่ะ ต้องการ add ช่วงวันที่ของ start date กับ end date ใน sql