ProjectForStudy

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 336|ตอบกลับ: 4

[ถาม/ตอบ] เวลาจะบันทึกข้อมูลมันขึ้นแบบนี้ครับ

[คัดลอกลิงก์]
  • อารมณ์วันนี้
    เหนื่อย
    2020-3-14 15:37
  • เช็คชื่อแล้ว: 6 วัน

    [LV.2]BeginnerI

    3

    กระทู้

    15

    โพสต์

    81

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    81
    Ticket
    16
    จิตพิสัย
    65
    Public Class frm_employee

        Private Sub btn_add_save_Click(sender As System.Object, e As System.EventArgs) Handles btn_add_save.Click

            connect_open()
            sql = "select * from users where users_username ='" & txt_add_username.Text & "'"
            DA = New SqlDataAdapter(sql, cn)
            DS = New DataSet
            DA.Fill(DS, "table")
            Dim dts As DataTable = DS.Tables("table")
            If dts.Rows.Count >= 0 Then
                msg_error("มี Username นี้อยู่แล้วกรุณากลับไปแก้ไข")
                Return

            End If


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


            connect_open()
            sql = "insert into users values(@username, @password, @name, @lastname, @tell, @email)"
            cmd = New SqlCommand(sql, cn)
            cmd.Parameters.Clear()
            cmd.Parameters.AddWithValue("username", txt_add_username.Text)
            cmd.Parameters.AddWithValue("password", txt_add_password.Text)
            cmd.Parameters.AddWithValue("name", txt_add_name.Text)
            cmd.Parameters.AddWithValue("lastname", txt_add_lastname.Text)
            cmd.Parameters.AddWithValue("tell", txt_add_tel.Text)
            cmd.Parameters.AddWithValue("email", txt_add_email.Text)

            If cmd.ExecuteNonQuery >= 1 Then
                msg_ok("เพิ่มข้อมูลพนักงานสำเร็จ")

                sql = "insert into permissions values(@sale, @watch, @customer, @employee, @promotion, @report, @username)"
                cmd = New SqlCommand(sql, cn)
                cmd.Parameters.Clear()
                cmd.Parameters.AddWithValue("sale", chk_add_sale.Checked)
                cmd.Parameters.AddWithValue("watch", chk_add_watch.Checked)
                cmd.Parameters.AddWithValue("customer", chk_add_customer.Checked)
                cmd.Parameters.AddWithValue("employee", chk_add_employee.Checked)
                cmd.Parameters.AddWithValue("promotion", chk_add_promotion.Checked)
                cmd.Parameters.AddWithValue("report", chk_add_reprot.Checked)
                cmd.Parameters.AddWithValue("username", txt_add_username.Text)

                If cmd.ExecuteNonQuery >= 1 Then
                    msg_ok("เพิ่มสิทธิ์การใช้งานสำเร็จ")
                Else

                    msg_error("เพิ่มสิทธิ์การใช้งานไม่สำเร็จ")
                End If

            Else

                msg_error("เพิ่มข้อมูลไม่สำเร็จ")
            End If

        End Sub

    ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

    คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

    x
  • อารมณ์วันนี้
    แฮปปี้
    เมื่อวาน 22:52
  • เช็คชื่อแล้ว: 645 วัน

    [LV.9]ConquerorII

    47

    กระทู้

    1111

    โพสต์

    7810

    เครดิต

    KingUnicorn

    Rank: 6Rank: 6

    เครดิต
    7810
    Ticket
    4351
    จิตพิสัย
    3459

    Merciful MemberInstructor

    puklit โพสต์ 2020-3-10 00:45:51 | ดูโพสต์ทั้งหมด
    If dts.Rows.Count > 0 Then
                msg_error("มี Username นี้อยู่แล้วกรุณากลับไปแก้ไข")
                Return

            End If

    เพราะถ้าเขียนเป็น If dts.Rows.Count >= 0 Then
    มันจะหมายความว่าหากข้อมูลมีหรือไม่มีมันก็ไม่ให้เพิ่มอยู่ดี
  • อารมณ์วันนี้
    เหนื่อย
    2020-3-14 15:37
  • เช็คชื่อแล้ว: 6 วัน

    [LV.2]BeginnerI

    3

    กระทู้

    15

    โพสต์

    81

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    81
    Ticket
    16
    จิตพิสัย
    65
     เจ้าของ| back โพสต์ 2020-3-10 20:23:36 | ดูโพสต์ทั้งหมด
    puklit ตอบกลับเมื่อ 2020-3-10 00:45
    If dts.Rows.Count > 0 Then
                msg_error("มี Username นี้อยู่แล้วกรุณากล ...

    ได้แล้วครับ ขอบคุณมากครับ
  • อารมณ์วันนี้
    แฮปปี้
    2020-5-3 11:33
  • เช็คชื่อแล้ว: 4 วัน

    [LV.2]BeginnerI

    0

    กระทู้

    30

    โพสต์

    50

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    50
    Ticket
    10
    จิตพิสัย
    40
    okino โพสต์ 2020-4-30 15:52:27 | ดูโพสต์ทั้งหมด
    ขอบคุณมากๆ ครับ
  • อารมณ์วันนี้
    เศร้า
    2020-6-26 11:50
  • เช็คชื่อแล้ว: 2 วัน

    [LV.1]NewBie

    1

    กระทู้

    30

    โพสต์

    3

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    3
    Ticket
    3
    จิตพิสัย
    0
    ีuthorn โพสต์ 2020-6-26 11:53:04 | ดูโพสต์ทั้งหมด
    thankyou
    ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

    รายละเอียดเครดิต

    ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|ProjectForStudy  

    GMT+7, 2020-8-10 01:10 , Processed in 0.034436 second(s), 26 queries .

    Powered by Discuz! X3.2 R20150609, Rev.38

    © 2001-2013 Comsenz Inc.

    ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้