• 0
Sign in to follow this  
vms

pesquisa por quantidade de registro

Question

queria fazer uma pesquisa em um banco de dados

por quantidades de ocorrencias

ex:

campo1 (maquinas) A

campo2 (defeito) M

campo3 (data_defeito) A

qual a maquina que ocorre mais defeito registrado?

uso tabela paradox

Share this post


Link to post
Share on other sites

4 answers to this question

Recommended Posts

  • 0
queria fazer uma pesquisa em um banco de dados

por quantidades de ocorrencias

Voce pode fazer uma pesquisa por data ou por defeito

Ex:

Select * from Tabela

Where data_defeito >= :Data1 and data_defeito <= :Data2

Order by maquinas, data_defeito

Neste caso Data1 e Data2 são passados como parametros ( data nicial e data final da pesquisa )

Select * Tabela

Where defeito like :Def

Order by maquinas, data_defeito

Neste caso Def é passado como parametro ( descrição do defeito )

..........................................................................

qual a maquina que ocorre mais defeito registrado?

Como voce não colocou quantidade de defeitos mas sim descrição do defeito então use a select 2

abraço

Share this post


Link to post
Share on other sites
  • 0
Neste caso Data1 e Data2 são passados como parametros ( data nicial e data final da pesquisa )

Jhonas, voce pode fazer um exemplo como passar como parametro? porfarvor!

seria mais ou menos assim?

DM.QPesqQtd.Close;
DM.QPesqQtd.SQL.Clear;
DM.QPesqQtd.SQL.Text := 'select * from OS where Data_Inicio >= :Data1 and Data_Inicio  <= :Data2';
DM.QPesqQtd.ParamByName("Data1").AsString := (Edit1.Text);
DM.QPesqQtd.ParamByName("Data2").AsString := (Edit2.Text);
DM.QPesqQtd.Open;

Share this post


Link to post
Share on other sites
  • 0
Jhonas, voce pode fazer um exemplo como passar como parametro? porfarvor!

seria mais ou menos assim?

Sim ou poderia ser assim tambem

DM.QPesqQtd.Close;
DM.QPesqQtd.SQL.Clear;
DM.QPesqQtd.SQL.Text := 'select * from OS where Data_Inicio >= :Data1 and Data_Inicio  <= :Data2';
DM.QPesqQtd.ParamByName("Data1").AsDate := DateEdit1.Date;
DM.QPesqQtd.ParamByName("Data2").AsDate := DateEdit2.Date;
DM.QPesqQtd.Open;

abraço

Share this post


Link to post
Share on other sites
  • 0

vms, quando tratar de intervalos de datas em uma constula SQL, dê preferência a utilizar between.

no lugar de:

where Data_Inicio >= :Data1 and Data_Inicio <= :Data2

use:

where Data_Inicio between :Data1 and :Data2

Abraços

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this