Problemas VB y consulta MySql filtrada por Fecha

[noah_242]

Hola a todos¡

Tengo un problema y es que cuando le paso al adaptador la siguiente consulta me da un error,la consulta es

"SELECT * FROM albaran_cliente WHERE (facturado='False' or facturado='') and fecha =" & Today

Entenderia que la conexion la tuviera mal pero es que realiza otra consulta similar y si me funciona,es la sihguiente

"SELECT * FROM albaran_cliente WHERE (facturado='False' or facturado='') and id_cliente='" & id_cliente & "'"

Y he probado de todo,comillas simples,compuestas,entre # ,y no consigo nada.Lo que si se es que esto lo lia la maldita fecha.En la base de datos es Date aunque tb probe con Datetime y demas.Aqui les dejo el error haber si me pudieran ayudar porque me esta volviendo loco esto:gracias y saludos de antemano¡

Excepcion no controlada del tipo 'System.InvalidOperationException' en
system.data.dll
Informacion adicional: Connection must be valid and open

[fredy666]

Cuando hice mi proyecto de fin de curso (VB 6 contra MYSQL) tuve el mismo problema, lo resolvi conviertiendo las fechas de Español a Ingles.

Pruebalo, haber si es ese el problema, ya que segñun lei hace tiempo era la unica forma de operar con fechas en MySQL, al no poder decirle que tipo de fecha se queria.

Ya dices algo.

[noah_242]

Gracias Fredy666¡
Creo que he encontrado la solucion ,yes que al pasarle la consulta pues convierto "Fecha" a dias es decir utilizo :


"SELECT * FROM albaran_cliente WHERE (facturado='False' or facturado='') and TO_DAYS(fecha) =732590" (Es la fecha de hoy pasado a dias)

El problema reside en que no encuentro ninguna funcion que me convierta una fecha a sus dias totales,si alguien tuviera esa funcion o supiera de ella pues el problema estaria resuelto,espero que me la puedan decir.Muchas gracias de nuevo¡

[noah_242]

Encontre la solucion pero se me olvido postearla,es la siguiente:

Public Function Dias_Totales(ByVal fecha As Date)

Dim fecha_dias As Integer
Dim fecha_cero As New Date(1, 1, 1)
fecha_dias = DateDiff(DateInterval.Day, fecha_cero, fecha.Date) + 366

Return fecha_dias
End Function

Dias_Totales(Me.dtp_fecha.Value.Date)

Espero que le pueda servir de ayuda a alguien por si tiene el mismo problema con MySql

[carlosmartinez]

Saludos

Posteo una forma mas practica de resolver el problema de fecha:


"Select Llegada,IdPaciente,Paciente,Fecha,IdUsuario From `Control de Consultas` Where IdUsuario='" & IdUsuarioM & "'" & " And DATE_FORMAT(Fecha,'%d/%m/%Y') ='" & Format(Date, "dd/mm/yyyy") & "' And Servicio LIKE '%" & sServ & "%'"


Espero les sirva,

PD: Solo deben de reemplazar las cosas necesarias para sus consultas.