Buscar en una tabla de MySQL

[Alwar]

Hola, necesito saber como puedo buscar en una tabla de MySql remota un campo y luego compararlo con otro

Saludos

[GeoAvila]

si es remota te tenes que acostumbrar a usar el limit, el cual te da hasta un numero de respuestas no te da todos los datos de la tabla por ejemplo si queres solo 5 datos colocas limit 5 entonces para tu busqueda ya es remota pedi el minimo de datos.

select * from tabla where codigo = 1 Limit 10

así sería la busqueda nos vemos..

[Alwar]

creo q no me as entendido, yo necesito q busque un registro y se situe sobre el, luego extraer los datos de ese registro

[GeoAvila]

no sabes el nombre del campo??

estas hablando de campos y de registros.. campo es el lugar donde se guardan los registros...

partiendo de esto que necesitas...

nos vemos..

[Alwar]

No entiendo el limit, si quiero q encuentre uno solo q tengo q hacer q limit = 1???

[GeoAvila]

exacto.. de esa manera funciona el limit...

nos vemos..

[Alwar]

Alguien sabe porque al intentar utilizar el metodo Find me da un erro?? el error es el 3001, lo q no entiendo, es que hace lo que tiene que hacer, y si pongo un On error resume next funciona a la perfeccion, pero como no me gusta tener esa instruccion hay querria solucionar el problema, os pego el codigo:

With rUsuarios
.Find Usuario 'El error 3001 lo da aqui
If rUsuarios!Password = Password Then

Descripcion del Error:
Argumentos incorrectos, fuera de intervalo permitido o en conflicto con otros

Saludos!

[GeoAvila]

Iniciado por Alwar

With rUsuarios
.Find Usuario 'El error 3001 lo da aqui
If rUsuarios!Password = Password Then

Iniciado por Alwar

Alguien sabe porque al intentar utilizar el metodo Find me da un erro??

pues yo creo saber... jeje

Código:

rUsuarios.Find "Usuario = " & CodigoUsuario ' donde codigousuario es una variable y Usuario es el Campo donde buscas el Codigo Usuario

nos vemos..

[Alwar]

Si te e entendido bien:
.Find "Nick = " & Usuario

Nick es el campo de la tabla, y usuario es la variable q quiero q busque
pero no va, da el mismo error

[GeoAvila]

Iniciado por Alwar

Si te e entendido bien:
.Find "Nick = " & Usuario

Nick es el campo de la tabla, y usuario es la variable q quiero q busque
pero no va, da el mismo error

podes colocar toda la conexion que haces incluyendo el filter para poderte ayudar... asi ver donde esta tu error..

nos vemos..

[Alwar]

Todo Entero:
Dim Usuario As String
Dim Password As String
Usuario = TxtUsuario.Text
Password = TxtContraseña.Text

Dim rUsuarios As ADODB.Recordset

On Error GoTo ManejoError
CrearConexion
DoEvents
'Si la conexion no esta establecida no muestra nada
If CrearConexion = False Then
MsgBox "Error, No hay Conexion", vbOKOnly + vbCritical
Exit Sub
End If

Set rUsuarios = New ADODB.Recordset
Set rUsuarios = oConexion.Execute("SELECT * FROM b2l1640_DataAlwar.Usuarios")
With rUsuarios
.Find "Nick = " & Usuario
If rUsuarios!Password = Password Then
MsgBox "Bienvenido " & Usuario, vbOKOnly + vbInformation, "Apogeus One"
UsLogIn = True
UsuarioLogIN = Usuario
frmLogin.StBar.Panels(1) = "Hola " & Usuario
Unload Me
Else
MsgBox "Contraseña Incorrecta o usuario no encontrado", vbOKOnly + vbCritical, "Apogeus One"
Exit Sub
End If
End With

rUsuarios.Close
Set rUsuarios = Nothing

Exit Sub
ManejoError:
ShowError "LogIn", "LeerUsuarios"
End Sub

[GeoAvila]

ok intenta con este código..

Código:

    Dim db As Connection
          Dim adoPrimaryRS As Recordset
          Set db = New Connection
          Set adoPrimaryRS = New Recordset
          db.CursorLocation = adUseClient
          db.Open BasePath ' aqui colocas tu conexión..
          adoPrimaryRS.Open "SELECT * from empleados where  id_empleado = " & Me.txtUserName.Text & " ", db, adOpenStatic, adLockOptimistic
            If adoPrimaryRS.BOF = False Then
                If adoPrimaryRS!contrasena = Me.txtPassword.Text Then
                    MsgBox "Bienvenido " & adoPrimaryRS!Nombre & " " & adoPrimaryRS!APELLIDO, vbInformation, "Loggin"
                End If
            Else
                MsgBox "El usuario no existe intente de nuevo", vbCritical, "Loggin"
            End If
            adoPrimaryRS.Close

si te das cuenta txtusername es el codigo del usuario entonces se hace la consulta en base a ese usuario tal como te decía...
espero te sirva el código... dependiendo si el codigo es numérico o bien es texto si el codigo es texto sería asi... la conexión

Código:

          adoPrimaryRS.Open "SELECT * from empleados where  id_empleado = '" & Me.txtUserName.Text & "' ", db, adOpenStatic, adLockOptimistic

de contrario si es número es como está en el ejemplo...

bueno una leve explicación de como se hace lo que estas pretendiendo...

[Alwar]

Nada, me da error, pues como e dicho antes, con on error resume next funciona perfectamente, a si q voy a hacer un sistema con variables y on error goto error para q ignore el error

[GeoAvila]

me imagino que si es un problema con tu proyecto intentá instalando el el mdac 2.8 y seleccion un data object más reciente este debería ayudarte puesto que el código que te puse funciona en un proyecto yo he desarrollado con mysq.

nos vemos..

[Alwar]

utilizo ADO 2.8 y Recordset 2.8, si sabes de alguno mas reciente dimelo y lo busco, d todas formas ya lo solucione poniendo Resume next antes de Find y Goto ManejoError despues, asi solo ignora los errores de esa linea

[GeoAvila]

yo sería de la idea que probes con otra tabla para descartar que fuera error de la tabla..
nos vemos..