Consulta 1 Edit a 2 Columnas de una Tabla

[Lenny]

Gracias estimados, dando vueltas con sus comentarios y códigos aplicándolo a lo que tenia resulto perfecto y quedo así:

Código Delphi [-]
procedure TClientes.Edit2Change(Sender: TObject);
const
 // suponiendo que esta sea tu consulta
 STRSQL = 'Select * from CONTACTOCLIENTE ';
 STRORDER = ' ORDER BY NOMBRES';
begin
   BDatos.QContactoCliente.Close;
   // Está vacío
   if (Edit2.Text = '') then begin
     BDatos.QContactoCliente.SQL.Text := STRSQL;
   end
   else begin
     // montamos la sql
     BDatos.QContactoCliente.SQL.Text := STRSQL +
        // Añadimos el WHER
        ' WHERE Upper(NOMBRES) LIKE Upper(' + QuotedStr('%' + Edit2.Text + '%') + ')' +
            'or Upper(APELLIDO) LIKE Upper(' + QuotedStr('%' + Edit2.Text + '%') + ')' +
        // Añadimos el orden
        STRORDER;
   end;
   BDatos.QContactoCliente.Open;
end;

Muchas gracias!!!

[olbeup]

Hola Lenny,

Me alegra que te haya funcionado correctamente.

Un saludo.