como mostrar un query en un dbgrid?

[carlosjaraba]

muchas gracias amigos, ya lo estoy probando cuando tenga un resultado les escribo a ver como me fue!!

[carlosjaraba]

buenos dias, el codigo que adapte es el siguiente

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text <> '' then
with ADOQuery1 do
begin
Close;
SQL.Text:= 'SELECT modelo, insumo, compatible FROM compatibilidad'+
' WHERE modelo LIKE '+QuotedStr(edit1.Text+'%');
Open;
end;

pero solo aparecen bien cuando comienzan por lo que estoy escribiendo. hasta ahi todo bien pero por la naturaleza de lo que estoy buscando es recomendable que en la busqueda aparezca lo que contenga no que estoy escribiendo no importa en que parte de la palabra lo contenga

osea para dar un ejemplo

si escribo az en el edit me tienen que aparecer

folder azul
pintura azul
folder az organizador

etc.

les agradeceria si me pueden ayudar hasta ahora ya es un avance porque antes no tenia ni idea de que hacer!!! gracias por compratir todo su conocimiento gratis Dios se lo multiplique!!

[Casimiro Noteví]

Tal y como te dije antes, recuerda poner el código entre etiquetas para que se vea correctamente, gracias.

[[oscarac]]

Empezado por carlosjaraba

buenos dias, el codigo que adapte es el siguiente

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text <> '' then
with ADOQuery1 do
begin
Close;
SQL.Text:= 'SELECT modelo, insumo, compatible FROM compatibilidad'+
' WHERE modelo LIKE '+QuotedStr(edit1.Text+'%');
Open;
end;

pero solo aparecen bien cuando comienzan por lo que estoy escribiendo. hasta ahi todo bien pero por la naturaleza de lo que estoy buscando es recomendable que en la busqueda aparezca lo que contenga no que estoy escribiendo no importa en que parte de la palabra lo contenga

osea para dar un ejemplo

si escribo az en el edit me tienen que aparecer

folder azul
pintura azul
folder az organizador

etc.

les agradeceria si me pueden ayudar hasta ahora ya es un avance porque antes no tenia ni idea de que hacer!!! gracias por compratir todo su conocimiento gratis Dios se lo multiplique!!

intenta esto en el where

Código SQL [-]
 
WHERE modelo LIKE '+QuotedStr('%' + edit1.Text+'%');

[MartinS]

Eso es, te esta faltando el % delante del Edit para que te muestre lo buscado en cualquier lugar. Repito en ocasiones es bueno usar las clausulas upper para SQL y UpperCase en Delphi para que convierta todo a mayusculas para realizar las comparaciones. Esto no modifica la visualizacion solo la busqueda ya que AS, aS, As o as son distintos para SQL. Saludos

[Casimiro Noteví]

Empezado por MartinS

.. ya que AS, aS, As o as son distintos para SQL. Saludos

¿A qué base de datos te refieres?

[MartinS]

ahhh... yo uso Firebird. y las busquedas las debo hacer asi porque solo me muestra los caracteres como los ingreso haciendo distincion entre mayusculas y minusculas (As es mi cadena de busqueda, no la instruccion). Pense que era para todas las bases que usan sentencias SQL igual...

[Casimiro Noteví]

También uso firebird, creo que no he entendido bien lo que has dicho, con "(As es mi cadena de busqueda, no la instruccion)"
¿Quiéres decir que si estás buscando 'as' con like, debes escribirlo tal y como esté grabado, mayúsculas o minúsculas?, entonces... sí, es así.
Hay una forma de buscar sin importar mayúsculas/minúsculas, es usando 'containing', ejemplo:

Código SQL [-]
select Codigo, Nombre, Telefono from tbClientes where Nombre containing 'as'

En ese caso devolverá todos los as, AS, As, aS, etc.