Menu

  • slider04-vb6sqlhd
  • slider01-vb6sqlhd
  • slider01-vb6sqlhd
  • slider01-vb6sqlhd
  • slider01
  • slider01
  • slider01
  • slider01

Suscríbete a Aprende-Viendo 5.0

Content

visual basic 6

Josue el Viernes, Marzo 29 2013, 08:13 AM
0
hola Ronald me dejaron un proyecto de realizar un sistema de una una biblioteca pero me piden que en un formulario que dependiendo de una fecha que se adquirió el préstamo mas 3 días muestre las personas que deben de entregar ese dia
por favor si me pudieras ayudas me urge
;)ATTE
ME GUSTAN MUCHOS TUS VÍDEOS ;)
       
  •  
    Respuesta de Ronald López - Kalizron el Martes, Mayo 07 2013, 03:20 PM · Ocultar · #1
    Hola Josue
    lo primero asumo que ya tienes un form con un DtPicket para elegir la Fecha y un DataGrid para mostrar los resultados y claro un boton para realizar el proceso..

    Asi que veamos:

    1.- aumentar 3 dias a la fecha

    Dim EsteDia As Integer
    Dim EsteMes As Integer
    Dim EsteAño As Long
    
    EsteDia = Day(Fecha01.Value)
    EsteMes = Month(Fecha01.Value)
    EsteAño = Year(Fecha01.Value)
    
    Text1.Text = CDate(EsteDia + 3 & "/" & EsteMes & "/" & EsteAño)



    2.- Realizar la consulta en tu RecordSet

    .open "Select * From empleados WHERE " & "FechaNacimiento Between " & "# " + Fecha_Inicial + " # And # " + Fecha_Final + " #", Bd, adOpenStatic, adLockOptimistic

    NOTA: Fecha_Inicial y Fecha_Final serian la misma fecha (la que elegiste y la que tiene 3 dias aumentados)


    Basicamente seria algo asi..
    luego simplemente al dar click en el boton.. haces que aumente la fecha 3 dias.. y corres la consulta.. luego solo le das el recordset a la grilla

    saludos cualquier cosa avisame
Agregar Tu Respuesta
Por favor registrese o ingrese para poder publicar su respuesta.

Agradesco tu Paciencia. Muchas Gracias por la espera! Somos Aprende Viendo 5.0

Grupo AprendeViendo & Ronald López agradecen a todos sus fieles seguidores por la larga espera. Basados en nuestro nuevo concepto, Grupo Aprendeviendo les ofrece un sin fin de posibilidades en sus largas horas de adiestramiento y soluciones de problemas tanto empresariales como cotidianos. Sigamos siendo un portal de enseñanza de virtual gratuito y más que eso!

Copyright © 2006 - 2014 - Grupo AprendeViendo & Ronald López. Todos los Derechos Reservados

Grupo AprendeViendo a sido desarrollado por Ronald López - Kalizron. Esta prohibida su reproducción total o parcial sin previa autorización de parte de sus autores. Ronald López Bahamonde - Resolución: 1024-768 - Aviso Legal - Términos de Uso

Log In or Register

fb iconLog in with Facebook