Anónimo
Consultas delphi
Hola, tengo creado un bdgrid conectado a una base de datos, supongamos que registra nombres de empresa con su dirección, teléfono, etc... Y quiero realizar una consulta por nombre incompleto de las empresas, ejemplo si pongo una 'P' que me saquen todas las que contengan una p en el nombre. ¿Qué código debería de poner en el 'dbedit' que he creado para esa tipo de consulta?
Gracias.
Gracias.
1 respuesta
Respuesta de itcrews
1
En el evento onChange del Edit donde digitaran el texto a buscar
procedure TForm1.Edit2Change(Sender: TObject);
var
ssql: string ;
begin
ssql := 'select * from Persona where nombre like('+ #39+'%' + edit2.Text +'%'+ #39+') Or apellido1 like('+ #39+'%' + edit2.Text +'%'+ #39+') Or apellido2 like('+ #39+'%' + edit2.Text +'%'+ #39+')';
ClientDataSet1.Active:= false ;
SQLQueryEvertec1.DBExecute(ssql) ;
ClientDataSet1.Active:=true;
end;
Este ejemplo es de una tabla que se llama persona(cedula, nombre, apellido1, apellido2), y realiza la búsqueda por similitud en cualquier de los campos nombre, apellido1o apellido2...
procedure TForm1.Edit2Change(Sender: TObject);
var
ssql: string ;
begin
ssql := 'select * from Persona where nombre like('+ #39+'%' + edit2.Text +'%'+ #39+') Or apellido1 like('+ #39+'%' + edit2.Text +'%'+ #39+') Or apellido2 like('+ #39+'%' + edit2.Text +'%'+ #39+')';
ClientDataSet1.Active:= false ;
SQLQueryEvertec1.DBExecute(ssql) ;
ClientDataSet1.Active:=true;
end;
Este ejemplo es de una tabla que se llama persona(cedula, nombre, apellido1, apellido2), y realiza la búsqueda por similitud en cualquier de los campos nombre, apellido1o apellido2...