ActiveDelphi

[redmar]

Fiz uma pesquisa que me da os registros com parte inicial do cnpj. O campo é do tipo varchar.

Fiz assim a pesquisa:

SELECT registro,NOME FROM tabeba WHERE data = now()
and cnpj LIKE '3192739%'

Preciso que conte os registros da query numa label, fiz assim:

AdoQUERY1.last;
AdoQUERY1.first;
LABEL1.CAPTION:=INTTOSTR(AdoQUERY1.RECORDCOUNT);

é ai que da erro, só funciona se tirar essa contagem da label
pior que preciso dessa label.

[JCMF]

[redmar]

Mano funcionou, Brigadão. Só tenho uma dúvida que acho que é um prob, agora, eu uso várias adoquery, no mesmo programa e da mesma forma varias label contando, vou ter q abrir as outras query tb?

Fiz asssim:

AdoQUERY3.last;
AdoQUERY3.first; //atualiza
LABEL7.CAPTION:=INTTOSTR(AdoQUERY3.RECORDCOUNT);

adoQuery4.Last;
adoQuery4.first;
Label9.caption := inttoStr(adoQuery4.recordcount);

[wagnercabrera]

Que rolo hein...

Não sei qual a intenção, mas você terá que fazer a mesma coisa com as outras query!
_________________
DEVELOPER SENIOR D.E.L.P.H.I

[redmar]

o problema é que é tudo na mesma form, abrindo um não fecha o outro?

[wagnercabrera]

[JCMF]

[redmar]

Bom saber q não vou precisar fechar as query.

Mas n entendi uma select dentro da outra.

Nas minhas query cada uma tem um cnpj dif. Usando a mesma tabela, só muda a pesquisa.

Ex.: 1
SELECT registro,NOME FROM tabeba WHERE data = now()
and cnpj LIKE '3192739%'

Outro Ex.:
SELECT registro,NOME FROM PT_DEV WHERE data = now() and NOME LIKE '%CSB%' OR DOC1 LIKE '42225938%' and data = now()

Como vou usar uma select dentro de uma select e usar na label?

[JCMF]

[redmar]

Entendi, deve ser bem melhor mesmo que várias query, mas ta dando erro:

[Error] Unit1.pas(101): Undeclared identifier: 'select'
[Error] Unit1.pas(101): Missing operator or semicolon

[JCMF]

[redmar]

select ( SELECT count( * ) FROM pt_dev WHERE data = now() and cnpj LIKE '3192739%' ) as totalValente,
( SELECT count( * ) FROM PT_DEV WHERE data = now() and NOME LIKE '%CSB%' OR DOC1 LIKE '42225938%' and data = now() ) as totaCSB;

ADOQuery2.Open;
Label4.Caption := ADOQuery2.FieldByName( 'totalTabela' ).AsInteger;
Label18.Caption := ADOQuery2.FieldByName( 'totalPT_DEV' ).AsInteger;

[wagnercabrera]

[JCMF]

[JCMF]