5 respuestas en este tema

[Fleon]

Hola, tengo esta sentencia en delphi:

delphi

ADOQuery1.SQL.Text := 'SELECT * FROM ctas_gral WHERE fecha_reg BETWEEN '+edPeriodo.Text+'-01-01' AND '+edPeriodo.Text+'-02-01'';

Pero me da error,

[Error] ConsCuenta.pas(130): Operator not applicable to this operand type

¿A qué se debe eso, le falta algo?

Fleon xD

[Caral]

Hola
Creo que es por esto:

delphi

ADOQuery1.SQL.Text := 'SELECT * FROM ctas_gral WHERE fecha_reg BETWEEN '+StrToDate(edPeriodo.Text)+'-01-01' AND '+StrToDate(edPeriodo.Text)+'-02-01'';

Pero seria mejor que lo hicieras con parametros:

delphi

ADOQuery1.SQL.Text := 'SELECT * FROM ctas_gral WHERE fecha_reg BETWEEN :Dato1 -01-01 AND :Dato2 -02-01'';

No entiendo el por que de los numeros siguientes?.
Saludos

[Fleon]

No entiendo el por que de los numeros siguientes?.
Saludos

Hola, los números siguientes son Mes y día, en MySQL el formato de fecha es Año-Mes-Día (yyyy-mm-dd), y edPeriodo es donde el usuario colocará el año, ¿Y cómo es eso de Parámetros?, de todos modos pude solucionar el problema, y era que le faltaba más comillas:

delphi

ADOQuery1.SQL.Text := 'SELECT * FROM ctas_gral WHERE fecha_reg BETWEEN '''+edPeriodo.Text+'-01-01'' AND '''+edPeriodo.Text+'-02-01''';

Fleon xD

[Caral]

Hola
No estoy muy claro, pero creo que seria asi:

delphi

ADOQuery1.SQL.Text := 'SELECT * FROM ctas_gral WHERE fecha_reg BETWEEN :Dato1 AND :Dato2 ';
ADOQuery1.Paremeters[0].Value:= edPeriodo.Text +'-01-01';
ADOQuery1.Paremeters[1].Value:= edPeriodo.Text +'-02-01';

Saludos

[eduarcol]

creo que el problema es de comillas:

delphi

ADOQuery1.SQL.Text := 'SELECT * FROM ctas_gral WHERE fecha_reg BETWEEN ' + edPeriodo.Text + '-01-01' + ' AND ' + edPeriodo.Text + '-02-01';

prueba eso y me avisas, pero creo que vas a tener que utilizar quotedstr

[Fleon]

Muchas gracias Eduarcol, también me funciona .

Fleon xD