como mostrar un query en un dbgrid?

[MartinS]

Carlos: creo que el datasource debe hacer referencia al ADOQuery, no al ADOTable

yo uso interbase y los componentes son similares. En mi caso la busqueda parcial la realizo asi:

Buscar es un IBQuery
Ape es la variable que toma el valor del TEdit e incluyo las propiedades Upper para que no diferencie entre mayusculas y minusculas.... ahh el #39 es la ' ;

Código Delphi [-]
Buscar.sql.clear
Buscar.SQL.Add('SELECT ID,NHIST,APELLIDOS,NOMBRE,NDOC,FULTCONSULTA FROM PACIENTES where Upper(APELLIDOS) like '+#39+'%'+UpperCase(Ape)+'%'+#39;
Buscar.active := true;

En tu caso seria la instruccion SQL:

Código Delphi [-]
     Select articulo FROM NOMBRE_TABLA where Upper(Articulo) like ''%UpperCase('lamp')%"

el like es para que busque parcialmente.

Espero haberte ayudado y mas aun haber entendido tu pregunta.. Saludos

[Casimiro Noteví]

Bienvenido a clubdelph, MartinSi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración.

Recuerda poner etiquetas al código, ejemplo:



.

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