TxtBox, datos fecha para consulta por rango fecha
Hola Experto.. Mi nombres es Rolando. Por favor ayudame con esta consulta. He creado un formulario en Visual Foxpro, en el cual tengo dos textbox1 y textbox, quiero utilizar estos textbox para ingresar datos de fecha.
En el primer TXTBOX la fecha inicio y en el segundo TXTBOX ingresare la fecha final. Con esto quiero hacer una consulta por rango de fechas, un vez ingresado la fecha quiero que me muestre los datos de mi tabla en la grilla(cuadricula). Para esto tengo un command1, que al momento que termine de ingresar los rangos de fechas se active el command1.
Por favor Exoerto, como debería de ser el código en los eventos de cada textbox y del command1 para mostrrlo, el nombre de mi tabla es Ta_viajes, (campo1, campo2, campo3, campo4, campo5, campo6)
Experto mi correo personal es: [email protected]. Agradeciendo tu ayuda y tu atención, me despido de ti, infinitamente...
Gracias.
Rolando
Lima - Perú
En el primer TXTBOX la fecha inicio y en el segundo TXTBOX ingresare la fecha final. Con esto quiero hacer una consulta por rango de fechas, un vez ingresado la fecha quiero que me muestre los datos de mi tabla en la grilla(cuadricula). Para esto tengo un command1, que al momento que termine de ingresar los rangos de fechas se active el command1.
Por favor Exoerto, como debería de ser el código en los eventos de cada textbox y del command1 para mostrrlo, el nombre de mi tabla es Ta_viajes, (campo1, campo2, campo3, campo4, campo5, campo6)
Experto mi correo personal es: [email protected]. Agradeciendo tu ayuda y tu atención, me despido de ti, infinitamente...
Gracias.
Rolando
Lima - Perú
1 respuesta
Respuesta de ingesoft
1
init del form
thisform.texbox1.value=ctod(' / / ') &&& o date()
thisform.texbox2.value=date()+1
en el clic del boton command1
fec1=thisform.texbox1.value
fec2=thisform.texbox2.value
selec * from ta_viajes where BETWEEN(fecha,fec1,fec2) order by fecha into cursor consulta
thisform.grid1.recordsource='consulta'
Thisform. Grid1. Refresh
thisform.texbox1.value=ctod(' / / ') &&& o date()
thisform.texbox2.value=date()+1
en el clic del boton command1
fec1=thisform.texbox1.value
fec2=thisform.texbox2.value
selec * from ta_viajes where BETWEEN(fecha,fec1,fec2) order by fecha into cursor consulta
thisform.grid1.recordsource='consulta'
Thisform. Grid1. Refresh
