USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  consulta
Edson479
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 19/07/2007 16:46 hs            
boa tarde, olha eu denovo
como faço pra fazer um consulta
contar quando registro tem numa tabela escrto "Não"

eu fez assim
     Rs_New.Open "select * from envelope where bd_new_imp= 'Não' and bd_new_cod order by bd_new_imp", Banco, adOpenDynamic, adLockOptimistic
     Label6.Caption = Rs_New.RecordCount
 mais ele esta trazendo -1
   
ArtSoft
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 19/07/2007 20:29 hs         
Olá amigo você poderia fazer assim :

SQL="Select Envelope.bd_new_imp, Count(Envelope.bd_new_imp) AS QtosNao
FROM Envelope GROUP BY Envelope.bd_new_imp, Envelope.bd_new_imp
HAVING (((Envelope.bd_new_imp ='Não'));"

Rs_New.Open SQL, Banco, adOpenDynamic, adLockOptimistic

Label6.Caption = Rs_New.Fields("QtosNao")
É um jeito...acho que é mais facil, rapido e confiavel !!!
 
t+,
 
 

Alexandre Costa
ArtSoftSystems

Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br

   
Delcio (DelSf)
SANTO ANDRÉ
SP - BRASIL
ENUNCIADA !
Postada em 19/07/2007 23:11 hs         
o SQL ficaria assim, mais enxuto:
"select Count(bd_new_imp) as Tot_Nao from envelope where (bd_new_imp= 'Não' and   bd_new_cod)"
   
Edson479
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 20/07/2007 10:12 hs            
Delcio a sua dica esta dando o mesmo resultado, do meu "-1"
 
ArtSof, o seu deu um erro
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 20/07/2007 11:16 hs            
Verifique o cursor.
 
Para usar o recordcount tem q se usar assim:
 
 Rs_New.CursorLocation = adUseClient
 Rs_New.Open "select * from envelope where bd_new_imp= 'Não' and bd_new_cod order by bd_new_imp", Banco, adOpenDynamic, adLockOptimistic
     Label6.Caption = Rs_New.RecordCount
 
Para usar a dica do Delcio vc tem q mudar o código para isto:
 
Rs_New.Open "select Count(bd_new_imp) as Tot_Nao from envelope where (bd_new_imp= 'Não' and   bd_new_cod)"
 
IF NOT RS.EOF Then Label6.Caption = Rs_New(0)
 
at+
TÓPICO EDITADO
 
Edson479
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 20/07/2007 12:17 hs            
deu certo Ghost jlp, meu toda dica sua são 100% certo, pelo menos pra mim.
obrigado + um vez.
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página