sql dinamico interbase

[vroa74]

estoy tratando de construir una sentencia sql dinamica, mas sin embargo me marca errores.
Necesito buscar por rango de fechas y por nombre mas no he podido.
no se si esta bien la forma en que lo plamo o quizas haya algun caracter que sea diferente.
aqui esta el codigo....

Código Delphi [-]
var   FIni, FFin  :String;
      A,M,D : Word;

begin
 if Form1.IBQuery1.Active then
 begin
   form1.IBQuery1.Close;
   form1.IBQuery1.SQL.Clear;
   Memo1.Text :='';
 end;

  with form1 do
  begin
          IBQuery1.SQL.Add('SELECT');
          IBQuery1.SQL.Add('servicios.`status`,');
          IBQuery1.SQL.Add('servicios.id_ser,');
          IBQuery1.SQL.Add('servicios.f_recep,');
          IBQuery1.SQL.Add('servicios.f_ini,');
          IBQuery1.SQL.Add('servicios.nombre,');
          IBQuery1.SQL.Add('servicios.ofi_dir,');
          IBQuery1.SQL.Add('servicios.f_ter,');
          IBQuery1.SQL.Add('servicios.ob_sol,');
          IBQuery1.SQL.Add('servicios.m_correc,');
          IBQuery1.SQL.Add('servicios.m_prev,');
          IBQuery1.SQL.Add('servicios.software,');
          IBQuery1.SQL.Add('servicios.red,');
          IBQuery1.SQL.Add('servicios.`diseño`,');
          IBQuery1.SQL.Add('servicios.soporte,');
          IBQuery1.SQL.Add('servicios.impresion,');
          IBQuery1.SQL.Add('servicios.sol,');
          IBQuery1.SQL.Add('servicios.sol_via_email,');
          IBQuery1.SQL.Add('servicios.sol_via_ofi,');
          IBQuery1.SQL.Add('servicios.sol_via_oral,');
          IBQuery1.SQL.Add('servicios.sol_via_tel,');
          IBQuery1.SQL.Add('servicios.sol_via_otro,');
          IBQuery1.SQL.Add('servicios.sol_via_ofi_num,');
          IBQuery1.SQL.Add('servicios.sol_via_memo,');
          IBQuery1.SQL.Add('servicios.ac_rea,');
          IBQuery1.SQL.Add('servicios.obser,');
          IBQuery1.SQL.Add('servicios.respon,');
          IBQuery1.SQL.Add('servicios.dir_resp,');
          IBQuery1.SQL.Add('servicios.img');
          IBQuery1.SQL.Add('FROM');
          IBQuery1.SQL.Add('servicios');
          IBQuery1.SQL.Add('WHERE');
          IBQuery1.SQL.Add('servicios.nombre ='+Edit1.Text+'');
          if (JvDateTimePicker1.Date = JvDateTimePicker2.Date) then
           begin
                  IBQuery1.SQL.Add('Date_Format(servicios.f_ini,''%d/%m/%Y'') = '+ QuotedStr(DateToStr(JvDateTimePicker1.Date)) +'');
                  Memo1.Text := 'si paso';
            end else begin
              DecodeDate(JvDateTimePicker1.Date,A,M,D);
              FIni := IntToStr(A) + '/' + IntToStr(M)+ '/' + IntToStr(D);
              DecodeDate(JvDateTimePicker2.Date,A,M,D);
              FFin := IntToStr(A) + '/' + IntToStr(M)+ '/' + IntToStr(D);
              IBQuery1.SQL.Add('ANd');
              IBQuery1.SQL.Add('servicios.f_ini BETWEEN '+QuotedStr(Fini) + ' AND ' + QuotedStr(FFin));
          Memo1.Lines.Add (Form1.IBQuery1.SQL.Text);
          IBQuery1.Open; // abrir query

[[egostar]]

Hola

Es curiosa la forma como agregas el texto a tu Query, bueno, eso es estilo de cada quien, no problema.

Yo alcanzo a ver unos detalles, te hace falta agregar espacios en las lineas que te muestro, checa como lo tienes y compara como te lo sugiero.

Código Delphi [-]
          IBQuery1.SQL.Add('SELECT ');
          IBQuery1.SQL.Add('servicios.`status`,');
          //:::::::::::
          IBQuery1.SQL.Add(' FROM ');
          IBQuery1.SQL.Add('servicios ');
          IBQuery1.SQL.Add('WHERE ');
          IBQuery1.SQL.Add('servicios.nombre = '+QuotedStr(Edit1.Text));

Salud OS

[vroa74]

muchas gracisa por la ayuda

me estoy topando con otro problema
como puedo buscar por ejemplo a todos los que se llama jose
si en el campo nombre algunos se llaman jose angel, o jose luis ???
como podria ser la sentencias

Código Delphi [-]
         IBQuery1.SQL.Add('NOMBRE LIKE '+QuotedStr(Edit3.Text));

Tengo dudas si lleva otro prametro pues no me esta respetando los nombres dobles por ejemplo Jose Luis no lo intrege en la busqueda

[[felipe88]]

Usa un like...

[ninguno]

Hola

Prueba con

Código Delphi [-]
IBQuery1.SQL.Add('NOMBRE LIKE ' + QuotedStr('%' + Edit3.Text + '%'));