11 respuestas en este tema

[enecumene]

Pues eso, tengo el siguiente code:

delphi

procedure TFConsDesp.PngSpeedButton1Click(Sender: TObject);
begin
ZDespacho.Close;
ZDespacho.SQL.Clear;
Case rgFiltro.ItemIndex of
  0: ZDespacho.SQL.Text := 'select * from despexp where noDesp Like '+QuotedStr('%'+Edit1.Text+'%')+' AND fecha >= '''+Edit2.Text+'-01-01'' AND fecha <= '''+Edit2.Text+'-12-31'' ';
  1: ZDespacho.SQL.Text := 'select * from despexp where casa Like '+QuotedStr('%'+Edit1.Text+'%')+' AND fecha Between '''+Edit2.Text+'-01-01'' AND '''+Edit2.Text+'-12-31'' ';
  2: ZDespacho.SQL.Text := 'select * from despexp where noID Like '+QuotedStr('%'+Edit1.Text+'%')+'';
end;
ZDespacho.Open;
  ShowMessage(ZDespacho.SQL.Text);
  if ZDespacho.RecordCount = 0 then
    begin
      ShowMessage('¡No se encontraron registros!');
      Label4.Caption := '0';
      Exit;
    end;
  Label4.caption := IntToStr(ZDespacho.RecordCount);
end;

la primera consulta sale así­ en el showmessage:

sql

SELECT * FROM despexp WHERE noDesp LIKE '50' AND fecha >= '2009-01-01' AND fecha <= '2009-12-31'

Hasta ahí­ perfecto pero sin embargo no me encuentra nada, si la coloco desde la base sí­ me la encuentra más no desde Delphi, igual ocurre con las demás consultas, utilizo MySQL con ZEOS y D7.

Saludos.

[Rolphy Reyes]

Pues eso, tengo el siguiente code:

delphi

procedure TFConsDesp.PngSpeedButton1Click(Sender: TObject);
begin
ZDespacho.Close;
ZDespacho.SQL.Clear;
Case rgFiltro.ItemIndex of
  0: ZDespacho.SQL.Text := 'select * from despexp where noDesp Like '+QuotedStr(Edit1.Text)+' AND fecha >= '''+Edit2.Text+'-01-01'' AND fecha <= '''+Edit2.Text+'-12-31'' ';
  1: ZDespacho.SQL.Text := 'select * from despexp where casa Like '+QuotedStr('%'+Edit1.Text+'%')+' AND fecha Between '''+Edit2.Text+'-01-01'' AND '''+Edit2.Text+'-12-31'' ';
  2: ZDespacho.SQL.Text := 'select * from despexp where noID Like '+QuotedStr('%'+Edit1.Text+'%')+'';
end;
ZDespacho.Open;
  ShowMessage(ZDespacho.SQL.Text);
  if ZDespacho.RecordCount = 0 then
    begin
      ShowMessage('¡No se encontraron registros!');
      Label4.Caption := '0';
      Exit;
    end;
  Label4.caption := IntToStr(ZDespacho.RecordCount);
end;

la primera consulta sale así­ en el showmessage:

sql

SELECT * FROM despexp WHERE noDesp LIKE '50' AND fecha >= '2009-01-01' AND fecha <= '2009-12-31'

Hasta ahí­ perfecto pero sin embargo no me encuentra nada, si la coloco desde la base sí­ me la encuentra más no desde Delphi, igual ocurre con las demás consultas, utilizo MySQL con ZEOS y D7.

Saludos.

Saludos.

Enecumene, si esa sentencia funciona desde la BD pues te recomiendo activar el SQLMonitor que viene con Delphi y así­ podrás observar que enví­a el programa real y efectivamente a la BD.

Con esto podrás copiar la sentencia y ponerla en la BD y corregirla.

Hasta luego.

[Caral]

