No puedo filtrar por dos campos

[[egostar]]

Empezado por bLiNdEN

ok mira:

tengo varios campos que se llaman: campo2,campo3,campo4,campo5 respectivamente y lo que quiero hacer es filtrar lo que viene en el campo4 para despues aplicar otro filtro para campo5 pero que sin se quite el filtro de campo4.....por ejemplo:

aplico filtro a campo4 (filtro Edit1 funciona correctamente)

selecciona: Ing. Industrial

aplico filtro a campo5 (filtro Edit2 ??)

seleccion: Quimica I

por lo que quedaria en la tabla Ing. Indutrial Quimica blabalbal


no se si me de a entender gracias

Ok, ya esta mejor.

Lo que tu necesitas es un ordenamiento por el campo4 y despues por el campo5, pero eso no lo vas a poder hacer con una Tabla, que me imagino estas usando, para esos menesteres necesitas una sentencia SQL mas o menos de esta forma

Código Delphi [-]
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Text := 'select * from TABLA '+
                   ' where CAMPO4 = '+QuotedStr(Edit1.Text)+
                   ' order by CAMPO4,CAMPO5';
Query1.Open;

A ver si así obtienes lo que necesitas.

Salud OS

[bLiNdEN]

Una molestia del tamaño del mundo no me podrias explicar paso por paso??

eske soy novato en bases de datos, mira:

estoy jalando el archivo a una DBgrid desde microsoft access y de ahi empieza el show asi es...eske la vvd no se a que te refieres con tabla


muchas gracias y perdon por la molestia

[[egostar]]

Empezado por bLiNdEN

Una molestia del tamaño del mundo no me podrias explicar paso por paso??

eske soy novato en bases de datos, mira:

estoy jalando el archivo a una DBgrid desde microsoft access y de ahi empieza el show asi es...eske la vvd no se a que te refieres con tabla


muchas gracias y perdon por la molestia

Puedes detellarnos que componentes estas usando para conectar a tu base access?

Salud OS

[bLiNdEN]

TADOQuery=ADOQ(nombre)
TDataSetProvider=DSProvider(nombre)
TClientDataSet=ClientDataSet1(nombre)
TDataSource=DataSource1(nombre)

ClientDataSet1: TClientDataSet;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Edit1: TEdit;
Label2: TLabel;
StatusBar1: TStatusBar;
ADOQ: TADOQuery;
DSProvider: TDataSetProvider;
lblData: TLabel;
cbFiltrar: TCheckBox;


parte del codigo:

[/delphi]

procedure TForm1.Edit1Change(Sender: TObject);
begin

// filtrar o localizar
if (not cbFiltrar.Checked) then begin
// Busqueda incremental
ClientDataSet1.Locate('Campo4', Edit1.Text, [loCaseInsensitive, loPartialKey]);
Exit;
end
else begin

// esto sería para filtrar
if (Edit1.Text = '') then
begin
ClientDataSet1.Filtered := false;
ClientDataSet1.Filter := '';
end
else begin
ClientDataset1.Open;
ClientDataSet1.Filter := ('Campo4 =' + QuotedStr(Edit1.Text) );
ClientDataSet1.Filtered := True;


end;
end;
end;
procedure TForm1.FormShow(Sender: TObject);
var
path:string;
begin

Path := ExtractFilePath(Application.ExeName) + 'Data11.xml';

// Existe el XML?
if FileExists(path) then begin
ClientDataSet1.LoadFromFile(path);
lbldata.Caption := ExtractFileName(path);
Exit;
end;

// Probar con el MDB
Path := ExtractFilePath(Application.ExeName) + 'Data.MDB';
// Existe el MDB?
if FileExists(path) then begin
ClientDataSet1.ProviderName := 'DSProvider';
ADOQ.Open;
ClientDataSet1.Active := True;
ADOQ.Close;
ClientDataSet1.ProviderName := '';
lbldata.Caption := ExtractFileName(path);
Exit;
end;

// Si llega aqui es que no existe ninguno de los dos.
MessageDlg('No se ha encontrado ninguna fuente de datos; Data.XML o Data.MDB', mtWarning, [mbOK], 0);


end;


muchisimas gracias..

[bLiNdEN]

alguien que me pueda ayudar???? ya lo intente de muchisimas formas y nadae perdon por la molestia pero la verdad no se mucho de bases de datos es la primera vez que hago una

gracias

[RebeccaGL]

La condición esta mal. Ponle >= y <=

Código Delphi [-]
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
// filtrar o localizar
if (not cbFiltrar.Checked) then begin
// Busqueda incremental
  ClientDataSet1.Locate('Campo4', Edit1.Text, [loCaseInsensitive, loPartialKey]);
Exit;
end
else begin
// esto sería para filtrar
  if (Edit1.Text = '') then 
    begin
      ClientDataSet1.Filtered := false;
      ClientDataSet1.Filter := '';
   end
else 
  begin
    try
      ClientDataset1.Open;
      ClientDataSet1.Filter := '(Campo4 >=' +QuotedStr(Edit1.Text) +') and (Campo5 <= '+QuotedStr(Edit2.Text)+ ')';
      ClientDataSet1.Filtered := True;
    except
      ClientDataSet1.Filtered := false;
      ClientDataSet1.Filter := '';
    end;
  end;
end;
end;

Te Explico si es (igual Edit1.text) no podra ser (igual a edit2.text)
Asi es que lo que tienes que hacer es, poner entre rangos osea:

de 1 a 100 solo quiero de 10 a 20 seria asi

if (>= 10) and (<= 20) then ...

Lo mismo con los flitros.

Saludos