Ver Mensaje Individual
  #2  
Antiguo Hace 4 Días
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 9.868
Reputación: 27
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Cuando en la consulta SQL sólo hay involucrada una tabla, de modo que no debería haber concurrencia con los nombres de columnas, no es necesario calificarlos:
Código SQL [-]
SELECT  DIRECCION, CUIT_CLIENTE, NOTAS
FROM CLIENTE CL
WHERE ESTADO = 1 AND (APELLIDO LIKE :APE OR NOMBRE LIKE :NOM)

Y desde Delphi:
Código Delphi [-]
procedure Tfcliente.BCbuscarClick(Sender: TObject);
begin
  if ECcliente.text = '' then exit
  else
  begin
    fmodulo.qCliente.SQL.Clear;
    fmodulo.qCliente.SQL.Add('SELECT DIRECCION, CUIT_CLIENTE, NOTAS');
    fmodulo.qCliente.SQL.Add('FROM CLIENTE WHERE ESTADO = 1 AND');
    fmodulo.qCliente.SQL.Add('(APELLIDO LIKE :APE OR NOMBRE LIKE :NOM)');
    fmodulo.qCliente.ParamByName('APE').AsString := tu_EditApellido.Text + '%';
    fmodulo.qCliente.ParamByName('NOM').AsString := tu_EditNombre.Text + '%';
    fmodulo.qCliente.Open;
  end;
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita