estoy desesperado...(fechas) - VB-MUNDO

alfonsoestampida · #1 (**permalink**) 08-03-2005, 11:33:21

ya he provado tantas cosas que no se que puñetas (xD) hacer... :smt011
quiero hacer una consulta y me aparezcan todos los registros que estan dentro de un periodo de fechas :smt017

cb_fech_ini ->es la fecha inicial (combobox)
cb_fech_fin ->es la fecha final (combobox)

pongo una lista de las cosas que no van :smt018 :

'probando
da1 = CB_FECH_INI.Text
y
da1 = format(CB_FECH_INI.Text,"Short Date")
y
da1 = cstr(CB_FECH_INI.Text)
'da2 es CB_FECH_FIN

'todo junto
Set RS = BD.OpenRecordset("select * from contabilidad where " & CStr(RS.Fields(""fecha""))&" >= " & da1 & " And CStr(RS.Fields(""fecha"")) <= " & da2 & "", dbOpenDynaset)
' con "" dobles o " simples...

'o
Set RS = BD.OpenRecordset("select * from contabilidad where fecha >= " & da1 & " And fecha <= " & da2 & "", dbOpenDynaset)

'o por separado
'con esto
fe = CDate(RS.Fields(fecha)) >=#" & da1 & "# and fecha <= #" & da2 & "#"
'y lo meto en el where
'y tambien e probado quitando los "#" y poniendo " ' "

'o esto otro
fe= "fecha between (" & da1 & " and " & da2 & ")"

ahora toca esperar :smt019

alfonsoestampida · #2 (**permalink**) 08-03-2005, 12:09:35

hay alguna funcion para comparar si una cadena es mayor a otra?

algo como en C...
no me acuerdo ya ni de como se llama

to por culpa de visual basic !! :smt013

ROBER.29 · #3 (**permalink**) 08-03-2005, 12:35:54

Hola,

Supongo que el campo fecha será de tipo DateTime en la base de datos.
Prueba esto y sino probamos otra cosa que sería utilizando también a mayores la función to_date o el convert para convertir el valor del campo de la base de datos a tipo fecha.

Código:

da1_Aux = Day(da1) & "/" & Month(da1) & "/" & Year(da1)
da2_Aux = Day(da2) & "/" & Month(da2) & "/" & Year(da2)

Set RS = BD.OpenRecordset("select * from contabilidad where fecha >= '" & da1_Aux & "' And fecha <= '" & da2_Aux & "'", dbOpenDynaset)

Un saludo.

Insomnia17 · #4 (**permalink**) 08-03-2005, 15:13:38

Hola

Intenta lo siguiente:

Código:

SQL="Select * from tabla where fecha>=#" &  Format(RS.Field(2), "mm/dd/yyyy") & "#)"

Resumiendo dale el formato mm/dd/yyyy a los campos de fecha e introducelos entre #, haz lo mismo con la otra parte de la condición. En el ejemplo he utilizado fields(2), tu tendras que introducir el que corresponda en tu caso.

Espero que resulte

--Suerte--

alfonsoestampida · #5 (**permalink**) 09-03-2005, 08:11:14

por probar que no quede

ayer no pude responder porque estaba liado con otras cosas

ara luego cuento como ha ido...

alfonsoestampida · #6 (**permalink**) 09-03-2005, 08:17:33

el 1º ya a fallado...

adjunto la imagen del error que siempre da

en la tabla (acces) el campo fecha es fecha/hora formato fecha corta

alfonsoestampida · #7 (**permalink**) 09-03-2005, 08:35:15

Cita:

Empezado por Insomnia17

Hola

Intenta lo siguiente:

Código:

SQL="Select * from tabla where fecha>=#" &  Format(RS.Field(2), "mm/dd/yyyy") & "#)"

Resumiendo dale el formato mm/dd/yyyy a los campos de fecha e introducelos entre #, haz lo mismo con la otra parte de la condición. En el ejemplo he utilizado fields(2), tu tendras que introducir el que corresponda en tu caso.

Espero que resulte

--Suerte--

:smt012 :smt012 :smt012 :smt012 FUNCIONAAA!!! :smt012 :smt012 :smt012 :smt012

con mas o menos lo que me as dicho tu
al final e puesto esto:

Set RS = BD.OpenRecordset("Select * from contabilidad where fecha>=#" & Format(da1, "mm/dd/yy") & "# and fecha <=#" & Format(da2, "mm/dd/yy") & "#", dbOpenDynaset)

ROBER.29 · #8 (**permalink**) 09-03-2005, 08:49:36

Hola,

Siento que lo primero te fallara pero no sabia que la base de datos fuera de Access y siendo así, en access todas las fechas tienen que ir entre ## y no entre '' como te había puesto yo.

En sql si que te admite las ''.

Un saludo.