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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Resultado da Consulta está dando erro - Urgente
Edwilson
não registrado
Postada em 19/08/2008 12:11 hs   
Tenho a seguinte consulta:

Private Function SELECIONA_ENVIA_PESQUISA()
    With cnnComando2
        .ActiveConnection = conexao_bd2
        .CommandType = adCmdText
        .CommandText = "Select * From DB_tblpesquisas Where COD_PESQ = '" & npesq & "';"
        Set rsSelecao2 = .Execute
    End With
    
    result2 = rsSelecao2.RecordCount
    
    Label1.Caption = result2
    
    Set cnnComando2 = Nothing
    Set rsSelecao2 = Nothing
    
End Function

O tabela é de um BD Acces. A varíavel npesq possui um valor a ser considerado na consulta.

Ele me deu a seguinte mensagem de erro:

"Tipo de dados imcompátive na expressão de critério"

COD_PESQ pertence à tabela DB_tblpesquisas e é do tipo Número e npesq é do tipo integer também.

Se eu tento a consulta desta forma (subtituindo somente a query):

        .CommandText = "Select * From DB_tblpesquisas ;"

Ele me apresenta um resultado de -1. Existe um registro dentro da tabela, então o resultado deveria ser 1 (positivo). E então?

O que pode estar acontecendo?


     
DeFreitas
não registrado
Postada em 19/08/2008 12:51 hs   
A linha:
 
.CommandText = "Select * From DB_tblpesquisas Where COD_PESQ = '" & npesq & "';"
deve ficar assim:
 
.CommandText = "Select * From DB_tblpesquisas Where COD_PESQ = " & npesq & ";"

 

 


     
Maxcim
GUARULHOS
SP - BRASIL
Postada em 19/08/2008 12:54 hs            
    With cnnComando2
      .cursorlocation = adusercliente
        .ActiveConnection = conexao_bd2
        .CommandType = adCmdText
        .CommandText = "Select * From DB_tblpesquisas Where COD_PESQ = '" & npesq & "';"
        Set rsSelecao2 = .Execute
    End With
 
isso deve resolver.
     
José Ari
MANAUS
AM - BRASIL
Postada em 19/08/2008 13:12 hs            
eh so voce tirar o " ' " da consulta. porque como o valor é integer, tem que ficar sem o " ' ", pois assim do jeito que está o access entende que o valor é uma string!!

================================================================
O Aprendizado é Direito de Todos. O Saber é Privilégio de Poucos.

Começando a estudar VB.NET. Realmente é incrível!!!!

     
DeFreitas
não registrado
Postada em 19/08/2008 16:06 hs   
Foi justamente o que respondi, caro José Ari.
     
José Ari
MANAUS
AM - BRASIL
Postada em 19/08/2008 16:11 hs            
isso mesmo DeFreitas, só faltou explicar o porquê.... [;)]

================================================================
O Aprendizado é Direito de Todos. O Saber é Privilégio de Poucos.

Começando a estudar VB.NET. Realmente é incrível!!!!

     
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