SOCOOOOOOOOOOOOOOORRRRROOOOOOOOOOOOO..........

Delphi

20/03/2003

Pelo amor de Deus,

Será q vcs podem me ajudar numa consulta? A consulta é a seguinte: Contar todos os alunos q estão empregados ou não. No Access fiz a seguinte consulta e deu certinho:

------------------------------------------------------

SELECT Count(TB_Concludentes.Numero) AS Total, TB_Concludentes.Curso, TB_Concludentes.Empresa, TB_Concludentes.EnderecoEmpresa, TB_Concludentes.BairroEmpresa, TB_Concludentes.TelefoneEmpresa, TB_Concludentes.SituacaoDoEmpregado
FROM TB_Concludentes
GROUP BY TB_Concludentes.Curso, TB_Concludentes.Empresa, TB_Concludentes.EnderecoEmpresa, TB_Concludentes.BairroEmpresa, TB_Concludentes.TelefoneEmpresa, TB_Concludentes.SituacaoDoEmpregado
HAVING (((TB_Concludentes.SituacaoDoEmpregado)=´Empregado´));

------------------------------------------------------

Porém, quando eu a copio para uma ADOQuery ela não aceita e me retorna o seguinte erro:

[Microsoft][ODBC Microsoft Access Driver] Too few parameter. Expected 1.

Se vc puder me ajudar!

Grato por sua atenção,

Ilano.


Ilanocf

Ilanocf

Curtidas 0

Respostas

Marcelo

Marcelo

20/03/2003

Pelo amor de Deus, Contar todos os alunos q estão empregados ou não. ------------------------------------------------------ Se vc puder me ajudar! Ilano.


Bem vc pode fazer da seguinte maneira...
procedure...
var
sim,nao:string;
begin
Tabela.First;
while not Tabela.Eof do
begin
if (TabelaEMPREGADO.Value <>) and (TabelaEMPREGADO.Value = ´SIM´) then //verifica se o campo EMPREGADO é vazio e se ele esta EMPREGADO
begin
SIM := SIM + TabelaEMPREGADO.Value;
end;
if (TabelaEMPREGADO.Value <>) and (TabelaEMPREGADO.Value = ´NÃO´) then //verifica se o campo EMPREGADO é vazio e se ele não esta EMPREGADO
begin
NAO := NAO + TabelaEMPREGADO.Value;
end;
Tabela.Next;
end;
cds_consulta.First;

Valeu?

at+...


GOSTEI 0
POSTAR