Visual Basic - Método Find de Recordset

Life is soft - evento anual de software empresarial
 
Vista:

Método Find de Recordset

Publicado por Jose (93 intervenciones) el 28/10/2002 14:22:26
Hola, mi problema es el siguiente.

Quiero hacer una búsqueda de un registro en un recordset, utilizando el método find, por dos campos, y cuando ejecuto el programa me da el siguiente error:

Error: 3001. "La aplicación está usando argumentos incorrectos, o están fuera del intervalo permitido, o entran en conflicto con otros".

La cadena de búsqueda del método fin es igual al where de una select en SQL.
Sabeis a que puede ser debido el error. Gracias.
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:Método Find de Recordset

Publicado por Walter Rueda (49 intervenciones) el 28/10/2002 14:35:12
Hola te voy a anexar el siguiente codigo y espero te sea util, yo lo utilizo para validar usuarios contra una tabla de acces y utilizo un datacontrol, me funciona chevere, salu2....

Private Sub cmdOK_Click()
Dim Buscar As Recordset
Dim Usuario As String
Dim Criterio As String

Username = txtUserName
Criterio = "Usuario = '" & txtUserName.Text & "'"

Set Buscar = DUsuarios.Recordset
Usuario = Buscar.Fields("Usuario")
'comprobar si la contraseña es correcta

Buscar.MoveFirst
With Buscar
Buscar.FindFirst (Criterio)
If Buscar.NoMatch Then
MsgBox "Usuario o contraseña no válidos intente nuevamente", vbInformation, "Acceso denegado"
Limpiar

End If

If Buscar.Fields("Password") = txtPassword Then
Load FrmMenu
FrmMenu.Show

Unload Me
Else
MsgBox "Usuario o contraseña no válidos intente nuevamente", vbInformation, "Acceso denegado"
Limpiar

End If


End With


End Sub

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