Spanish [SOLUCIONADO] Consulta Spinner

Discussion in 'Spanish Forum' started by rscheel, Sep 28, 2015.

  1. rscheel

    rscheel Well-Known Member Licensed User

    Tengo el siguiente dilema, estoy cargando varios spinner por BD Sqlite, lo que quisiera saber como puedo cargar, el segundo spinner dependiendo del valor que seleccione en el primer spinner.

    Code:
    Sub SpinnerEmpresario
            c = s.ExecQuery(
    "SELECT * FROM emsefor")
            SpinEmpresario.Add(
    "Seleccione Empresario..")
            
    For I = 0 To c.RowCount - 1
            
    DoEvents
            c.Position = I
            SpinEmpresario.Add(c.GetString(
    "id_emsefor"))
            ID_emsefor = c.GetString(
    "id_emsefor")
            
    Next
            SpinnerJfaena   
            c.Close
    End Sub   
    Sub SpinnerJfaena
            c = s.ExecQuery(
    "SELECT * FROM cam_jefefaena where id_emsefor = '" & ID_emsefor & "' ")
            SpinJfaena.Add(
    "Seleccione Jefe Faena..")
            
    For I = 0 To c.RowCount - 1
            
    DoEvents
            c.Position = I
            
    'If ID_emsefor == c.GetString("id_emsefor") Then
            SpinJfaena.Add(c.GetString("nombre"))
            
    'End If
            Next
            c.Close
    End Sub
    Espero me puedan ayudar. Gracias.
     
  2. bgsoft

    bgsoft Well-Known Member Licensed User

    Hola rscheel:

    La verdad que no entiendo muy bien el problema, por que si quieres cargar el segundo Spinner, creo que es tan facil como hacer una condición If ... Then

    Code:
    If ID_emsefor = Valor que te interese Then  SpinnerJfaena
    Saludos
     
  3. rscheel

    rscheel Well-Known Member Licensed User

    Bueno se Soluciona de esta manera les dejo el código a alguien le puede servir.

    Code:
    Sub SuSpinner
            
    Dim NombreLista As List
            NombreLista.Initialize
            s.BeginTransaction
            c = s.ExecQuery(
    "SELECT * FROM su_tabla")
            
    For I = 0 To c.RowCount - 1
            c.Position = I
            SpinUno.Add(c.GetString(
    "nombre"))
            NombreLista.Add(c.GetString(
    "id_registro"))
            
    Next   
            SpinUno.Tag = NombreLista
            s.TransactionSuccessful
            s.EndTransaction
            c.Close
    End Sub
    Code:
    Sub SuSpinner_ItemClick (Position As Int, Value As Object)
            
    Dim cCod As String
            Valor = SpinUno.Tag
            cCod = Valor.Get(Position)
            
    Dim Lista2Nombre As List
            Lista2Nombre.Initialize
            SpinDos.Clear
            s.BeginTransaction
            c = s.ExecQuery(
    "SELECT * FROM su_tabla2 WHERE id_registro = " & cCod)
            
    For I = 0 To c.RowCount - 1
            c.Position = I
            Lista2Nombre.Add(c.GetString(
    "id") )
            SpinDos.Add(c.GetString(
    "nombre"))
            
    Next
            s.TransactionSuccessful
            s.EndTransaction
            SpinDos.Tag = Lista2Nombre
            c.Close
    End Sub
    El Spin.Tag = que recibe la lista, se recupera al momento de guardar el formulario a la bd, así recupera el valor o id de la posición que esta mostrando el spinner.

    Saludos, espero le sirva a alguien.
     
    José J. Aguilar likes this.
  4. bgsoft

    bgsoft Well-Known Member Licensed User

    Hola rscheel, gracias por tu aporte.

    Podrias poner en la cabecera [SOLUCIONADO], asi hacemos mas agil el foro, gracias.

    Saludos
     
  5. manuel_g

    manuel_g New Member Licensed User

    Funcionó de maravilla, muchas gracias
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice