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,037

HOME > .NET Framework > Forum > Windows.Forms.DialogResult.No กด No แล้วข้อมูลยัง save ค่ะ



 

Windows.Forms.DialogResult.No กด No แล้วข้อมูลยัง save ค่ะ

 



Topic : 056061

Guest




Code (VB.NET)
Imports System
Imports System.Data         ' ระบุ Namespace สำหรับการใช้งานฐานข้อมูล
Imports System.Data.OleDb   ' ระบุ Namespace สำหรับการใช้งาน Oledb
Imports System.Data.Common
Imports System.Data.DataTable
Imports System.IO

Public Class Frm_M1101
    Dim OleDbConnection1 As New OleDbConnection ' ประกาศตัวแปรสำหรับจัดเก็บการเชื่อมต่อฐานข้อมูล
    Dim da As OleDbDataAdapter = Nothing    ' ประกาศตัวแปรสำหรับจัดเก็บ DataAdapter
    Dim ds As New DataSet                   ' ประกาศตัวแปรสำหรับจัดเก็บ DataSet
    Dim dt As DataTable = Nothing           ' ประกาศตัวแปรสำหรับจัดเก็บ DataTable
    Dim da1 As OleDbDataAdapter = Nothing    ' ประกาศตัวแปรสำหรับจัดเก็บ DataAdapter
    Dim ds1 As New DataSet                   ' ประกาศตัวแปรสำหรับจัดเก็บ DataSet
    Dim dt1 As DataTable = Nothing           ' ประกาศตัวแปรสำหรับจัดเก็บ DataTable

    Dim tempshowrecord As Integer
    Private Sub Frm_M1101_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        OleDbConnection1.ConnectionString = strConn
        OleDbConnection1.Open()
        Showrecord()


    End Sub

    


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim cmd As OleDbCommand = Nothing
        Dim sqlSave As String = ""
        Dim sqlUpdate As String = ""
        Dim j As Integer

        Dim sqlif As String = "SELECT EVENT_ID FROM TB_EVENTJOBSALE WHERE EVENT_ID LIKE  '" & Txt_Postid.Text & "'  "
        da1 = New OleDbDataAdapter(sqlif, OleDbConnection1)
        da1.Fill(ds1, "dsif")
        dt1 = ds1.Tables("dsif")
        j = Val(dt1.Rows.Count)
        ds1.Tables("dsif").Clear()
        dt1 = ds1.Tables("dsif")

       

        If Txt_Postid.Text = "" Then
            MessageBox.Show("กรุณากรอกข้อมูล", "คำเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Txt_Postid.Focus()
            Exit Sub

        ElseIf Txt_Postname.Text = "" Then
            MessageBox.Show("กรุณากรอกข้อมูล", "คำเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Txt_Postname.Focus()
            Exit Sub
        End If

        Try

        Catch ex As Exception

        End Try
        Try
            sqlSave = "INSERT INTO TB_EVENTJOBSALE(EVENT_ID,EVENT_NAME) VALUES( '" & Txt_Postid.Text & "','" & Txt_Postname.Text & "')"

            sqlUpdate = "UPDATE  TB_EVENTJOBSALE SET EVENT_ID='" & Txt_Postid.Text & "',EVENT_NAME= '" & Txt_Postname.Text & "' WHERE EVENT_ID = '" & Txt_Postid.Text & "'"



            If j = 0 Then
                tempshowrecord = Val(Txt_Postid.Text.ToString)
                cmd = New OleDbCommand(sqlSave, OleDbConnection1)
                cmd.ExecuteNonQuery()
                If MessageBox.Show("ทำการบันทึกรหัส" & Txt_Postid.Text & " ชื่อ " & Txt_Postname.Text & " ", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.No Then

                    Exit Sub

                End If






            Else
                tempshowrecord = Val(Txt_Postid.Text.ToString)
                cmd = New OleDbCommand(sqlUpdate, OleDbConnection1)
                cmd.ExecuteNonQuery()
                If MessageBox.Show("ทำการแก้ไขรหัส" & Txt_Postid.Text & " ชื่อ " & Txt_Postname.Text & " ", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.No Then

                    Exit Sub

                End If



            End If




        Catch ex As Exception   ' กรณีประมวลผลในช่วงของ Try แล้วมีข้อผิดพลาด จะมีการกระโดด(jump) ลงมาที่บรรทัดนี้เลย เพื่อแสดงข้อผิดพลาดของโปรแกรม
            MessageBox.Show(ex.Message, "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        Finally
            cleargrid()
            Showrecord()


        End Try

      


    End Sub


       
        
    

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click




        Dim cmd As OleDbCommand = Nothing
        Dim sqlDelete As String = ""
        sqlDelete = "DELETE FROM TB_EVENTJOBSALE WHERE EVENT_ID = '" & Txt_Postid.Text & "'"
        If Txt_Postid.Text = "" Then
            MessageBox.Show("กรุณาคลิกเลือกข้อมูลที่ต้องการ", "คำเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Txt_Postid.Focus()
            Exit Sub

        ElseIf Txt_Postname.Text = "" Then
            MessageBox.Show("กรุณาคลิกเลือกข้อมูลที่ต้องการ", "คำเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Txt_Postname.Focus()
            Exit Sub
        End If

        Try
            cmd = New OleDbCommand(sqlDelete, OleDbConnection1)
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

        Finally
            cleargrid()
            ClereAllData()
            Showrecord()



        End Try

    End Sub
    Private Sub Showrecord()

        Dim sqlselect As String
        sqlselect = "  select EVENT_ID,EVENT_name FROM TB_EVENTJOBSALE order by EVENT_ID ASC "


        da1 = New OleDbDataAdapter(sqlselect, OleDbConnection1)
        da1.Fill(ds1, "dataset2")
        dt1 = ds1.Tables("dataset2")
        Dgv1.DataSource = dt1

        Dgv1.Columns(0).HeaderText = "รหัสของขั้นตอนการทำงาน"
        Dgv1.Columns(0).Width = 180
        Dgv1.Columns(1).HeaderText = "ชื่อขั้นตอนการทำงาน"
        Dgv1.Columns(1).Width = 180

    End Sub
    Private Sub cleargrid()
        ds1.Tables("dataset2").Clear()
        dt1 = ds1.Tables("dataset2")
        Dgv1.DataSource = dt1
    End Sub

    Private Sub Dgv1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Dgv1.CellClick
        Txt_Postid.Text = Dgv1.CurrentRow.Cells(0).Value
        Txt_Postname.Text = Dgv1.CurrentRow.Cells(1).Value
    End Sub

    Private Sub ClereAllData()

        Txt_Postid.Text = ""
        Txt_Postname.Text = ""

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ClereAllData()
    End Sub
End Class




Tag : .NET







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2011-02-15 14:43:01 By : KIKKOK View : 1121 Reply : 0
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : Windows.Forms.DialogResult.No กด No แล้วข้อมูลยัง save ค่ะ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 00
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 อัตราราคา คลิกที่นี่