SQL en componentes ADO

[Parsec]

Hola,

me ha salido este problema:
Esta instrucción en Tquery, funciona perfectamente:

Código Delphi [-]
 Buscar.Active := False;
     Texto1:='Select Paciente,Tratamiento,Fecha,Importe,Haber,Importefactura,Fracc, observaciones from visitas where UPPER(Paciente) LIKE'''+'%'+UpperCase(Edit1.Text) + '%'''';
     Buscar.SQL.Clear;
      Buscar.SQL.Add(texto1);
       Buscar.Active:=True;

Pero no funciona en TADOQuery, ¿sabéis que es lo que debo de cambiar?.

Saludos

[ginkaku]

Perdona...Que error te sale? cuando lo activas no ejecuta tu sentencia? Que colocaste en sus propiedades del AdoQuery?

[ecfisa]

Hola.

El primer error que te generará esa línea es: Unterminated string, no lo corrijo por que me duele la cabeza de solo pensar en tanta comilla...

Mas simple resulta usar la función QuotedStr:

Código Delphi [-]
  with ADOQuery1 do
  begin
    Close;
    SQL.Text := 'SELECT Paciente, Tratamiento, Fecha, Importe, Haber, Importefactura,' +
                'Fracc, observaciones FROM visitas WHERE UCASE(Paciente) LIKE ' +
                 QuotedStr('%' + UpperCase(Edit1.Text) + '%');
    Open;
  end;

Sin embargo es aconsejable que te acostumbres al uso de parámetros:

Código Delphi [-]
  with ADOQuery1 do
  begin
    Close;
    SLQ.Clear;
    SQL.Add('SELECT Paciente, Tratamiento, Fecha, Importe,');
    SQL.Add('Haber, Importefactura, Fracc, observaciones');
    SQL.Add('FROM visitas WHERE UCASE(Paciente) LIKE :PPACI');
    Parameters.ParamByName('PPACI').Value := '%' + UpperCase(Edit1.Text) + '%';
    Open;
  end;

Por último, cuando ejecutes la consulta, el segundo error lo provocará UPPER que deberás reemplazar por UCASE

Saludos.

[Parsec]

Empezado por ecfisa

Hola.

El primer error que te generará esa línea es: Unterminated string, no lo corrijo por que me duele la cabeza de solo pensar en tanta comilla...

Jajaja, y a mí!!!.

la primera me ha dado un error, pero la segunda opción ha funcionado!!! :

Código Delphi [-]
 with ADOQuery1 do
  begin
    Close;
    SLQ.Clear;
    SQL.Add('SELECT Paciente, Tratamiento, Fecha, Importe,');
    SQL.Add('Haber, Importefactura, Fracc, observaciones');
    SQL.Add('FROM visitas WHERE UCASE(Paciente) LIKE :PPACI');
    Parameters.ParamByName('PPACI').Value := '%' + UpperCase(Edit1.Text) + '%';
    Open;
  end;

, pero poniendo el texto del SQL directamente en la propiedad string del TADOQuery, si no tampoco, me sale un error de argumentos no válidos.

Solucionado, gracias Ecfisa.