Hola
Los Edit siempre son unos necios cuando de fechas se trata.
Yo prefiero usar el directo que es el datetimepicker, asi no se complica nada.
No entiendo por que usar QuotedStr con edit`s, me suenan a campos texto, no se, con el uso de parametros, se hace mas limpia la consulta y se evitan muchas complicaciones.
Saludos

[Delphius]

Yo secundo la opinión de Carlos, emplea parámetros... la consulta queda más limpia y además te evitas cualquier dolor de cabeza con el formato fecha, ¡dejaselos para los parámetros que se encarguen de ellos!

Saludos,

[enecumene]

A ver, dejo imagen de como se ve el formulario de consultas, para que tengan una idea. Lo primero es que no puedo utilizar el DateTimePicker porque no se escoje un rango de fecha ya que está fijo, el usuario sólo pone el año a consultar, lo segundo es que es raro que no me funcione en este caso y en todos los otros formularios donde aplico esa misma técnica si funcionan. . Sólo un campo de los tres es Texto, los otros son integer.

Saludos.

[Rolphy Reyes]

Saludos.

Ahora que veo tu formulario, me nace la curiosidad por saber si en MySQL no existe la función EXTRACT que existe en Firebird.  De ser positivo, solo debes de emplear esta función y listo.

[Caral]

Hola
Solo jugando, si no se me olvida.

delphi

procedure TFConsDesp.PngSpeedButton1Click(Sender: TObject);
var
fech1, fech2: string;
begin
ZDespacho.Close;
ZDespacho.SQL.Clear;
fech1:= '-01-01';
fech2:= '-12-31';
Case rgFiltro.ItemIndex of
  0: ZDespacho.SQL.Text := 'select * from despexp where noDesp Like '+QuotedStr(Edit1.Text)+' AND fecha >= '''+Edit2.Text+fech1+' AND fecha <= '''+Edit2.Text+fech2' ';
  1: ZDespacho.SQL.Text := 'select * from despexp where casa Like '+QuotedStr('%'+Edit1.Text+'%')+' AND fecha Between '''+Edit2.Text+fech1+' AND '''+Edit2.Text+fech2' ';
  2: ZDespacho.SQL.Text := 'select * from despexp where noID Like '+QuotedStr('%'+Edit1.Text+'%')+'';
end;
ZDespacho.Open;
  ShowMessage(ZDespacho.SQL.Text);
  if ZDespacho.RecordCount = 0 then
    begin
      ShowMessage('¡No se encontraron registros!');
      Label4.Caption := '0';
      Exit;
    end;
  Label4.caption := IntToStr(ZDespacho.RecordCount);
end;

Saludos

[Delphius]

Creo que MySQL si cuenta con la función EXTRACT. Prueba con la misma consulta pero en la parte where que la condición de la fecha sea así­:

sql

WHERE ... LIKE ...  AND (EXTRACT(YEAR FROM campo_fecha) = '2009')

El uso de Between también deberí­a funcionar:

sql

WHERE ... LIKE ...  AND (campo_fecha BETWEEN 'la_fecha1' AND 'la_fecha2')

Saludos,

[enecumene]

Bueno no sé que cambio hice porque no le veo la diferencia, pero ahora me funciona   :

delphi

procedure TFConsDesp.PngSpeedButton1Click(Sender: TObject);
begin
ZDespacho.Close;
ZDespacho.SQL.Clear;
Case rgFiltro.ItemIndex of
  0: ZDespacho.SQL.Text := 'select * from despexp where noDesp Like '+QuotedStr('%'+Edit1.Text+'%')+' And fecha >= '''+Edit2.Text+'-01-01'' And fecha<= '''+Edit2.Text+'-12-31'' ';
  1: ZDespacho.SQL.Text := 'select * from despexp where casa Like '+QuotedStr('%'+Edit1.Text+'%')+' And fecha >= '''+Edit2.Text+'-01-01'' And fecha<= '''+Edit2.Text+'-12-31'' ';
  2: ZDespacho.SQL.Text := 'select * from despexp where noID Like '+QuotedStr('%'+Edit1.Text+'%')+' ';
end;
ZDespacho.Open;
  if ZDespacho.RecordCount = 0 then
    begin
      ShowMessage('¡No se encontraron registros!');
      Label4.Caption := '0';
      Exit;
    end;
  Label4.caption := IntToStr(ZDespacho.RecordCount);
end;

Gracias compañeros.

Saludos.

[Delphius]

¡Que bueno que lo resolviste!
Apostarí­a un dolar a que se debí­a a uno que otro apóstrofo

Saludos,

[enecumene]

Pues puedes estar seguro de eso amigo, la cuestión es que no la encuentro, pero bue, ¿ya pa qué? .

Saludos.

[eduarcol]

yo la diferencia que veo es que utilizas el between en la primera y en la ultima no...