|
|
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. |
|
|
|
|
|
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.
|
|
|
|
|
|
Postada em 06/06/2008 08:39 hs
Vlw msm Perci!
|
|
|
|
