Consulta e possivel?

Question

Estou usando essa consulta q1.SQL.Clear;    q2.Close;    q2.SQL.Clear;    q1.sql.Add(�Select * From tlbServExecutado Where Tecnico Like :Tec And DtaExe Between :Data1 And :Data2�);     q2.SQL.Add(�Sel...

Glauberms · Answer

N�o sei responder tudo mas pelo menos a parte referente � [b:9822a67935][i:9822a67935]�para exibir o resultado quando nao informar nada no parametro � Tec� �[/i:9822a67935][/b:9822a67935]. Quando o Edit que contem o valor do parametro [b:9822a67935]Tec[/b:9822a67935] n�o contiver valor substivua-o por [b:9822a67935]�[/b:9822a67935], assim o comando [b:9822a67935]like[/b:9822a67935] seguido de [b:9822a67935]�[/b:9822a67935] listar� todos os valores (igual o * para o DOS) e a consulta se dar� apenas nos outros par�metros.

Resumo:
if Edit1.Text = �� then param[0]:=�� else param[0]:=Edit1.Text;

Obs:
[b:9822a67935]�[/b:9822a67935] para SQL = [b:9822a67935]*[/b:9822a67935] para DOS
[b:9822a67935]_[/b:9822a67935] para SQL = [b:9822a67935]?[/b:9822a67935] para DOS

Espero que possam responder a outra parte de sua pergunta...

GlauberMS[/b]

Basilio.sp · Answer

Caro Jose,

Sim, � poss�vel executar esta estas duas consultas em uma �nica query, montando esta query do seguinte modo:

q1.Close;
q1.SQL.Clear;
q1.sql.Add(�Select * From tlbServExecutado,
Sum(tlbServExecutado.ValorServ) As Total,
Sum(tlbServExecutado.ValorTotl) As Gera
Where Tecnico Like :Tec And DtaExe Between :Data1 And :Data2�);
q1.Parameters.ParamByName(�Tec�).Value:=Edit1.Text;
q1.Parameters.ParamByName(�Data1�).Value:=MaskEdit1.Text;
q1.Parameters.ParamByName(�Data2�).Value:=Maskedit2.Text;
q1.Open;

Com rela��o � possibilidade de retornar valores, mesmo sem a passagem do par�metro TEC, siga a dica dada antes e, para garantir uma melhor organiza��o dos dados, acrescente a linha � GROUP BY TECNICO� logo ap�s o WHERE, que vai agrupar os dados por tecnico, em vez de gerar um total �nico, algo que seria bem coerente.

F�rum Consulta e possivel? #182274