ERRO EM RECORDSET

USUARIO.EXCLUIDOS 07/07/2004 21:53:59
#32683
Tipo tá aparecendo um erro muito estranho.. Consigo abrir o seguinte recordset:

Set rs = New ADODB.Recordset
rs.Open "SELECT CadastroDasRotas.NomeRota FROM CadastroDasRotas", db
While rs.EOF = False
lstRota.AddItem rs("NomeRota")
rs.MoveNext
Wend

Set rs = New ADODB.Recordset
rs.Open "SELECT Licenciamento.PlacaVeiculo FROM Licenciamento", db
While rs.EOF = False
lstLicenciamento.AddItem rs("PlacaVeiculo")
rs.MoveNext
Wend



Mas não consigo abrir esse que está logo abaixo na mesma sub


Set rs = New ADODB.Recordset
Dim sql As String
sql = "SELECT Motorista.* FROM Motorista WHERE Motorista.CodigoMotorista=" & CStr(lstMotoristas.Text)
rs.Open sql, db

'ligando os campos aos registros
If rs.EOF = False And rs.BOF = False Then
txtCodigoMotorista = rs("CodigoMotorista")
txtNome = rs("Nome")
txtHabilitacao = rs("Habilitacao")
txtTelefone = rs("Fone")
txtCelular = rs("Celular")
txtEndereco = rs("Endereco")
txtBairro = rs("Bairro")
txtCEP = rs("CEP")
txtCidade = rs("Cidade")
txtEstado = rs("UF")
End If

o erro é: "nenhum valor foi fornecido para um ou mais parà¢metros necessários"
e o pior é que o lstMotoristas.Text exibe um valor e a variavel db tbm... Alguem sabe o que está acontecendo?? valeu ae
USUARIO.EXCLUIDOS 07/07/2004 22:11:48
#32687 Resposta escolhida
tipo o erro quer dizer que os parametros q vc passou na WHERE estão errados

tipo verifique pois se o Codigo motorista é INTERGER vc naum dever informar aspas caso seja TEXT informe aspas simples
Tópico encerrado , respostas não são mais permitidas
Voltar