Guardadar texto de los combobox creados automaticamente al cargar el formulario

[noah_242]

hola¡
He generado etiquetas y combobox automaticamente al cargar el formulario,ahora lo que necesito es que al hacer click en un boton me guarde los datos escritos en esos combobox generados automaticamente.Gracias por la ayuda.

[noah_242]

Resulta que no puedo hacer referencia a esos controles en el click del boton porque estan creados por codigo,asi que si alguien sabe alguna manera de hacerlo le ruego que me eche una ayuda.Gracias

[SunDarK]

Wenos dias,¿a que te refieres con creados por codigo? a que se crean en tiempo de ejecución?un saludo

PD: SunDarK BaCK At HoMe ^^

[noah_242]

Hola buenos dias¡

Resulta que no puedo hacer referencia a esos controles en el click del boton porque estan creados por codigo,asi que si alguien sabe alguna manera de hacerlo le ruego que me eche una ayuda.Gracias

[SunDarK]

....................

[noah_242]

Hola buenos dias¡
He mandao el post de antes,lo siento.

Si creo los combobox en tiempo de ejecucion,pero necesito guardar el texto de esos combobox cd le de a un boton ,el problema es q no se como hacerle la referencia,si m pudieras ayudar.Gracias!

[SunDarK]

Vamos por parte para que me entienda:

1º Tienes tu pagina web
2º Le da a un boton y creas una serie de combobox
3º Quieres que al darle a un boton se guarde el texto de los combobox que se acaban de crear

¿Verdad o me equivoco? Un saludo y paciencia que encontraremos la solucion ^_^

[noah_242]

En el evento click de boton me gustaria programar que el text de esos combobox pudieran ser guardados en la BD pero ¿se puede hacer eso de alguna manera?

[noah_242]

Gracias por los animos,t comento:
Estoy haciendo una aplicacion windows form de una empresa conservera,pues dicha empresa tiene una serie de salas,pues necesito crear un formulario automatico que me genere un parte en el cual deben de ir reflejadas las salas q tengan control de temperatura y un combobox donde puedas introducir la temperatura,lo necesito crear automaticamente porque habra salas que no requieran ese control de temperatura y otras que des de alta que si lo requieran,las etiquetas de las salas y los combobox ya los creo,el problema es que necesito meterlka en la BD.Perdona si m explicao mal.

[RootK]

Porque no creas un panel en tu win form y ahi le agregas el control combobox..

Por ejemplo.. si tienes un boton que crea automaticamente tu combobox y lo llenas con un datatable.., y despues lo agregas a tu panel.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
...
'Conexion...
'dataAdapter...
....
Dim dt1 As DataTable

dt1 = New DataTable
dAdap.Fill(dt1)

Dim cmb As New ComboBox
cmb.DisplayMember = "TuText"
cmb.ValueMember = "TuValue"
cmb.DataSource = dt1
cmb.Name = "cmd1"

Panel1.Controls.Add(cmb)
End Sub

Y quieres obtner el valor de tu combobox.. con otro boton podría ser así:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

For Each c As Control In Panel1.Controls
If c.GetType().Name = "ComboBox" Then
Dim cmb As ComboBox = CType(c, ComboBox)
MessageBox.Show(cmb.SelectedValue)
Exit For
End If
Next
End Sub

Espero te sirva... es una idea..

Salu2

[noah_242]

Hola Rootk¡
Gracias por tu paciencia,mira este es mi codigo,este me genera automaticamente los label y los textbox(Voy a cambiar los combobox por texbox):

Private Sub frm_registros_tras_agregar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



a = 0
y = 75
x = 0


Me.txt_fecha.Text = Today

Me.MySql_da_consulta_salas.Fill(DataSet2_consulta1 )
b = Me.DataSet2_consulta1.salas.Count

For a = 1 To b
'creamos la etiqueta
Dim prueba As New Label()

prueba.Location = New Point(25, y)
prueba.Text = Me.DataSet2_consulta1.salas.Rows(x).Item(1).ToStri ng
Me.Controls.Add(prueba)

'creamos los textbox
Dim mañana As New TextBox()
Dim tarde As New TextBox()

mañana.Location = New Point(150, y)
tarde.Location = New Point(250, y)
mañana.Name = "mañana" & x
tarde.Name = "tarde" & x
mañana.Height = 25
mañana.Width = 40
tarde.Height = 25
tarde.Width = 40


Me.Controls.Add(mañana)
Me.Controls.Add(tarde)

