ERRO AO FAZER A PROCURA

ELMO01 18/03/2005 08:24:32
#73518
Oi pessoal,

Estou me deparando com um erro quando faço uma procura em meu programa,
abaixo está os comandos de abertura do arquivo,

Caminho1 = "T:\DADOS\VbSenha.MDB"
StrConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Caminho1 & ";"
RS.CursorLocation = adUseClient
RS.Open "Select * from VbSenha", StrConexao, adOpenKeyset, adLockOptimistic
RS.MoveFirst
RS.Find TxtUsuario.Text, 0, adSearchForward <- o erro se apresenta nesta linha

se alguém puder me ajudar, ficarei mt agradeçido

Obrigado,

[S59]
RO.DRIGOSG 18/03/2005 08:43:03
#73520
Exemplo de pesquisa

RS.MoveFirst
sArg = InputBox("Digite o nome do Cliente", "Consulta por nome")
RS.Find "Cliente like '*" & sArg & "*'", , adSearchForward
If RS.EOF Then
MsgBox "Nenhum registro foi encontrado", vbInformation, "Aviso"
RS.Requery
Preenche 'ROTINA PARA PREENCHER CAMPOS
Exit Sub
Else
Preenche 'ROTINA PARA PREENCHER CAMPOS
Exit Sub
End If
RO.DRIGOSG 18/03/2005 08:47:37
#73521
Há já tava esqueçendo

Dim sArg as String


Troque o campo "TxtUsuario.Text" pelo campo do seu Banco de dados "Usuario"


Espero ter ajudado.
Um abraço!
LCSD 18/03/2005 09:37:19
#73537
E PQ VC não tenta desta forma:


 Caminho1 = "T:\DADOS\VbSenha.MDB" 
  StrConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Caminho1 & ";" 
  RS.CursorLocation = adUseClient 
  RS.Open "Select * from VbSenha where Usuario = '" & txtusuario.text & "'", StrConexao, adOpenKeyset, adLockOptimistic
ELMO01 18/03/2005 11:23:54
#73571
Oi Luiz

A sua sugestão deu certo, muito obrigado

[S27]
Tópico encerrado , respostas não são mais permitidas
Voltar