consulta sobre busqueda...

[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.

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]

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]

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]

Perdona Casimiro, pero es que Notevi.

Un Saludo.

[Casimiro Notevi]

Empezado por marcoszorrilla

Perdona Casimiro, pero es que Notevi.

Un Saludo.

jajaja, es que soy muy pequeñito

[fergape]

gracias Casimiro notevi y marcosZorrilla... era eso!