Problema con fecha en busqueda

[yanelisroque]

Hola!

De esa forma da error.
La tabla muestra formato mm/dd/aaaa, pero en realidad guarga como aaa-mm-dd. Yo estaba probando primero convertirla para poder compararla en la busqueda, pero me da error de incompatibilidad (datetime con datetimefield), y no se. Gracias.

var AnioTabla, MesTabla, DiaTabla, FechaTabla :Integer;

AnioTabla := YearOf(DataModule2.TITablaFecha);
MesTabla := MonthOf(DataModule2.TITablaFecha);
DiaTabla := DayOf(DataModule2.TITablaFecha);
FechaTabla := String (AnioTabla + '-' + MesTabla + '-' + DiaTabla);

[roman]

Empezado por yanelisroque

De esa forma da error.
La tabla muestra formato mm/dd/aaaa, pero en realidad guarga como aaa-mm-dd.

Pero se trata de otro error: formato de fecha inadecuado. El QuotedStr es para encerrar el valor entre comillas que es lo que el servidor espera.

Empezado por yanelisroque

pero me da error de incompatibilidad (datetime con datetimefield), y no se.

DateTimeField es un objeto, no un valor DateTime. Tendrías que usar la propiedad Value del objeto DateTimeField.

Y como te mencioné antes, muchos de estos problemas se solucionan y simplifican pasando los valores a la consulta mediante parámetros.

// Saludos

[yanelisroque]

Hola!

Si le pongo QuotedStr me da error: sintaxis error convirtiendo un datetime a un caracter string. Gracias.
if Menor.Checked = True then
DataModule2.QTTabla.SQL.Add('SELECT * FROM TTabla WHERE Fecha < ' + QuotedStr(Filtrar.Text) + ' ORDER BY Fecha');
if Mayor.Checked = True then
DataModule2.QTTabla.SQL.Add('SELECT * FROM TTabla WHERE Fecha > ' + QuotedStr(Filtrar.Text) + ' ORDER BY Fecha');
if Igual.Checked = True then
DataModule2.QTTabla.SQL.Add('SELECT * FROM TTabla WHERE Fecha = ' + QuotedStr(Filtrar.Text) + ' ORDER BY Fecha');

En el caso de un campo alfanumerico yo lo tengo asi y no da error pero con la fecha me da error.
WhereClause := 'NombreyApellidos LIKE ' + QuotedStr(Filtrar.Text + '%');
DataModule2.QTICuna.SQL.Add('SELECT * FROM TICuna WHERE ' + WhereClause + ' ORDER BY Fecha');

[marcoszorrilla]

Pues tendrás que aplicarle cuando menos FormatDateTime, y no sé si SQL Server al igual que Access, requiere almohadillas # delante y detras de la fecha, en ese caso podía quedar algo como

Código Delphi [-]
 QuotedStr('#'+FormatDateTime('mm/dd/yyyy',Edit1.Text)+'#');

Y quizás lo más simple pueda ser utilizar parámetros.

Un Saludo.

[yanelisroque]

Hola!

El formatDateTime me da: [Error] BusquedaTIParvulos.pas(1107): There is no overloaded version of 'FormatDateTime' that can be called with these arguments.
Ya me funciona bien; lo q hice fue convertir la fecha q entra a aaa-mm-dd (separando el año, mes y dia y usando un string para formar la cadena) y comparo esa con la de la tabla y funciona bien. Muchas gracias por la ayuda.

[marcoszorrilla]

Prueba con:

Código SQL [-]
  FormatDateTime('mm/dd/yyyy',Edit1.Text);

y sino con:

Código SQL [-]
  QuotedStr(FormatDateTime('mm/dd/yyyy',Edit1.Text));

Un Saludo.