Ejemplos Clculo de la Complejidad Ciclomtica

1
Ejemplos Cálculo de la Complejidad Ciclomática
2

• Private Sub cmdEliminar_Click()Dim rsEliminar As
  Recordset
• If Trim(Me.txtCarrera.Text) ltgt "" Then
• cSQL " select  from carreras where 
  carrera  '" Trim(Me.txtCarrera.Text)
  "'"      Set rsEliminar db.OpenRecordset(cSQL) 
       If rsEliminar.EOF Then       MsgBox "La
  clave de Carrera no existe..."        rsElim
  inar.Close        Exit Sub   

3

•      Else       If MsgBox("Desea Eliminar esa
  Carrera?", vbYesNo vbCritical,
  "Importante") vbYes Then            cSQL
  "DELETE  From carreras where carrera '"
  _               Trim(Me.txtCarrera.Text)
  "'"            db.Execute cSQL            MsgBox
  "Se ha eliminado el registro", vbCritical,
  "Confirmación"            Call limpiar

4

•     Else            MsgBox "Acción
  Cancelada", vbCritical, "Importante"         
     Exit Sub          End If     End If
• End If
• End Sub