Tema: Filtro Adodc
Ver Mensaje Individual
  #1 (permalink)  
Antiguo 26/06/2014, 13:29
Avatar de bernaap
bernaap
 
Fecha de Ingreso: agosto-2007
Mensajes: 74
Antigüedad: 16 años, 8 meses
Puntos: 0
Filtro Adodc

Hola buen día estoy haciendo un sistema de filtrado pero no se como hacerlo, lo que pasa es que tengo una fecha del ultimo movimiento guardada en una base de datos y la fecha actual que se le pone manualmente en un txt , lo que tiene que hacer el filtro es que si la ultima fecha del movimiento es mayor a 3 meses a la fecha actual lo filtre y si es menor a 3 meses que no lo filtre.

estoy usando un datagrid y un adodc y otros controles anexo el codigo que tengo

Código vb:
Ver original
  1. lblumes.Caption = txtumes.Text
  2. Dim Fecha3 As Date, Fecha4 As Date
  3.  
  4. Fecha3 = lblumes.Caption
  5. Fecha4 = lblfecha.Caption
  6.    
  7.     lblmeses.Caption = DateDiff("m", Fecha3, Fecha4) & ""
  8.    
  9.    
  10.    
  11. Adodc1.Recordset.Filter = Combo1.Text & " LIKE '*" & txtcalle & "*' And " & Combo2.Text & " < '" & txtumes & "' And " & Combo3.Text & " LIKE '" & txtestado & "' And " & lblmeses.Caption & " >= '" & txtnummes & "'"

DESDE YA GRACIAS