Ver Mensaje Individual
  #4  
Antiguo 12-07-2013
Lenny Lenny is offline
Miembro
 
Registrado: jun 2007
Posts: 161
Reputación: 17
Lenny Va por buen camino
Talking

Sorry, cometí el error de no adjuntar el código que uso hasta ahora y mencionar con que BD trabajo.

Así es como hago als consultas normalmente:

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 + '%') + ')' +
        // Añadimos el orden
        STRORDER;
   end;
   BDatos.QContactoCliente.Open;
end;

Funciona perfecto, si no mal recuerdo lo saque de un ejemplo de esta misma pagina (no recuerdo a nombre de quien por los créditos)...

Utilizo MySQL y los conectores ZEOS, vere si puedo usar parte de los códigos que me dieron, quedo atento a cualquier comentario y gracias.
Responder Con Cita