filtrar registros en delphi

[the walrus]

Empezado por ecfisa

Hola.

Para orientarnos mejor sobre el problema, ¿ podrías poner la parte del código donde aplicas el filtro y la parte donde lo borras ?

Saludos

el codigo que utilizo es el mismo publicaste y con respecto de borrar el filtro me refiero cuando realizo una busqueda en el edit1 por ejemplo busco el registro con nombre 'pepe' realiza la búsqueda pero cuando borro por completo del edit1 me aparece el error que te comente antes.

[ecfisa]

Hola.

Ahora entiendo..., podrías hacer:

Código Delphi [-]
...
var
  DS: TDataSet;
begin
  if Edit1.Text > '' then
  begin
    DS := DataSource1.DataSet;
    DS.Filtered := False;
    DS.Filter   := 'NOMBRE LIKE ' + QuotedStr(Edit1.Text + '%');
    DS.Filtered := True;
  end;  { ( opcional ) 
  else
    MessageBeep(MB_ICONERROR); }
end;

Saludos

[the walrus]

lo pude solucionar de esta forma

Código Delphi [-]
ADOQuery1.Close;
    ADOQuery1.SQL.Text :='Select * FROM mitabla WHERE nombre like '+ QuotedStr(edit1.text+'%');
    ADOQuery1.Open;
    ADOQuery1.Filtered := true;

gracias por sus respuestas

[Caminante]

Hola


Si vas a filtrar usando SQL ya no es necesario usar la propiedad filter.


Saludos

[ecfisa]

Hola.

Empezado por the walrus

lo pude solucionar de esta forma

Código Delphi [-]
ADOQuery1.Close;
    ADOQuery1.SQL.Text :='Select * FROM mitabla WHERE nombre like '+ QuotedStr(edit1.text+'%');
    ADOQuery1.Open;
    ADOQuery1.Filtered := true;

gracias por sus respuestas

En ese caso sería mejor que parametrices la consulta,

Código Delphi [-]
  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'SELECT * FROM MITABLA WHERE NOMBRE LIKE :PARAM';
  ADOQuery1.Parameters.ParamByName('PARAM').Value := Edit1.Text + '%';
  ADOQuery1.Open;

para evitar la inyección SQL.

Saludos

[the walrus]

Empezado por ecfisa

Hola.

Ahora entiendo..., podrías hacer:

Código Delphi [-]
...
var
  DS: TDataSet;
begin
  if Edit1.Text > '' then
  begin
    DS := DataSource1.DataSet;
    DS.Filtered := False;
    DS.Filter   := 'NOMBRE LIKE ' + QuotedStr(Edit1.Text + '%');
    DS.Filtered := True;
  end;  { ( opcional ) 
  else
    MessageBeep(MB_ICONERROR); }
end;

Saludos

tengo una duda tdataset es un adodataset

[ecfisa]

Hola.

Empezado por the walrus

tengo una duda tdataset es un adodataset

TDataSet es la clase base para todos los componentes de acceso a datos: TDataSet.

Es decir que cualquiera (o todas) de las siguientes asignaciones son válidas:

Código Delphi [-]
...
var
  DS : TDataSet;
begin
  // BDE
  DS := Query1;
  DS := Table1;
  // ADO
  DS := ADOQuery1;
  DS := ADOTable1;
  // IBX
  DS := IBQuery1;
  DS := IBDataSet1;
  // dbExpress
  DS := SQLQuery1;
  DS := SQLTable1;
  ...

Saludos

[Casimiro Notevi]

Más claro, imposible

[[ElDioni]]

Hola,


en otro hilo ya se estuvo comentando como hacer consultas a los datos de una hoja excel. Puede que el filter te funcione si lo cambias y lo pones de la siguiente manera.

Código Delphi [-]
Adoquery1.Filtered:=false;
Adoquery1.Filter:='[Hoja1$].[Nombre] LIKE '+quotedstr(Edit1.Text+'%');
Adoquery1.Filtered:=true;

Saludos.

[the walrus]

Empezado por ecfisa

Hola.


TDataSet es la clase base para todos los componentes de acceso a datos: TDataSet.

Es decir que cualquiera (o todas) de las siguientes asignaciones son válidas:

Código Delphi [-]
...
var
  DS : TDataSet;
begin
  // BDE
  DS := Query1;
  DS := Table1;
  // ADO
  DS := ADOQuery1;
  DS := ADOTable1;
  // IBX
  DS := IBQuery1;
  DS := IBDataSet1;
  // dbExpress
  DS := SQLQuery1;
  DS := SQLTable1;
  ...

Saludos

si, gracias por el concepto y el material
tengo un pequeño problema se trata de filtrar registros mi problema es el siguiente cuando escribo una letra en el edit1 por ejemplo la letra 'c' me muestra los registros con la letra c pero cuando borro la letra del edit1 la grilla no me muestra todos los registros el código que uso es este

Código Delphi [-]
begin
  if Edit1.Text > '' then
  begin
     datasource.DataSet.Filtered := false;
     datasource.DataSet.Filter := 'nombre like '+ QuotedStr(edit1.text+'%');
     datasource.DataSet.Filtered := true;
  end;


end;

en este caso estoy intentando filtrar registros de tres tablas

Empezado por Casimiro Notevi

Más claro, imposible

(y)

Empezado por ElDioni

Hola,


en otro hilo ya se estuvo comentando como hacer consultas a los datos de una hoja excel. Puede que el filter te funcione si lo cambias y lo pones de la siguiente manera.

Código Delphi [-]
Adoquery1.Filtered:=false;
Adoquery1.Filter:='[Hoja1$].[Nombre] LIKE '+quotedstr(Edit1.Text+'%');
Adoquery1.Filtered:=true;

Saludos.

cambie de gestor de base de datos ahora uso MS ACCESS

[[movorack]]

Entonces validas si el edit tiene valor.

Código Delphi [-]
if Length(Trim(Edit.text)) > 0 then
begin
  //Acá aplicas el filtro como ya te explicaron
end
else
  Dataset.Filtered := False;