[11951]

كود :

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles btnDel.Click
        If DGV.Rows.Count = 0 Then
            btnDel.Enabled = False
        Else
            btnDel.Enabled = True
        End If

        Try

            Using cmd As New OleDbCommand("SELECT Path1 FROM TB1 Where AutoId = @AutoId", con)
                cmd.Parameters.Add("@AutoId", OleDbType.VarChar).Value = DGV.CurrentRow.Cells(1).Value
                If con.State <> ConnectionState.Open Then con.Open()
                Dim p As String = cmd.ExecuteScalar
                con.Close()
                IO.File.Delete(p)
            End Using

            con.Open()
            sqlstr = "Delete From TB1 Where AutoId = @AutoId"
            cmd = New OleDbCommand(sqlstr, con)
            cmd.Parameters.Add("@AutoId", OleDbType.VarChar).Value = DGV.CurrentRow.Cells(1).Value

            cmd.ExecuteNonQuery()


            MsgBox("تمت عملية الحذف بنجاح", MsgBoxStyle.Information, "الحذف")

            FillDGV()

        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            con.Close()
        End Try
        txtAutoId.Text = Format(GET_LAST_RECORD("TB1", "AutoId") + 1, "IMG00000")
    End Sub