Hola. Tengo un programa de reparaciones informáticas. El problema que tengo es que quiero hacer un select para mostrar las reparaciones entre las fechas. Hasta aquí sin problemas. El problema surge cuando quiero hacer un select en el que las reparaciones esten a partir de la primera fecha pero que solo muestre los que la 2 fecha esta vacía. Es decir, si es una reparación que ha entrado a taller pero todavía no se ha terminado. Os dejo el codigo:

If bdreparaciones.State <> adStateClosed Then
bdreparaciones.Close
'bdreparaciones.Open "select * from bdreparaciones where fecha_entrada >= #" & DTPicker1.Value & "# and fecha_salida <= #" & DTPicker2.Value & "#"
Dim fi, ft As Date 'importante declarar las variables como 'date'
fi = Format(DTPicker1, "mm-dd-yyyy") 'muy importante este formato de fecha para buscar en access 'mm-dd-yyyy'
ft = Format(DTPicker2, "mm-dd-yyyy")

'la variable 'Base' es la variable de conexion que utilice en el modulo
bdreparaciones.Open "select nom_cliente,apellidoscliente,fecha_entrada,problem a,tiempo_reparacion,importe,hora from reparaciones where fecha_entrada >= #" & fi & "# "


Set DataGridreparacion.DataSource = bdreparaciones


End If

Saludos:

Seria agregar en el selec la condicion. Quedaria mas o menos asi:

bdreparaciones.Open "SELECT * FROM bdreparaciones WHERE fecha_entrada >= #" & DTPicker1.Value & "# AND fecha_salida <= #" & DTPicker2.Value & "#" AND fecha_salida IS NULL

Esta ultima parte puede variar por los datos que tengas alli. Por ejemplo cuando se envia null en el INSERT en INFORMIX este campo puede ser NULL, pero en MYSQL es 0000-00-00.

bdreparaciones.Open "SELECT * FROM bdreparaciones WHERE fecha_entrada >= #" & DTPicker1.Value & "# AND fecha_salida <= #" & DTPicker2.Value & "#" AND fecha_salida = '0000-00-00'


Como sea en la BD que usas no se. Tendras que averiguarlo mirando los datos.

Espero ayude.


JOSE LUIS

Si me ha servido. Ahora me muestra los datos como queria. Muchas gracias.