منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

عندي هذا الكود للحذف

وانا اريد ان اضع رساله تنبيه هل تريد الحذف

اذا تم الضغط على نعم يحذف المعامله

اذا تم الضغط على لا لايتم حذف المعامله

هذا هو الكود المراد التعديل عليه

كود :

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        conn.Open()

        Try

            Dim cmddelete As New OleDbCommand

            cmddelete.CommandText = "delete from tan where idmt = '" + txtid_m.Text + "'"

            cmddelete.Connection = conn

            cmddelete.ExecuteNonQuery()

            MsgBox("تمت حذف جميع بيانات الشخص بنجاح")

            txtname_m.Clear()

            txtmustlm.Clear()

            txtnum_q.Clear()

            txtid_m.Clear()

            a1.Clear()

            Textalhalh.Clear()

        Catch ex As Exception

            MsgBox(ex.Message.ToString)

        End Try

        conn.Close()

    End Sub

شاكر لكم

PHP كود :

       Dim result As DialogResult = MessageBox.Show("هل تريد حذف البيانات", "Info", MessageBoxButtons.YesNo)
        If result = DialogResult.No Then
            ' لا تحذف البيانات
        ElseIf result = DialogResult.Yes Then
            ' إحذف البيانات
        End If 

ماقصرت يالغالي

الكود شغال تمام

(01-04-16, 11:02 PM)silverlight كتب : [ -> ]
PHP كود :

Dim result As DialogResult = MessageBox.Show("هل تريد حذف البيانات", "Info", MessageBoxButtons.YesNo) If result = DialogResult.No Then ' لا تحذف البيانات ElseIf result = DialogResult.Yes Then ' إحذف البيانات End If #الله يقوويييك والله انك كفو كود شغال

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

رومنس الشوق

silverlight

رومنس الشوق

304