Visual Basic - Error de fechas en Combo Box

Life is soft - evento anual de software empresarial
 
Vista:

Error de fechas en Combo Box

Publicado por Christian (23 intervenciones) el 28/09/2006 18:37:26
hola amigos, estoy tratando de hacer un programa en VB6 y access 2000 que pueda tomar transacciones desde una rango de fechas ingresadas por el usuario, y tengo este codigo:

SQL = "SELECT Movimiento, SUM (Monto)AS SUMA FROM Movimiento Where Movimiento.Movimiento= 'Ingreso' AND ((Movimiento.Fecha) Between '#" & Trim(CboInicio.Text) & "#' And '#" Trim(cmbfin.text) & "#') Group BY Movimiento"
Debug.Print SQL
Rs.Open SQL, Cn, adOpenDynamic, adLockOptimistic
TxtIngreso = Rs.Fields("SUMA")
Set Rs = Nothing

pero se cae el programa.

si yo coloco:

SQL = "SELECT Movimiento, SUM (Monto)AS SUMA FROM Movimiento Where Movimiento.Movimiento= 'Ingreso' AND ((Movimiento.Fecha) Between '"#01/01/2006#"' And '" & #1/12/2006# & "') Group BY Movimiento"
Debug.Print SQL
Rs.Open SQL, Cn, adOpenDynamic, adLockOptimistic
TxtIngreso = Rs.Fields("SUMA")
Set Rs = Nothing

me muestra todo bien, pero si quiero pasarle los valores de las combo no funciona.

notas:
las combobox tiene datos correctos
y las combo estan llenas al momento de ejecutar.

gracias, espero puedan ayudarme,
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Error de fechas en Combo Box

Publicado por Ricardo J. Marenco (8 intervenciones) el 28/09/2006 18:51:49
Estimado Amigo...

Tienes que hecharle un vistazo al Formato, de las fechas...
Mi consejo es>
Antes de ejecutar la consulta le des un
msqbox SQL
y de esta forma te daras cuenta si la consulta que estas pasando es la correcta?? o bien si los parametros que estas enviando tengan los datos correcto.....

Si los datos no estan pasandose correctamente, pero se pasan, prueba darles formatos a las fechas
format(fecha,"dd/mm/yyyy")

Saludos y Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Error de fechas en Combo Box

Publicado por Felipe (10 intervenciones) el 28/09/2006 19:46:19
SE CAE EL PROGRAMA, QUE QUIERE DECIR? DA ALGUN ERROR O NO HASE NADA?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Error de fechas en Combo Box

Publicado por christian (23 intervenciones) el 28/09/2006 19:55:44
el codigo es el sgte:

SQL = "SELECT Movimiento, SUM (Monto)AS SUMA FROM Movimiento Where Movimiento.Movimiento= 'Ingreso' AND ((Movimiento.Fecha) Between '#" & Trim(CboInicio.Text) & "#' And '#" & Trim(CmbFin.Text) & "#') Group BY Movimiento"
MsgBox (SQL)
Rs.Open SQL, Cn, adOpenDynamic, adLockOptimistic
TxtIngreso = Rs.Fields("SUMA")
Set Rs = Nothing

Error: "No coinciden los datos con la expresion de criterios"

las combo box entregan la fecha en el siguiente formato: DD/MM/AAAA EJ: 01/01/2006

el campo fecha es del tipo Data/Time
los valores entregados por lascombo son validos y correctos.

espero les sirva la informacion, y me puedan ayudar. gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar