como mostrar un query en un dbgrid?

[carlosjaraba]

hola gente de clubdelphi

estoy creando una aplicacion en delphi pero necesito mostrar una tabla de una base de datos, !pero no mostrar todos los registros!, solo necesito que aparezcan los registros que concuerden con una palabra que voy a ir escribiendo en un edit

por ejemplo

escribo lamp

y me muestra todo lo que contenga lamp

lampara fluorecente
lampara para fotocopiadora
lampara para escaner

etc

pero no se como mostrar solo el query

tengo un adoconection, un adotable, un adoquery, un datasource y un dbgrid

si conecto el dbgrid al datasource salen todos los registros, pero eso no es lo que quiero, solo quiero mostrar lo que contenga lo que se valla escribiendo en el edit.

cordialmente
carlos german jaraba camacho

posdata, la tabla solo tiene una columna que se llama articulo. lo he hecho asi para simplificar pero una vez capte la idea lo tratare de hacer algo mas complejo y si no me sale pues a preguntar! feliz dia

se me olvidaba uso sql 2005 para almacenar la base de datos!

[ecfisa]

Hola Carlos y bienvenido a los foros de Club Delphi.

Como a todos los que escriben en los foros por vez primera, te invitamos a que leas nuestra Guía de estilo

Sobre tu consulta, revisá este enlace

Un saludo.

[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 Notevi]

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!!