Visual Basic - Find con ADO

Life is soft - evento anual de software empresarial
 
Vista:

Find con ADO

Publicado por Felipe (42 intervenciones) el 17/11/2001 17:08:36
Hola amigo:
Te molesto para preguntarte dónde está el error en éste fuente.
Tengo una MDB llamada Cajeros.mdb con dos campos llamados cajero_numero y cajero_nombre.
En un formulario tengo dos cajas de texto, una para ingresar el número (txtnumero.text) y otra para ingresar el nombre (txtnombre.text).
En el formulario tengo un componente ADO conectado a la Tabla y un DataGrid conectado al ADO y a los campos.
El problema que tengo es que quiero preguntar si ya existe el número de cajero para no duplicarlo, pero me dice siempre que NO .

'Botón Guardar
With Ado.Recordset
Ado.Recordset.MoveFirst
Ado.Recordset.Find "cajero_numero= str(txtnumero.text)"
Print Ado.Recordset.Fields("cajero_numero") 'imprimo este valor y es igual a
Print Str(txtnumero.Text) ' éste, pero ...........
If .EOF Then
MsgBox " SSSSSSSIIIIIIIII"
...................
Else
MsgBox " NNOOOOOOOOOOOOOO"
Ado.Recordset.Update
..........................
End If
End With

Desde ya muchas gracias y hasta la próxima.
Saludos
Horacio
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Find con ADO

Publicado por fran (106 intervenciones) el 19/11/2001 15:55:57
prueba con Ado.Recordset.Find "cajero_numero= str(txtnumero.text)", , ,1
esto hara que realize la busqueda desde el principio. luego puedes probar: con
if isnull (.Fields("cajero_numero") ) then
MsgBox " SSSSSSSIIIIIIIII"
...................
Else
MsgBox " NNOOOOOOOOOOOOOO"
espero que te ayude.
Saludos
Fran

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar