elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


  Mostrar Temas
Páginas: [1]
1  Programación / Programación Visual Basic / Autorelleno de textbox con base de datos en: 7 Marzo 2015, 01:18 am
Muy buenas disculpa quisiera una ayuda, soy novato en lo que es programación en visual. Lo que tengo es un formulario donde los campos se escriben en textbox, ademas tengo una base de datos donde esta la informacion de estos campos. Lo que quiero hacer es que mediante un lazo for un combobox vaya cambiando dependiendo de el incremento de la variable del lazo for y que cada vez que cambie me vaya llenado los textbox luego se limpien y muestre en la siguiente iteracion el siguiente dato o fila de la tabla. Mi problema es que si cambia el valor del combobox pero solo muestra en los textbox los datos del primer y ultimo dato de la tabla pero los demas no muestra. Aqui les dejo el codigo espero me sepan ayudar

Código
  1. Private Sub btGenerarQR_Click(ByVal sender As System.Object,
  2. ByVal e As System.EventArgs) Handles btGenerarQR.Click
  3. Dim cadenaconexion As String
  4. Dim miconexion As OleDbConnection
  5. Dim adaptador As OleDbDataAdapter
  6. Dim data As DataSet
  7. For j = 0 To 4
  8. cadenaconexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Ronny\Desktop\Base_Animales.accdb"
  9. miconexion = New OleDbConnection(cadenaconexion)
  10. adaptador = New OleDbDataAdapter
  11. adaptador.SelectCommand = New OleDbCommand("SELECT * FROM Mascota", miconexion)
  12. data = New DataSet
  13. data.Tables.Add("Mascota")
  14. adaptador.Fill(data.Tables("Mascota"))
  15. num.DataSource = data.Tables("Mascota")
  16.  
  17. txtVcardMascota.DataBindings.Clear()
  18. txtVcardRaza.DataBindings.Clear()
  19. txtVcardDueno.DataBindings.Clear()
  20. txtVcardTel.DataBindings.Clear()
  21. txtVcardCel.DataBindings.Clear()
  22. System.Threading.Thread.Sleep(1000) ' 1 segundo
  23.  
  24. num.DisplayMember = "Numero"
  25. num.Text = Val(j)
  26. txtVcardMascota.DataBindings.Add("Text", data.Tables("Mascota"), "Nombre de la Mascota")
  27. txtVcardRaza.DataBindings.Add("Text", data.Tables("Mascota"), "Raza de la Mascota")
  28. txtVcardDueno.DataBindings.Add("Text", data.Tables("Mascota"), "Apellidos y Nombres del Propietario")
  29. txtVcardTel.DataBindings.Add("Text", data.Tables("Mascota"), "Teléfono del Propietario")
  30. txtVcardCel.DataBindings.Add("Text", data.Tables("Mascota"), "Celular del Propietario")
  31. Next
  32. end Sub

Mod: Al publicar código usar las etiquetas GeSHi
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines