busqueda sql like

[douglas]

buenas chicos, perdon por seguir molestando aqui, mi duda es ahora, bueno se usar like, y me estrucutre el siguiente codigo

Código Delphi [-]
procedure TForm7.Button1Click(Sender: TObject);

begin
     adoquery1.Close;
     adoquery1.SQL.Add('select * from merca ');
     adoquery1.Open;
     adoquery1.SQL.Add(' where descripcion like %cosa%');
     adoquery1.Parameters.ParamByName('cosa').Value:=edit1.Text;
end;

supuestamente para que me busque lo que diga en el edit1, pero no me funciona, me tira un error, de ea acess violation. perdon de antemano les agradezco todo tipo de ayudita

[[Caral]]

Hola
Y asi?

Código Delphi [-]
procedure TForm7.Button1Click(Sender: TObject);

begin
     adoquery1.Close;
     adoquery1.SQL.Add('select * from merca ');
     adoquery1.Open;
     adoquery1.SQL.Add(' where descripcion like :cosa');
     adoquery1.Parameters.ParamByName('cosa').Value:=edit1.Text;
end;

Saludos

[[Caral]]

Hola
Perdon, esta rapidez cuesta.
hay otro error.

Código Delphi [-]
procedure TForm7.Button1Click(Sender: TObject);

begin
     adoquery1.Close;
     adoquery1.SQL.Add('select * from merca ');
     adoquery1.SQL.Add(' where descripcion like :cosa');
     adoquery1.Open;
     adoquery1.Parameters.ParamByName('cosa').Value:=edit1.Text;
end;

Saludos

[[enecumene]]

Hola Caral, no crees que el parambyname debe ir antes del open? digo eso creo yo.

Saludos

[douglas]

perdon pero me da un error de expresion de la consulta like
y me dice select * from merca

[[Caral]]

Hola
Hoy estas quisquilloso. y ademas me pisas los talones
Amigo, da igual, Delphi lo entiende antes o despues, Pruebalo y veras, es curioso, pero asi es.
Saludos

[[enecumene]]

Empezado por Caral

Hola
Hoy estas quisquilloso. y ademas me pisas los talones
Amigo, da igual, Delphi lo entiende antes o despues, Pruebalo y veras, es curioso, pero asi es.
Saludos

Mis Disculpas

[[Caral]]

Hola
Perdona pero hoy estoy muy lento.
Por supuesto que te va a dar error.
Como pretendes que todo el contenido sea igual al edit.

Código Delphi [-]
Select * from

Lo logico es que sea igual a un campo:

Código Delphi [-]
Select TuCampo From TuTabla

No se, me imagino, verdad?
Saludos

[[enecumene]]

Empezado por douglas

perdon pero me da un error de expresion de la consulta like
y me dice select * from merca

podrias especificar un poco mas cual es el error, o sea, copia y pega aqui el error que te da.

SAludos.

[[enecumene]]

Empezado por Caral

Hola
Perdona pero hoy estoy muy lento.

Diantres lento donde? estas como flash!!!

[[Caral]]

Hola
Para nada amigo, es una broma lo de quisquilloso, lo que analizaste es totalmente logico, en algun momento se debatió ese mismo punto en un hilo.
Saludos

[douglas]

este es el codigo que tengo, ahora no me da el error pero no me funciona no me muiestra nada, ademas tomando en cuenta lo que comento caral, que el select * from merca no esta mal, si se lo quitamos solamente mostrar en el grid el campo descripcion, lo acabo de comprobar, el codigo es este, pero igual y el grid solamente carga el nombre de los campos, pero no lo almacenado.

Código Delphi [-]
procedure TForm6.Button2Click(Sender: TObject);
begin

     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('select descripcion from merca ');
     adoquery1.SQL.Add(' where descripcion like :cosa');
     adoquery1.Open;
     adoquery1.Parameters.ParamByName('cosa').Value:=edit1.Text;
end;

ahora si le dejamos el select * from merca me muestra todos los campos de la tabla que es lo que necesito, pero igual sin los valores almacenados, el codigo esta asi

Código Delphi [-]
procedure TForm6.Button2Click(Sender: TObject);
begin

     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('select * from merca ');
     adoquery1.SQL.Add(' where descripcion like :cosa');
     adoquery1.Open;
     adoquery1.Parameters.ParamByName('cosa').Value:=edit1.Text;
end;

perdon que los ponga en molestias chicos, pero basicamente lo que necesito es buscar un producto, que que sea locaseinsensitive o algo asi o lopartialkey, como puedo utilizar esto para buscar en mi base de datos.

perdon y gracias de ante mano chicos

[[Caral]]

Hola
Cortemos esto y probemos otra vez.

Código Delphi [-]
procedure TForm6.Button2Click(Sender: TObject);
begin

     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('select * from merca ');
     adoquery1.SQL.Add(' where descripcion like' + Edit1.text);
     adoquery1.Open;
end;

A ver que pasa.
Saludos

[[Caral]]

Hola
Voy a comentar algo adicional, que me parece interesante.
Value= descripcion?
Normalmente la descripcion es String
Osea:
AsString en vez de value.
No se, digo yo.
Saludos

[[enecumene]]

Muy buena opcion Caral.

[douglas]

[IMG]file:///C:/DOCUME%7E1/douglas/CONFIG%7E1/Temp/moz-screenshot-1.jpg[/IMG][IMG]file:///C:/DOCUME%7E1/douglas/CONFIG%7E1/Temp/moz-screenshot-2.jpg[/IMG]me da el siguiente erro con ese codigo

error de sintaxis (falta operador) en la expresionta de consultas liketintas,
al menos la palabra tintas salio del edit1.text que fue la palabra que escribir en el edit

[[enecumene]]

Código Delphi [-]
procedure TForm6.Button2Click(Sender: TObject);
begin

     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('select * from merca ');
     adoquery1.SQL.Add(' where descripcion like '+Quotedstr(Edit1.text)+';
     adoquery1.Open;
end;

[douglas]

el valor tintas no tiene parametros predeterminados es otro error con el codigo asi

Código Delphi [-]
procedure TForm6.Button2Click(Sender: TObject);
begin

     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('select * from merca ');
     adoquery1.SQL.Add(' where descripcion like ' + Edit1.text);
     adoquery1.Open;
end;

[[Caral]]

Hola
Access, como me gusta, te pone interesantes retos.

error de sintaxis (falta operador)

Código Delphi [-]
procedure TForm6.Button2Click(Sender: TObject);
begin

     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('select * from merca ');
     adoquery1.SQL.Add(' where descripcion like '''+Edit1.Text+ '''');
     adoquery1.Open;
end;

Saludos

[douglas]

perdon chicos, me muestra los campos, pero no me muestra lo valores que deberian estar en los campos, que puedo hacer chicos, perdon la insistencia