Forgot Password ??

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

	Registered : 109,037

HOME > .NET Framework > Forum > อยากได้ code ตัวอย่างเกี่ยวกับ insert และ update ข้อมูลโดยใช้ button ปุ่มเดียวกัน

อยากได้ code ตัวอย่างเกี่ยวกับ insert และ update ข้อมูลโดยใช้ button ปุ่มเดียวกัน

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

Guest

อยากได้ code ตัวอย่างเกี่ยวกับ insert และ update ข้อมูลโดยใช้ button ปุ่มเดียวกันคะ พอดีหัดเขียนโปรแกรม asp.net ช่วยตอบหน่อยนะคร้า

ขอบคุณคร้า

Tag : ASP.NET, Oracle, Web (ASP.NET), VB.NET

Date : 2011-02-11 14:49:10

By : mohum

View : 1669

Reply : 7

No. 1

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

Go to : ASP.NET GridView Control - RowCommand

ลองดูน่ะครับ

Date : 2011-02-11 16:59:45

By : webmaster

No. 2

toeimomo

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

ขอบคุงนะคร้า...เด๋วจะลองทามดูนะคร้า..........

Date : 2011-02-14 11:32:14

By : ้hinori

No. 3

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


    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 strSQL As String = ""

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


        strSQL = "UPDATE customer SET EVENT_ID = '" & Txt_Postid.Text & "',  EVENT_NAME = '" & Txt_Postname.Text & "' 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(strSQL, OleDbConnection1)
            cmd.ExecuteNonQuery()
        Catch ex As Exception

            MessageBox.Show(ex.Message, "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

        Finally
            cleargrid()
            Showrecord()



        End Try
        ClereAllData()
        

    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()
            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 Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

    End Sub
End Class

Date : 2011-02-15 09:27:00

By : KOOKKIK

No. 4

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


    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 strSQL As String = ""

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


        strSQL = "UPDATE customer SET EVENT_ID = '" & Txt_Postid.Text & "',  EVENT_NAME = '" & Txt_Postname.Text & "' 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(strSQL, OleDbConnection1)
            cmd.ExecuteNonQuery()
        Catch ex As Exception

            MessageBox.Show(ex.Message, "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

        Finally
            cleargrid()
            Showrecord()



        End Try
        ClereAllData()
        

    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()
            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 Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

    End Sub
End Class

Date : 2011-02-15 09:27:39

By : KOOKKIK

No. 5

Guest

ช่วยรบกวนดูให้ด้วยนะค่ะ ยังแก้ปัญหาไม่ได้เลยค่ะ

ขอบคุณค่ะ

Date : 2011-02-15 09:29:09

By : KOOKKIK

No. 6

stricken

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

concept คือ ให้หาในฐานข้อมูลก่อนถ้าเจอให้ update แต่ถ้าไม่เจอ ให้ insert เพิ่มนิดเดียวเอง

Date : 2011-02-15 10:30:57

By : stricken

No. 7

Guest

นั้นแหละค่ะพี่stricken ที่หนูยังคิดไม่ออกเลย รบกวนช่วยหน่อยนะค่ะ ขอบคุณมากค่ะ นั่งมา 3 วันแล้ว

Date : 2011-02-15 10:51:53

By : KOOKKIK

ค้นหาข้อมูล

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

Re : อยากได้ code ตัวอย่างเกี่ยวกับ insert และ update ข้อมูลโดยใช้ button ปุ่มเดียวกัน

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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