quick report

[Yoshi 1]

ae galera to querendo o seguinte:

 

Quero contar quantos registros tem com um codigo na tabela e somar eles algum pd me ajudar a fazser issu?

[Marcelo R Moura 0]

o bom e velho sql...

 

select count(codigo) as Cont from tabela where codigo = :param

 

resolve?

[ZueRa 0]

o bom e velho sql...

 

select count(codigo) as Cont from tabela where codigo = :param

 

resolve?

Só corrigindo o Marcelo:

 

select count(codigo) as Count from tabela where codigo = :param

 

;)

[Marcelo R Moura 0]

Zuera,

 

o Cont que coloquei é apenas um label para Count(codigo).. entao tanto faz Cont, Count ou Parangoriquetimirruaro rs...

 

Zuera,

 

o Cont que coloquei é apenas um label para Count(codigo).. entao tanto faz Cont, Count ou Parangoriquetimirruaro rs...

[ZueRa 0]

Zuera,

 

o Cont que coloquei é apenas um label para Count(codigo).. entao tanto faz Cont, Count ou Parangoriquetimirruaro rs...

 

Zuera,

 

o Cont que coloquei é apenas um label para Count(codigo).. entao tanto faz Cont, Count ou Parangoriquetimirruaro rs...

oIAHEioeahioAE...

entendi oIAHEioae :D

[Yoshi 1]

Naum entendi como q eu faço issu

 

 

q função q mostra quantos registros tem com 1 codigo???

[Marcelo R Moura 0]

SELECT COUNT(CODIGO) AS CONT WHERE CODIGO = 1(POR EXEMPLO)

 

O CAMPO CONT VAI TE DAR QUANTOS REGISTRO EXISTEM PARA O CODIGO 1!!!

[Yoshi 1]

mais tpw eu vo colocar assim ??

 

DMFisio.QCadExames.Active:= False;

DMFisio.QCadExames.SQL.Clear;

DMFisio.QCadExames.SQL.Add('SELECT COUNT(CODIGO) AS CONT WHERE CODIGO =' + (txtedit1.text));

DMFisio.QCadExames.Active:= True;

Form1.QuickRep1.Preview;

 

???

[Marcelo R Moura 0]

isso.

[Yoshi 1]

tpw nem ta funcionando assim ta dando erro na sql

 

 

sera q eu tenho q declarar ela de outro jeito??

[Marcelo R Moura 0]

Tenta assim :

 

substitui essa linha

 

MFisio.QCadExames.SQL.Add('SELECT COUNT(CODIGO) AS CONT WHERE CODIGO =' + (txtedit1.text));

 

por essas duas

 

MFisio.QCadExames.SQL.Add('SELECT COUNT(CODIGO) AS CONT WHERE CODIGO = :codigo');

MFisio.QCadExames.ParamByName('codigo').AsInteger := StrToInt(txtedit1.text);