[php3]

اشكرك على الرد ولكن الكود لم يعمل

هذا هو الكود الذي استخدمه

PHP كود :

   Sub deletealldata()


        Try


            Dim sql As String = " delete from deletemain=" & Int(Me.dgvList.CurrentRow.Cells(0).Value)


            '                                                                                   


            Dim comm As New OleDb.OleDbCommand(sql, Con)


            Con.Open()


            Dim result As Integer = comm.ExecuteNonQuery


            Con.Close()


            If result > 0 Then


                Me.dgvList.Rows.Remove(Me.dgvList.CurrentRow)


                MsgBox("لقد تم حذف السجل بنجاح")


            Else


                MsgBox("لم أجد السجل المراد حذفه")


            End If


        Catch ex As Exception


            MsgBox("فشلت عملية الحذف")


        End Try


        EditQuantity.Hide()

    End Sub