AYUDA POR FAVOR. METODO SEEK NO FUNCIONA EN ADO

Rossana
16 de Julio del 2004


Alguien ha tenido experiencia con seek en ado, pues éste no funciona.
Entonces utilzo los métodos movefirst y movenext del recordset para desplazarme por él, pero éste no hace las comparaciones entre una campo y un valor introducido por ejemplo en un textbox.

tabla.movefirst

do while eof = false

if (tabla!campo) = txtbox then
respuesta= msgbox ("el campo se repite, desea sobreescribirlo", vbyesno)

if respuesta = vbyes then
'actualiza el registro
else
exit do
end if
else
tabla.movenext
end if
loop

pero aca si el contenido del txtbox es igual al campo nunca pasa por el if para que muestre el mensaje y todo lo que tiene. Si alguien puede ver lo que está pasando por favor.

Bartolom
16 de Julio del 2004
Prueba usar el método find. A ver si te sirve este código:

Private Sub comparar()
Dim buscado As String, Criterio As String
buscado = txtbox
If buscado = "" Then Exit Sub
Criterio = "Campo Like '" & buscado & "'"
tabla.MoveNext
If Not tabla.EOF Then
tabla.Find Criterio

if (tabla!campo) = txtbox then
respuesta= msgbox ("el campo se repite, desea sobreescribirlo", vbyesno)

if respuesta = vbyes then
'actualiza el registro


End If
If tabla.EOF Then
tabla.MoveFirst
tabla.Find Criterio

if (tabla!campo) = txtbox then
respuesta= msgbox ("el campo se repite, desea sobreescribirlo", vbyesno)

if respuesta = vbyes then
'actualiza el registro

If tabla.EOF Then
tabla.MoveLast

End If
End Sub

Saludos!
Bartolom
Chile