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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Consulta no BD ACCES retorna negativo - HELP
Amadeus
não registrado
Postada em 20/08/2008 12:49 hs   
Prezados colegas,

Estou consultando uma tabela no ACCESS que possui 6 registros, mas ele me retorna sempre o resultado -1, quando deveria retorna o valor 6.

Abaixo, o modo como estou fazendo esta consulta:

   With cnnComando2
        .ActiveConnection = conexao_bd2
        .CommandType = adCmdText
        .CommandText = "Select * From DB_tblquestrespesc ;"
        Set rsSelecao2 = .Execute
    End With
    
   a = rsSelecao2.RecordCount
    
   Label1.Caption = a

A tabela DB_tblquestrespesc e do ACCESS. Utilizo este mesmo modo de consulta e contagem em outros bancos e funciona normalmente.

O que me dizem ou sugerem?
     
Treze
não registrado
ENUNCIADA !
Postada em 20/08/2008 12:56 hs   
tente assim
 
With cnnComando2
        .ActiveConnection = conexao_bd2
        .CommandType = adCmdText
        .CommandText = "Select count(campo) As Registros From DB_tblquestrespesc ;"
        Set rsSelecao2 = .Execute
    End With
a = rsSelecao2!Registros
 
altere campo para o nome de um campo da sua tabela de preferencia a chave primaria
   
Maxcim
GUARULHOS
SP - BRASIL
Postada em 20/08/2008 14:02 hs            
aki tem um link que fala sobre cursores, deve ser esse o seu problema
 
     
Amadeus
não registrado
Postada em 20/08/2008 14:27 hs   
Deixo aqui o meu agradecimento ao Treze, pela ajuda que resolveu o meu problema e ao Maxcim, pela sugestão.

Está tudo ok agora. Segui a sugestão do treze e funcionou Ok.
Obrigado pessoal.
     
Alexandre Patos
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
Postada em 20/08/2008 16:15 hs            
post aqui o que voce fez para funcionar, para que quando alguem precisar sabe o que fazer ok. valew
     
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
Postada em 20/08/2008 17:24 hs            
Alexandre na realidade, parece que se você estiver utilizando ADO, o Recordcount não funciona, então o que sugeri e resolve, é fazer a contagem na SQL, veja.
 
.CommandText = "Select count(campo) As Registros From DB_tblquestrespesc ;"
de preferência que o Campo a ser contado seja o de Chave primaria, pois é um campo obrigatorioe com certeza estara preenchido.
 
 
 
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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