¿El control DTPicker en la programación VB no puede consultar la fecha con precisión en el mes y el día?
Formato(MyDate, "dddd, mmm d aaaa")
Si deseas que el control DTPicker también tenga fecha y hora, presiona la siguiente configuración:
Seleccione 3-dtpCustom para el elemento Formato del control DTPicker y luego ingrese el elemento CustomFormat: yyyy-mm-dd hh: mm: ss
Código:
Si SSTab1.Tab = 0 Entonces 'Si la pestaña "Elemento de ingresos" está actualmente seleccionada
Set Mydb = ExeCutesql("select * from ingresos donde fecha>" & CONVERT(VARCHAR(19), DTPicker1.Value, 120 ) amp ; "' y fecha<'" amp; CONVERT(VARCHAR(19), DTPicker2.Value, 120) amp; "' ", Str_text)
Establecer MSHFlexGrid1.DataSource = Mydb
De lo contrario, la pestaña "Artículo de gastos" está seleccionada actualmente
Set Mydb1 = ExeCutesql("seleccione * de Gastos donde Fecha>" & CONVERT(VARCHAR(19), DTPicker1. Valor, 120) & "' y fecha<'" & CONVERT(VARCHAR(19), DTPicker2.Value, 120) & "' ", Str_text)
Establecer MSHFlexGrid2.DataSource = Mydb1
End If p>