[[egostar]]

Empezado por jasrgeo

Gracias por tu ayuda mi estimado egostar, funciono de maravilla el codigo
espero y muy pronto estar solucionando las dudas de los usuario al igual que tu.

Salu2.

Hola, pues que bien, solo que viendo de nuevo mi post hace falta que limpies el SQL del Query ya que si vuelves a ejecutar el proceso te dará un error.

Aquí el código completo

Código Delphi [-]
procedure TForm3.btnbuscarClick(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Clear; //Se limpia para una nueva consulta.
  Query1.SQL.Add('SELECT * FROM contactos WHERE nom_contacto LIKE '+QuotedStr(cbuscar.Text+'%'));
  Query1.Open;
  cnombre.text := Query1.Fields[0].AsString;
  capaterno.text := Query1.Fields[1].AsString;
  camaterno.text := Query1.Fields[2].AsString;
  ctelefono.text := Query1.Fields[3].AsString;
  cemail.text := Query1.Fields[4].AsString;
end;

Salud OS