Ingeniera

PROGRAMACION
'Private Sub cmd_consultar_Click()
' consultar
'End Sub

Private Sub cmd_consultar_Click()
consultar
End Sub

Private Sub cmd_regresar_Click()
Unload Me
End Sub

Private Sub cmd_salir_Click()
End
End Sub

Private Sub Form_Load()
Dtp_hinicio.Format = dtpTime
Dtp_hfin.Format = dtpTime

'cmb_ej.AddItem "BYRON ASENCIO"
'cmb_ej.AddItem "JIMMY DURAN"'cmb_ej.AddItem "JHON JAIME"
'cmb_ej.AddItem "KIMBERLY LEYTON"
'cmb_ej.AddItem "FRANCISCO BORJA"
'
'
'cmb_so.AddItem "VIVIANA PÉREZ"
'cmb_so.AddItem "EC. CESAR ESPINOZA"
'cmb_so.AddItem "LCDA. JACKELYNE CAMPOS"
'cmb_so.AddItem "JORGE BAUER"
'cmb_so.AddItem "MANUEL MORAN"

'llenando el combo de ejecutantes
sql = "Select id, nombres_completos " & _
"from tb_personas where estado='A'" & _
"and id_cargo in (select id from tb_cargos where suf='SIS') "
llenar_combo sql, cmb_ej

'llenando el combo de solicitantes
sql = "Select id, nombres_completos " & _
"from tb_personas where estado='A' " & _
"and id_cargo in (select id from tb_cargos where suf<>'SIS') "
llenar_combo sql, cmb_so


'llenando el combo desolicitantes
sql = "Select id, id " & _
"from tb_tareas where estado='A' "
llenar_combo sql, Me.cmb_codigo


'Me.cmb_codigo.AddItem "2"

'Dtp_hinicio.Hour = "14"
'Dtp_hinicio.Minute = "1"
'Dtp_hinicio.Second = "25"

End Sub

Sub consultar()
On Error GoTo EtiqErr


Dtp_hinicio.Format = dtpTime
Dtp_hfin.Format = dtpTimeIf cmb_codigo.Text <> "" Then
cmb_codigo_tarea = fcEntreCar(Me.cmb_codigo, "<", ">")
End If

If cmb_ej.Text <> "" Then
cmb_quien = fcEntreCar(Me.cmb_ej, "<", ">")
End If

If cmb_so.Text <> "" Then
cmb_solic = fcEntreCar(Me.cmb_so, "<", ">")
End If

If hora_ini <> "0:0:0" And hora_ini <>"" Then
hora_ini = Dtp_hinicio.Hour & ":" & Dtp_hinicio.Minute & ":" & Dtp_hinicio.Second
End If

If hora_fin <> "0:0:0" And hora_fin <> "" Then
hora_fin = Dtp_hfin.Hour & ":" & Dtp_hfin.Minute & ":" & Dtp_hfin.Second
End If









sql = "Select t.Id ,t.id_usuario_ejecuta, t.id_usuario_solicita, " & _
" t.hora_inicio, t.hora_fin, t.descripcion, " & _
"(select nombres_completos from tb_personas where id = t.id_usuario_ejecuta), " & _
"(select nombres_completos from tb_personas where id = t.id_usuario_solicita) " & _
"from tb_tareas t where t.estado='A' "


If cmb_codigo <> "" Then sql = sql& " and t.id = " & cmb_codigo_tarea
If cmb_quien <> "" Then sql = sql & " and t.id_usuario_ejecuta = " & cmb_quien
If cmb_solic <> "" Then sql = sql & " and t.id_usuario_solicita = " & cmb_solic

ConexionDB
RS.Open sql, Conexion, adOpenDynamic, adLockBatchOptimistic
i = 1
spr_consulta.MaxRows = 1

While Not RS.EOFWith Me.spr_consulta

.Row = i
'quien ejecuta
.Col = 1: .Text = RS(6)

'descripcion
.Col = 2: .Text = RS(5)

'hora inicio
.Col = 3: .Text = RS(3)

'hora fin
.Col = 4: .Text = RS(4)

'solicitado por.Col = 5: .Text = RS(7)

i = i + 1
.MaxRows = .MaxRows + 1
End With

'
' i = i + 1
RS.MoveNext
Wend
RS.Close

Exit Sub


EtiqErr:
MsgBox Err.Description
MsgBox "Falla en la Conexión con la Base de Datos", vbCritical, "Conexión con la Base de Datos de Seguridad"

End Sub

Private Sub...