Fala galera.
Estou iniciando no VB e ao tentar rodar a seguinte rotina:
Private Sub txtCodUsuario_LostFocus()
Dim cnnComando As New ADODB.Command
Dim rsSelecao As New ADODB.Recordset
If Val(txtCodUsuario.Text) = 0 Then
MsgBox "Não foi digitado um código válido, verifique.", _
vbExclamation + vbOKOnly + vbApplicationModal, "Erro"
Exit Sub
End If
Screen.MousePointer = vbHourglass
With cnnComando
.ActiveConnection = cnnBiblio
.CommandType = adCmdText
.CommandText = "SELECT * FROM Usuario WHERE codUsuario = " & _
txtCodUsuario.Text & ";"
Set rsSelecao = .Execute
End With
With rsSelecao
If .EOF And .BOF Then
LimparDados
vInclusao = True
Else
txtNomeUsuario.Text = !nomeUsuario
txtEndereco.Text = !endereco
txtCidade.Text = !cidade
txtEstado.Text = !uf
txtCEP.Text = !cep
txtTelefone.Text = Empty & !tel1
vInclusao = False
Toolbar1.Buttons(3).Enabled = True
End If
End With
txtCodUsuario.Enabled = False
Saida:
Set rsSelecao = Nothing
Set cnnComando = Nothing
Screen.MousePointer = vbDefault
Exit Sub
errSelecao:
With Err
If .Number <> 0 Then
MsgBox "Houve um erro na recuperação do registro solicitado.", _
vbexcalmation + vbOKOnly + vbApplicationModal, "Aviso"
.Number = 0
GoTo Saida
End If
End With
End Sub
Quando executo o debug apresenta um erro na linha do SET do recordset, informando que faltam parâmetros necessários.
Alguém pode ajudar.
Obrigado
