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

(28-08-16, 02:00 AM)أبو عمر كتب : [ -> ]تفضل المثال بعد التعديل
و وفقك الله

---

اذا شق عليك فتح الملف
فهذا كود الحذف

PHP كود :

Sub delete_field()
        Try
            Dim DT As New DataTable
            Dim cmd As New OleDbCommand
            DT.Clear()
            cmd = New OleDbCommand("Delete * from emp where pid=" & Val(Me.Text), con)
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
            New_Qsalary()
            new_emp()
        Catch ex As Exception

        End Try

    End Sub
' هذا الكود لاخذ رقم الموظف المراد حذفه
    Private Sub DataGridView1_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
        Me.Text = Me.DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(0).Value
    End Sub
'وهذا الكود في زر الحذف
       Try

            delete_field()
        Catch ex As Exception
        End Try 


(28-08-16, 11:24 AM)محمد خلف زكي كتب : [ -> ]

(28-08-16, 02:00 AM)أبو عمر كتب : [ -> ]تفضل المثال بعد التعديل
و وفقك الله

---

اذا شق عليك فتح الملف
فهذا كود الحذف

PHP كود :

Sub delete_field()
        Try
            Dim DT As New DataTable
            Dim cmd As New OleDbCommand
            DT.Clear()
            cmd = New OleDbCommand("Delete * from emp where pid=" & Val(Me.Text), con)
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
            New_Qsalary()
            new_emp()
        Catch ex As Exception

        End Try

    End Sub
' هذا الكود لاخذ رقم الموظف المراد حذفه
    Private Sub DataGridView1_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
        Me.Text = Me.DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(0).Value
    End Sub
'وهذا الكود في زر الحذف
       Try

            delete_field()
        Catch ex As Exception
        End Try 


جزيت خيرا ً ، ألف ألف ألف شكر ولكن الحذف يكون عشوائي وأحيانا ًُ يحذف حقلين معا ُ