ERRO

USUARIO.EXCLUIDOS 14/07/2004 11:57:59
#33496
Olá galera! Quando xamo uma rotina aki, dá o seguinte erro:

Invalid Column Name 'VIP'

E ao clicar debug, o vb seleciona:
rsTemp.Open "select * from situacao where codigo = " & varSituacao, bd, adOpenDynamic

Dentro da seguinte rotina:

If rs!Situacao <> "" Then
varSituacao = rs!Situacao
rsTemp.Open "select * from situacao where codigo = " & varSituacao, bd, adOpenDynamic
cmbSituacao.ListIndex = SendMessage(cmbSituacao.hWnd, CB_FINDSTRING, -1, ByVal CStr(rsTemp![Situacao]))
rsTemp.Close
Else
cmbSituacao.ListIndex = -1
End If

Não tenho ideia de o q faze! Podem me ajuda? Vlw!
USUARIO.EXCLUIDOS 14/07/2004 16:17:57
#33551 Resposta escolhida
Pelo que entendi VIP é o Valor de varSituacao, certo?

Então, como varSituacao é Texto vc deve fazer:

rsTemp.Open "select * from situacao where codigo = '" & varSituacao & "'", bd, adOpenDynamic

Depois , verifique o Recordset;
If Not rsTemp.EOF Then
cmbSituacao.ListIndex = SendMessage(cmbSituacao.hWnd, CB_FINDSTRING, -1, ByVal CStr(rsTemp![Situacao]))
End If
rsTemp.Close
Tópico encerrado , respostas não são mais permitidas
Voltar