https://foro.gambas-es.org/viewtopic.php?f=3&t=3462&p=19439#p19439
-----------------------------------
jousseph
Viernes, 08 Noviembre 2013, 00:39

Re: Validar Un Cantidad De Usuarios Para El Acceso
-----------------------------------
Bien ya lo solucione el secreto esta en el hresult.movenext, me puse a analizar la programacion de los botones siguiente, atras y ultimo y me di cuenta que si hago que autorecorra los 3 campos de la tabla puedo dar con los 3 usuarios que necesito validar, ahora como lo hice? bueno utilice un Timer para que lo hiciiera y que cuando terminara se hiciera timer.enabled=false.

SIguiendo el tema dije voy a crear un combobox y su texlabel para que cuando el timer me recorra los 3 campos me liste los 3 usarios recorridos en el combobox y asi condicionarlos a seleccionar los mismos con su nombre y contraseña para validarlos por ejemplo:

[code linenumbers=false syntax=gambas]Public Sub Timer1_Timer()
juninresul = coneccion.junincon.Exec("select *from acceso")
If juninresul.Available Then TextBox3.Text = juninresul["codigo"]
If TextBox3.Text = "" Then
 ' Message.Error("¡NO HAY NADIE REGISTRADO PARA OPERAR EL SISTEMA, POR FAVOR REGISTRESE SI ESTA AUTORIZADO POR EL ADMINISTRADOR!")
  Timer1.Enabled = False
  Else 
    If Not (juninresul.Available) Then TextLabel5.Text = ""
    If TextLabel5.Text = ""
    Timer1.Enabled = False
    Else
TextLabel5.Text = juninresul["nombre"]
 TextBox3.Text = juninresul["codigo"] 
 ComboBox1.Add(TextLabel5.Text)
 ComboBox1.Text = ""
juninresul.MoveNext()
  Timer1.Enabled = False
  If Not (juninresul.Available) Then TextLabel5.Text = "" 
 If TextLabel5.Text = ""
    Timer1.Enabled = False
    Else
  TextLabel5.Text = juninresul["nombre"]
  TextBox3.Text = juninresul["codigo"]
  ComboBox1.Add(TextLabel5.Text)
  ComboBox1.Text = ""
  juninresul.MoveNext()
  Timer1.Enabled = False
    If Not (juninresul.Available) Then TextLabel5.Text = "" 
 If TextLabel5.Text = ""
    Timer1.Enabled = False
    Else
   TextLabel5.Text = juninresul["nombre"]
  TextBox3.Text = juninresul["codigo"]
 ComboBox1.Add(TextLabel5.Text)
 ComboBox1.Text = ""
 Timer1.Enabled = False
 Endif
 Endif
 Endif
 Endif
End

Public Sub ComboBox1_Click()
TextBox1.Text = ComboBox1.Text
End[/code]

[b]La idea es que ejecute la funcion juninresult.movenext hasta donde yo quiera para validar solo los 3 primeros usuarios de la base de datos, lo tengo un poco desordenado voy a cuadrarlo mas tarde para que funcione optimamente[/b] :mrorange:


