Fórum Filtro SQL #321256
12/05/2006
0
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
Curtir tópico
+ 0
Responder
Posts
12/05/2006
Martins
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?
Responder
Gostei + 0
12/05/2006
Jonas_giron
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.
Responder
Gostei + 0
12/05/2006
Franthesco
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.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)