anghell77
14-05-2006, 07:29:11
Hola a todos los miembros....
Trabajando sobre Delphi7 Paradox7....
Estoy intentando hacer una búsqueda mediante un Edit (evento OnChange) que devuelva cualquier dato similar al caracter tecleado dentro de un campo especifico... algo similar a la manera que funciona el JUMP del Winamp....que regresa todas las canciones que contienen el caracter tecleado....
ahora esto aplicado a lo mio es.... TABLA= MEdicamentos, CAMPO de BUSQUEDA = Sustancia.... en el cual puede haber dentro de un registro "Pseudoefedrina",...en otro "Metamizol Sódico + Pseudoefedrina", entonces, empleo el codigo:
procedure TCons_Med.Edit2Change(Sender: TObject);
var
StrSQL:String;
begin
DataModule_Cons.Sustancia.Close;
StrSQL:='select *from Medicamentos where Sustancia Like '+QuotedStr(Edit2.Text+'%');
DataModule_Cons.Sustancia.SQL.Text:=StrSQL;
DataModule_Cons.Sustancia.Open;
end;
He intentado el codigo: Select *from Medicamentos where Sustancia like '%PSEUDOEFEDRINA%' (En este caso)....y funciona, pero si lo quiero agregar al OnChange del Edit de la siguiente manera:
StrSQL:='select *from Medicamentos where Sustancia Like %' + QuotedStr(Edit2.Text+'%');
Me devuelve error....Invalid use of Keyword Token Like.......
Al menos el SQL de la búsqueda ya esta....pero como lo implemento al Onchange del Edit??
esto debe devolver todos los que empiecen con la letra tecleada en el edit...pero busco que localice en cualquier parte del campo....
si alguien lo sabe lo agradezco mucho!!!
Gracias....
Trabajando sobre Delphi7 Paradox7....
Estoy intentando hacer una búsqueda mediante un Edit (evento OnChange) que devuelva cualquier dato similar al caracter tecleado dentro de un campo especifico... algo similar a la manera que funciona el JUMP del Winamp....que regresa todas las canciones que contienen el caracter tecleado....
ahora esto aplicado a lo mio es.... TABLA= MEdicamentos, CAMPO de BUSQUEDA = Sustancia.... en el cual puede haber dentro de un registro "Pseudoefedrina",...en otro "Metamizol Sódico + Pseudoefedrina", entonces, empleo el codigo:
procedure TCons_Med.Edit2Change(Sender: TObject);
var
StrSQL:String;
begin
DataModule_Cons.Sustancia.Close;
StrSQL:='select *from Medicamentos where Sustancia Like '+QuotedStr(Edit2.Text+'%');
DataModule_Cons.Sustancia.SQL.Text:=StrSQL;
DataModule_Cons.Sustancia.Open;
end;
He intentado el codigo: Select *from Medicamentos where Sustancia like '%PSEUDOEFEDRINA%' (En este caso)....y funciona, pero si lo quiero agregar al OnChange del Edit de la siguiente manera:
StrSQL:='select *from Medicamentos where Sustancia Like %' + QuotedStr(Edit2.Text+'%');
Me devuelve error....Invalid use of Keyword Token Like.......
Al menos el SQL de la búsqueda ya esta....pero como lo implemento al Onchange del Edit??
esto debe devolver todos los que empiecen con la letra tecleada en el edit...pero busco que localice en cualquier parte del campo....
si alguien lo sabe lo agradezco mucho!!!
Gracias....