Filtro SQL
Amigos, estou usando a seguinte função para fazer uma consulta sql:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c: String;
begin
Query1.Close;
Query1.SQL.Clear;
a:=´Select * From CASOSI ´;
b:=´Where Municipio Like:Consulta ´;
C:=´Order By Municipio´;
Query1.SQL.Add(a+b+c);
Query1.Params[0].AsString;
Query1.ParamByName(´Consulta´).AsString:=´´+´¬´+ComboBox1.Text+´¬´;
Query1.Open;
Ai estou fazendo um filtro por municipio. Agora gostaria de, dentro deste filtro, fazer um outro, como por exemplo, os casos registrados em janeiro neste municipio.
Como colocar um novo parametro nesta minha consulta? Pois tenho que fazer vários filtros...
Filtrar por municipio, mes, animal... Para saber, por exemplo, quantos casos naquele municipio, num determinado mes, transmitido por qual animal.
Não sei se fui claro... Mas estou precisando muito de dicas e sugestões.
Desde já agrdeço!
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c: String;
begin
Query1.Close;
Query1.SQL.Clear;
a:=´Select * From CASOSI ´;
b:=´Where Municipio Like:Consulta ´;
C:=´Order By Municipio´;
Query1.SQL.Add(a+b+c);
Query1.Params[0].AsString;
Query1.ParamByName(´Consulta´).AsString:=´´+´¬´+ComboBox1.Text+´¬´;
Query1.Open;
Ai estou fazendo um filtro por municipio. Agora gostaria de, dentro deste filtro, fazer um outro, como por exemplo, os casos registrados em janeiro neste municipio.
Como colocar um novo parametro nesta minha consulta? Pois tenho que fazer vários filtros...
Filtrar por municipio, mes, animal... Para saber, por exemplo, quantos casos naquele municipio, num determinado mes, transmitido por qual animal.
Não sei se fui claro... Mas estou precisando muito de dicas e sugestões.
Desde já agrdeço!
Franthesco
Curtidas 0
Respostas
Martins
12/05/2006
Query1.Close; Query1.SQL.Clear; a:=´Select * From CASOSI ´; b:=´Where Municipio Like:Consulta and condicao=:parametro and condicao2=:parametro2´; C:=´Order By Municipio´; Query1.SQL.Add(a+b+c); Query1.Params[0].AsString; Query1.ParamByName(´Consulta´).AsString:=´´+´¬´+ComboBox1.Text+´¬´; ... Query1.Open;
Dá para ter um idéia?
GOSTEI 0
Jonas_giron
12/05/2006
simplifica um pouco isso ai..
procedure TForm1.Button1Click(Sender: TObject);
begin
QrConsulta.Close;
QrConsulta.Sql.Clear;
QrConsulta.Sql.Add(´Select * from CASOSI Where Municipio =:Muni And Mes =:Me And Animal =:Ani´);
QrConsulta.ParamByName(´Muni´).Value := ComboBox1.Text; //parametro do Municipio
QrConsulta.ParamByName(´Me´).Value := ComboBox2.Text; //parametro do mes
QrConsulta.ParamByName(´Ani´).Value := ComboBox3.Text; //parametro do Animal
QrConsulta.Open;
end;
end.
procedure TForm1.Button1Click(Sender: TObject);
begin
QrConsulta.Close;
QrConsulta.Sql.Clear;
QrConsulta.Sql.Add(´Select * from CASOSI Where Municipio =:Muni And Mes =:Me And Animal =:Ani´);
QrConsulta.ParamByName(´Muni´).Value := ComboBox1.Text; //parametro do Municipio
QrConsulta.ParamByName(´Me´).Value := ComboBox2.Text; //parametro do mes
QrConsulta.ParamByName(´Ani´).Value := ComboBox3.Text; //parametro do Animal
QrConsulta.Open;
end;
end.
GOSTEI 0
Franthesco
12/05/2006
Amigos,
Gostaria de agradecer as dicas. Foram de grande valia... Com isto, consegui continuar o meu serviço.
Mais uma vez, obrigado!!!
Abraços,
Franthesco Guarda.
Gostaria de agradecer as dicas. Foram de grande valia... Com isto, consegui continuar o meu serviço.
Mais uma vez, obrigado!!!
Abraços,
Franthesco Guarda.
GOSTEI 0