Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports MySql.Data.MySqlClient
- Public Class actividades
- Private Sub actividades_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- siguienteingeniero(contador)
- 'variable para almacenar la conexion
- Dim con As MySqlConnection
- con = conectar() 'se le asigna a la variable con la funcion de conexion
- Dim sql As String = " SELECT nombre_actividad FROM actividades" 'variable donde se almacenara la consulta SQL
- Dim comando As New MySqlCommand(sql, con) ' ejecuta la consulta almacenada en SQL con la conexion CON
- comando.Connection = con
- Dim resultado As MySqlDataReader = comando.ExecuteReader() 'almacena en la variable resultado los datos obtenidos en la consulta
- 'condicional para verificar
- If resultado.HasRows Then
- 'ciclo para recorrer los datos almacenados en el resultado
- Do While resultado.Read()
- 'agregamos los datos obtenidos
- Dim lbs As New Label 'variable para crear labels a partir de su nombre
- Dim txtbox As New TextBox 'variable para crear textbox a partir de su nombre
- ReDim cajas(contartxtbox)
- 'funcion para referirse al Textbox, y asignarle parametros
- With txtbox
- .Name = contartxtbox 'aqui se le agrega el nombre unico al textbox
- .Location = New System.Drawing.Point(400, espacio) 'posicion donde va a quedar el textbox dentro del formulario
- .Size = New System.Drawing.Size(70, 20) 'tamaño de la caja del textbox
- .Text = "txt" & contartxtbox
- .Parent = Me
- End With
- 'funcion para referise al los labels y asignarle parametros
- With lbs
- .Name = contarlb 'aqui se le asigna un nombre unico a cada label creado
- .Text = resultado.Item("nombre_actividad") 'aqui se le asigna el texto contenido dentro del label apartir de la base de datos
- .Parent = Me
- .Location = New Point(50, espacio) 'posicion donde va a quedar el label dentro del formulario
- .Size = New Size(200, 50) 'tamaño de la caja del label
- End With
- 'contadores
- contarlb += 1
- contartxtbox += 1
- espacio += 50
- Loop
- Else
- Console.WriteLine("datos no encontrados")
- End If
- 'btnconsultar.Enabled = False
- resultado.Close()
- con.Close()
- End Sub
- cajas(contartxtbox)=txtbox.name
Add Comment
Please, Sign In to add comment