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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Porque aparece essa mensagem?
fjralberto
SANTO ANDRÉ
SP - BRASIL
ENUNCIADA !
Postada em 05/06/2008 16:33 hs            
  Boa tarde a todos... eu estou executando um código... só que está aparecendo a seguinte mensagem:

"Tipo de dados incompatível na expressão do critério"


Porque acontece isso?

O código é este:



Private Sub cboDemanda_Click()
cmdIncLinha.Enabled = True


Dim cnnDescricao As New ADODB.Command


sqlDemanda = "SELECT * FROM TAB_DEMANDA WHERE ID_DEMANDA='" & cboDemanda.Text & "'"

With cnnDescricao
.ActiveConnection = conn
.CommandType = adCmdText
.CommandText = sqlDemanda
Set DescrDemanda = .Execute
End With
With DescrDemanda
If .EOF And .BOF Then
MsgBox "Selecione uma demanda.", _
vbExclamation + vbOKOnly + vbApplicationModal, "Aviso"
Else
lblDescrDemanda.Caption = !DESC_DEMANDA


Set DescrDemanda = Nothing
Set cnnDemanda = Nothing
End If
End With


Forte abraço a todos!

Alberto

"Em tijolo em tijolo a casa sai!"
Autor: Eu mesmo.

Alberto

"Em tijolo em tijolo a casa sai!"
Autor: Eu mesmo.
   
Perci
MATÃO
SP - BRASIL
ENUNCIADA !
Postada em 05/06/2008 16:43 hs            
Por acaso, o ID_DEMANDA é do tipo texto?
 
Se for, tenta dessa maneira:
sqlDemanda = "SELECT * FROM TAB_DEMANDA WHERE ID_DEMANDA Like '" & cboDemanda.Text & "'" 
Depois responda se deu certo.
 
   
fjralberto
SANTO ANDRÉ
SP - BRASIL
Postada em 05/06/2008 16:48 hs            
Deu certo valeu msm muito obbrigado... quebrou um gralhão... para que serve LIKE perci?

Alberto

"Em tijolo em tijolo a casa sai!"
Autor: Eu mesmo.
     
Perci
MATÃO
SP - BRASIL
ENUNCIADA !
Postada em 06/06/2008 08:21 hs            
Quando você vai fazer a consulta e o campo do BD é numérico, por exemplo, você usa:
 
sqlDemanda = "SELECT * FROM TAB_DEMANDA WHERE ID_DEMANDA = " & txtDemanda.Text  
certo?
 
Mas quando o campo do BD for do tipo texto, você precisa usar o LIKE para fazer a consulta:
 
sqlDemanda = "SELECT * FROM TAB_DEMANDA WHERE ID_DEMANDA LIKE '" & txtDemanda.Text & "'"
 
Obs: Não se esqueça de colocar as aspas e os apóstrofos (como no exemplo)
 
Falou?
Espero ter ajudado.
Até mais.
 

 
 
   
fjralberto
SANTO ANDRÉ
SP - BRASIL
ENUNCIADA !
Postada em 06/06/2008 08:39 hs            
Vlw msm Perci!
   
Página(s): 1/1    

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