VB.NET สอนเขียน Save Button (Insert, Update) ]

ผู้เขียน หัวข้อ: VB.NET สอนเขียน Save Button (Insert, Update)  (อ่าน 588 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

DEKTAI2U.COM

  • Administrator
  • เด็กมัธยม
  • *****
  • ออฟไลน์
    Level and Hp Level 17 : Exp 8%
    HP: 1%


    • ดูรายละเอียด
VB.NET สอนเขียน Save Button (Insert, Update)
« เมื่อ: วันที่ 18 มีนาคม 2014 เวลา 16:09:40 น. »
Save Button (Insert, Update) คือ การบันทึกข้อมูลในปุ่มๆเพียง ปุ่มเดียว เท่านั้น คือ เพิ่ม และ แก้ไข

โค๊ด: [Select]
Try
                    If a = 1 Then 
                        sql = "INSERT INTO tblUser (ID, Usercode, Username, Password, DateAdded)" & _
                                 "VALUES ('" & autoIDNum & "', '" & txtUserCode.Text & "', '" & txtUsername.Text & "', '" & txtPassword.Text & "', '" & Now & "')"
                        ElseIf a = 2 Then
                        sql = "UPDATE tblUser SET Username = '" & txtUsername.Text & "', Password = '" & txtPassword.Text & "', DateModified = '" & Now & "' WHERE ID=" & NPK
                    End If
                    cmd = New OleDbCommand(sql, conn)
                    dr = cmd.ExecuteReader()

                    MessageBox.Show("คุณบันทึกข้อมูลเข้าระบบเรียบร้อยแล้ว", "รายละเอียด", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Catch ex As Exception
                    MsgBox(ex.ToString)

                End Try
                conn.Close()

อธิบายให้นิดนึง

a=1 คือ ให้ a เป็นตัวแปรรับค่าจากการกดปุ่ม สมมติเรากดปุ่ม Add จะได้ว่า

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        a = 1
End Sub

หากไม่ไช่ หรือไม่ได้กดปุ่ม Add ค่าของ a จะไม่เท่ากับ 1 อาจจะเป็นค่าอื่นก็ให้ไปทำคำสั่ง Else แต่ตามตัวอย่างนี้ กำหนด
ให้ Update ต้องมีค่า a=2 สมมติเรากดใน listview จะได้ตามตัวอย่างครับ

 Private Sub LVUser_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LVUser.SelectedIndexChanged
        If LVUser.SelectedItems.Count > 0 Then
            NPK = Val(LVUser.SelectedItems(0).Text)
            a = 2
        Else
            Exit Sub
        End If
    End Sub


สวัสดีคุณ ผู้เยี่ยมชม เข้าเว็บไซต์ DEKTAI2U.COM
Programming System & IT ZONE