Título: Problemas con mi combobox en VB 2010 Publicado por: NecBalaam en 24 Septiembre 2011, 20:57 pm Saludos, mi problema es con mi combobox... lo cargo con este codigo en el FORM_LOAD:
Citar Sub combollenado() conexion.iniciar() conexion.Mysqlcon.Open() 'cmb_id.Items.Clear() 'cmb_id.DataSource = Nothing cmd = New MySqlCommand("select id from usuarios", conexion.Mysqlcon) da = New MySqlDataAdapter(cmd) da.Fill(ds) cmb_id.DataSource = ds.Tables(0) cmb_id.DisplayMember = ds.Tables(0).Columns(0).Caption.ToString conexion.Mysqlcon.Close() End Sub Me lo llena bien Citar (http://i288.photobucket.com/albums/ll194/SonidoAzul/combonormal.png) Y cuando le doy clic en el boton guardar Me sale de la siguiente manera: Citar (http://i288.photobucket.com/albums/ll194/SonidoAzul/Problemacombo.png) Alguien podria ayudarme porfavor.... :( Título: Re: Problemas con mi combobox en VB 2010 Publicado por: Rudy21 en 24 Septiembre 2011, 21:07 pm solo antes de llamar a combollenado
haz un combo clear y listo Título: Re: Problemas con mi combobox en VB 2010 Publicado por: Rudy21 en 24 Septiembre 2011, 21:10 pm Código: cmb_id.Items.Clear() Título: Re: Problemas con mi combobox en VB 2010 Publicado por: NecBalaam en 24 Septiembre 2011, 21:43 pm Código: cmb_id.Items.Clear() Gracias rudy pero mi problema creo que va mas alla que solo un .clear() :(... ve lo que me sale man :/ Citar (http://i288.photobucket.com/albums/ll194/SonidoAzul/limpiadoclear.png) y lo intento hacer con el cmb_id.DataSource = Nothing antes de llamarlo igual no me hace nada :/ Título: Re: Problemas con mi combobox en VB 2010 Publicado por: seba123neo en 24 Septiembre 2011, 21:47 pm lo que pasa es que vos estas relacionando el combo con un origen de datos, en este caso es un datatable con registros, para usar el clear() debes cargar los items recorriendo el datatable e insertando los registros con Combo.Items.Add, pero para cuando tenes relacionado un datatable creeria que con hacer Combo1.Datasource = Nothing se te limpia el combo.
saludos. Título: Re: Problemas con mi combobox en VB 2010 Publicado por: NecBalaam en 24 Septiembre 2011, 21:48 pm lo que pasa es que vos estas relacionando el combo con un origen de datos, en este caso es un datatable con registros, para usar el clear() debes cargar los items recorriendo el datatable e insertando los registros con Combo.Items.Add, pero para cuando tenes relacionado un datatable creeria que con hacer Combo1.Datasource = Nothing se te limpia el combo. saludos. lo intento hacer con el cmb_id.DataSource = Nothing antes de llamarlo igual no me hace nada :/ me pasa lo mismo... :( Título: Re: Problemas con mi combobox en VB 2010 Publicado por: .mokk. en 24 Septiembre 2011, 21:58 pm Bueno tambien veo que ahi pones
da.Fill(ds) intenta poniendo antes de eso ds = new DataSet() da.Fill(ds) Bueno talvez te funcione algo asi me sucedia a mi antes, pero lo arreglue algo asi, no recuerdo bien jeje Título: Re: Problemas con mi combobox en VB 2010 Publicado por: NecBalaam en 24 Septiembre 2011, 22:01 pm Bueno tambien veo que ahi pones da.Fill(ds) intenta poniendo antes de eso ds = new DataSet() da.Fill(ds) Bueno talvez te funcione algo asi me sucedia a mi antes, pero lo arreglue algo asi, no recuerdo bien jeje :O bendito seas .mokk! gracias :) me funciono :) Título: Re: Problemas con mi combobox en VB 2010 Publicado por: NecBalaam en 24 Septiembre 2011, 22:22 pm Creen que podrian ayudarme mas... "para no tener que crear temas nuevos..."
Tengo el boton de Editar... "connection must be valid and open" me sale ese error... con el siguiente codigo en el boton Editar :S: Citar txt_apellido.Enabled = True txt_nombre.Enabled = True txt_telefono.Enabled = True 'Dim cmd As MySqlCommand Dim lectura As MySqlDataReader Dim cmd As MySqlCommand = New MySqlCommand("Select * from usuarios where id=" & cmb_id.Text.ToString) Try cmd.Connection = conexion.Mysqlcon lectura = cmd.ExecuteReader lectura.Read() conexion.iniciar() conexion.Mysqlcon.Open() cmd = New MySqlCommand("UPDATE usuarios SET nombre= '" + txt_nombre.Text + "',apellido='" + txt_apellido.Text + "', telefono='" + txt_telefono.Text + "' WHERE id=" & cmd.ToString) MsgBox(cmd) cmd.ExecuteNonQuery() MsgBox("Se ha Actualizado satisfactoriamente", MsgBoxStyle.Information) Catch ex As Exception MsgBox(ex.Message) End Try End Sub Saben porque me sale ese error? :S |