y = y + 25
x = x + 25
Next


aceptar.Location = New Point(500, 500)
aceptar.Text = "Aceptar"
Me.Controls.Add(aceptar)

End Sub


Pero el problema lo tengo cuando un usuario abre este Form y en los texbox empieza a meter datos y luego le da a aceptar para introducir esos datos en la BD,no se como hacer referencia a los texbox,t dejo el codigo que tengo en mi boton de Aceptar:




x = 0




Me.MySql_da_consulta_salas.Fill(DataSet2_consulta1 )
b = Me.DataSet2_consulta1.salas.Count


For a = 1 To b


'crea una nueva fila nueva y le da el conportamiento de trabajos
Dim fila As DataRow = DataSet11.registro_tras.NewRow


'asignamos los distintos campos a añadir


' aqui esta el problema--->> fila.Item("temperatura") =???????


'añadimos la nueva fila al dataset
DataSet11.registro_tras.Rows.Add(fila)

'actualizamos el adaptador para que la base de datos recoga los cambios

'DataSet12.ppersonal_l.AcceptChanges()
Me.MySql_da_registro_temperatura.Update(DataSet11, "registro_tras")
x = x + 1


Next


End Sub


Es que no tengo ni idea de como hacerlo,aparte solo llevo 1 mes programando en .net y no se si esto estara bien.

[noah_242]

Hola de nuevo a todos¡Gracias Rootk por tu codigo,lo he estado adaptando a lo que quiero hacer y me funciona solo con el primer textbox,si hago un bucle para que me guarde los valores de los textbox creados siempre me guarda el mismo valor,¿hay alguna manera de poder saltar a otro texbox y que me guarde el siguiente?¿ponerle una marca o algo asi?.Te dejo el codigo,por lo se guarda el primer valor,y algo mas animao estoy.Muchas gracioas de nuevo¡


Me.MySql_da_consulta_salas.Fill(DataSet2_consulta1 )
b = Me.DataSet2_consulta1.salas.Count


For a = 1 To b


Dim c As Control

For Each c In Panel1.Controls
If c.GetType().Name = "TextBox" Then
Dim mañana As TextBox = CType(c, TextBox)
'MessageBox.Show(mañana.Text)

'crea una nueva fila nueva y le da el conportamiento de trabajos
Dim fila As DataRow = DataSet11.registro_tras.NewRow


'asignamos los distintos campos a añadir


fila.Item("temperatura") = mañana.Text

'añadimos la nueva fila al dataset
DataSet11.registro_tras.Rows.Add(fila)

'actualizamos el adaptador para que la base de datos recoga los cambios

Me.MySql_da_registro_temperatura.Update(DataSet11, "registro_tras")


Exit For

End If
Next

Next

[noah_242]

Ya lo tengoooooooooooooo¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Vaya era la solucion mas facil y tonta,t cuento Rootk en la condicion If con solo poner

If c.GetType().Name = "TextBox" And c.Text <> "" Then

y luego al añadir el valor del textbox lo pongo en blano
c.Text=""
Con esto consigo que me salte y se meta en la base de datos
A lo mejor no es la mejor solucion,si tienes otra mejor(seguro q si) pues comentamelo.
Agradeceros a todos vuestra paciencia con un tipo que solo lleva un ratin en esto del VB.net
Os invitaria a una cerveza pero estoy muy lejos.Gracias a todos¡¡¡

[RootK]

Os invitaria a una cerveza pero estoy muy lejos.

No importa.., la tomamos online si quieres...jaja




Saludos y que bueno que ya quedó..

[noah_242]

Jejejjeje¡Pues si online la birra,si que me hace falta ahora¡
Bueno pues gracias,solo no hubiera podio con esto ni de broma¡.Ahora voy a pregunta otra cosita mas arriba jejeje¡Saludos¡¡

[fjenguidanos]

Iniciado por RootK

Porque no creas un panel en tu win form y ahi le agregas el control combobox..

Por ejemplo.. si tienes un boton que crea automaticamente tu combobox y lo llenas con un datatable.., y despues lo agregas a tu panel.



Y quieres obtner el valor de tu combobox.. con otro boton podría ser así:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click



Espero te sirva... es una idea..

Salu2

Hola RootK: He estado probando tu sugerencia en entorno CFramework y no consigo que el combobox adquiera el origen de datos del dataset, podrías ampliar el código de ejemplo con la conexión y la definición del dataset, por favor?

Un saludo y muchas gracias.