Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Comodin de consulta en interbase (https://www.clubdelphi.com/foros/showthread.php?t=19900)

perillan 30-03-2005 19:40:20

Comodin de consulta en interbase
 
En este tipo de consulta quisiera ponerle un comodin al principio y final del texto a buscar(%) para el resultado sea un valor que contenga los caracteres tecleados.
Gracias anticipadas. Un saludo

procedure TFormbases.btnSearchClick(Sender: TObject);
begin
dm.Databases.Close;
dm.Databases.SelectSQL.Text :=
'select c.articlave, c.nombre, c.ncodigo,c.nnoc, c.nmatricula, c.controlz, c.fechaalta ' +
' from ARTICULOS c ' +
' where NOMBRE starting with '''' +
UpperCase (edSearch.Text) + '''';
dm.Databases.Open;
end;



Mucas gracias. He utilizado "containing" y funciona perfectamente.
Un saludo. Agustin.

Casimiro Notevi 30-03-2005 23:07:26

Creo entender que quieres buscar un nombre que contenga una cadena, ejemplo:
"AR" y que aparezcan las "cuchARas", el "ARroz", los "cARamelos", etc

Si es así, no uses "starting with", usa "containing", y que además te lo busca esté en mayúsculas o minúsculas.
En vez de:
Código:

  where NOMBRE starting with '''' +UpperCase (edSearch.Text) + '''';
puedes escribir:
Código:

where NOMBRE containing ''''+edSearch.Text +'''';

vtdeleon 30-03-2005 23:19:49

Saludos.
Cita:

Empezado por Casimiro Notevi
puedes escribir:
Código:

where NOMBRE containing ''''+edSearch.Text +'''';

Tantos apostrofes me confunden, mejor utiliza la funcion QuotedStr() que agrega apostrofe al principio y final.:D
Ejemplo
Código Delphi [-]
where NOMBRE containing QuotedStr(edSearch.Text);
Bye


La franja horaria es GMT +2. Ahora son las 08:18:26.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi