Guest User

Untitled

a guest
Feb 19th, 2018
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.61 KB | None | 0 0
  1. Imports MySql.Data.MySqlClient
  2. Public Class actividades
  3. Private Sub actividades_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  4. siguienteingeniero(contador)
  5. 'variable para almacenar la conexion
  6. Dim con As MySqlConnection
  7. con = conectar() 'se le asigna a la variable con la funcion de conexion
  8.  
  9.  
  10. Dim sql As String = " SELECT nombre_actividad FROM actividades" 'variable donde se almacenara la consulta SQL
  11. Dim comando As New MySqlCommand(sql, con) ' ejecuta la consulta almacenada en SQL con la conexion CON
  12. comando.Connection = con
  13. Dim resultado As MySqlDataReader = comando.ExecuteReader() 'almacena en la variable resultado los datos obtenidos en la consulta
  14.  
  15.  
  16.  
  17. 'condicional para verificar
  18. If resultado.HasRows Then
  19.  
  20. 'ciclo para recorrer los datos almacenados en el resultado
  21. Do While resultado.Read()
  22.  
  23. 'agregamos los datos obtenidos
  24. Dim lbs As New Label 'variable para crear labels a partir de su nombre
  25. Dim txtbox As New TextBox 'variable para crear textbox a partir de su nombre
  26. ReDim cajas(contartxtbox)
  27. 'funcion para referirse al Textbox, y asignarle parametros
  28. With txtbox
  29. .Name = contartxtbox 'aqui se le agrega el nombre unico al textbox
  30. .Location = New System.Drawing.Point(400, espacio) 'posicion donde va a quedar el textbox dentro del formulario
  31. .Size = New System.Drawing.Size(70, 20) 'tamaño de la caja del textbox
  32. .Text = "txt" & contartxtbox
  33. .Parent = Me
  34.  
  35. End With
  36.  
  37. 'funcion para referise al los labels y asignarle parametros
  38. With lbs
  39. .Name = contarlb 'aqui se le asigna un nombre unico a cada label creado
  40. .Text = resultado.Item("nombre_actividad") 'aqui se le asigna el texto contenido dentro del label apartir de la base de datos
  41. .Parent = Me
  42. .Location = New Point(50, espacio) 'posicion donde va a quedar el label dentro del formulario
  43. .Size = New Size(200, 50) 'tamaño de la caja del label
  44. End With
  45.  
  46.  
  47.  
  48. 'contadores
  49.  
  50. contarlb += 1
  51. contartxtbox += 1
  52. espacio += 50
  53.  
  54. Loop
  55. Else
  56. Console.WriteLine("datos no encontrados")
  57. End If
  58. 'btnconsultar.Enabled = False
  59.  
  60.  
  61.  
  62. resultado.Close()
  63. con.Close()
  64.  
  65. End Sub
  66.  
  67. cajas(contartxtbox)=txtbox.name
Add Comment
Please, Sign In to add comment