|
|
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!!!!
|
|
|
|
