|
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?
|
|
|
|
|
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 & ";"
|
|
|
|
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.
|
|
|
|
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!!!!
|
|
|
|
Postada em 19/08/2008 16:06 hs
Foi justamente o que respondi, caro José Ari.
|
|
|
|
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!!!!
|
|
|