[Resolvido] Mover Recordset

[Caulfield 0]

Boa tarde,

Eu tô com uma dúvida no seguinte. Tem como mover o Recordset para um valor que é digitado no InputBox?

 

No program que eu tô criando tem uma parte que tem que cadastrar os filmes. E dai eu queria que quando o usuário digitasse o nome do filme ele procurasse no banco de dados se o filme já está cadastrado ou não. Se estiver ele move para o registro. Eu consegui fazer ele procurar e encontrar. Mas só consegui fazer isso fechando e abrindo o banco de dados.

 

Valew.

[Davidsp 0]

Cara,

 

Qual banco você esta usando?

você pode colocar o codigo para visualizar?

[Caulfield 0]

Cara,

 

Qual banco você esta usando?

você pode colocar o codigo para visualizar?

 

Eu tô usando o access. Quando ao código, ai é que tá o problema, eu não sei como fazer isso.

[quintelab 91]

Procure algo no google, comece a desenvolver algo e conforme for surgindo as dúvidas vai postando aqui.

 

Abraços...

[Caulfield 0]

Procure algo no google, comece a desenvolver algo e conforme for surgindo as dúvidas vai postando aqui.

 

Abraços...

 

Consegui.

 

Dim CRITERIO As String
Dim BUSCA As String

'move-se para o primeiro registro
RS.MoveFirst

BUSCA = InputBox$("Localizar nome:", "Localizar nome")
' define o criterio para busca
CRITERIO = "Portugues = '" & BUSCA & "'"
' inicia busca no recordset
RS.Find CRITERIO, 0, adSearchForward
ATUALIZA_FORM

' percorre o recordset ate o seu final
While RS.EOF
    RS.MoveLast
    RS.AddNew
Wend

Valew