Foros Club Delphi - Ver Mensaje Individual

[egostar] · #2 27-02-2008

Hola bienvenido al Club,

Código Delphi [-]procedure TForm3.btnbuscarClick(Sender: TObject);
begin
  Query1.Close;
  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;

Si los campos están en ese órden. Para un SELECT no necesitas ExecSQL, es Open.

Usa las etiquetas para el código, ves la diferencia?

Salud OS

Edito: Aunque no se si MySQL soporte el LIKE de esa forma, seguro alguien nos dará la respuesta correcta.