Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   consulta sobre busqueda... (https://www.clubdelphi.com/foros/showthread.php?t=32333)

fergape 02-06-2006 14:53:32

consulta sobre busqueda...
 
tengo un edit y un DBGrid, la idea es que al poner una letra en el edit me busque automaticamente en el DBGrid, con referencia a esa letra el problema es que quiero que me busque con la primer letra y no con las palabras que contienen esa letra. si pongo a me pone todas las palabras que contienen una y la idea seria de que me muestre las palabras que empiecen con A y asi sucesivamente.... bueno les pongo el codigo que lo saque de este foro, que me sirvió bastante.

Código Delphi [-]
const
  STRSQL = 'SELECT * FROM items';
begin
  adoQuery1.Close;
  if (Edit1.Text = ' ') then
  begin
    AdoQuery1.SQL.Text := STRSQL;
  end
  else
  begin
    adoQuery1.SQL.Text := STRSQL + ' WHERE nombre LIKE ' + QuotedStr('%' + Edit1.Text + '%');
  end;
  adoQuery1.Open;

Casimiro Notevi 02-06-2006 14:56:58

Cita:

Empezado por fergape
tengo un edit y un DBGrid, la idea es que al poner una letra en el edit me busque automaticamente en el DBGrid, con referencia a esa letra el problema es que quiero que me busque con la primer letra y no con las palabras que contienen esa letra. si pongo a me pone todas las palabras que contienen una y la idea seria de que me muestre las palabras que empiecen con A y asi sucesivamente.... bueno les pongo el codigo que lo saque de este foro, que me sirvió bastante.

const
STRSQL = 'SELECT * FROM items';
begin
adoQuery1.Close;
if (Edit1.Text = ' ') then
begin
AdoQuery1.SQL.Text := STRSQL;
end
else
begin
adoQuery1.SQL.Text := STRSQL + ' WHERE nombre LIKE ' + QuotedStr('%' + Edit1.Text + '%');
end;
adoQuery1.Open;

creo que te refieres a quitar el primer '%':
adoQuery1.SQL.Text := STRSQL + ' WHERE nombre LIKE ' + QuotedStr('%' + Edit1.Text + '%');
adoQuery1.SQL.Text := STRSQL + ' WHERE nombre LIKE ' + QuotedStr( Edit1.Text + '%');

marcoszorrilla 02-06-2006 14:57:05

Código Delphi [-]
 const
 STRSQL = 'SELECT * FROM items';
 begin
 adoQuery1.Close;
 if (Edit1.Text = ' ') then
 begin
 AdoQuery1.SQL.Text := STRSQL;
 end
 else
 begin
 adoQuery1.SQL.Text := STRSQL + ' WHERE nombre LIKE ' + QuotedStr( Edit1.Text + '%');
 end;
 adoQuery1.Open;

Un Saludo.

marcoszorrilla 02-06-2006 14:57:55

Perdona Casimiro, pero es que Notevi.

Un Saludo.

Casimiro Notevi 02-06-2006 14:58:53

Cita:

Empezado por marcoszorrilla
Perdona Casimiro, pero es que Notevi.

Un Saludo.

jajaja, es que soy muy pequeñito :)

fergape 02-06-2006 16:02:45

gracias Casimiro notevi y marcosZorrilla... era eso!:)


La franja horaria es GMT +2. Ahora son las 18:30:04.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi