salvar CheckBoxList no banco com asp.net(vb) + mysql
Ola pessoal estou tentando salvar com um CheckBoxList as opções que eu selecionei nele, em um banco mysql ja procurei no google e em vários foruns por ai mas ninguém conseguiu me ajudar eu coloquei ele dentro de um for e checkando quais estão atualizados mas ai ta o problema o insert fora do loop funciona mas dentro não o que estou fazendo de errado segue o código que estou usando para fazer o insert com o checkbox,
poxa pessoal alguém pode me ajudar?
Atenciosamente.
If Not Page.IsPostBack Then Dim myConnString As MySqlConnection Dim daMySQl As MySqlDataAdapter Dim dsDataset As DataSet Dim mySelectQuery, erro As String 'myConnString = New MySqlConnection("server=localhost; user id=root; password=root; database=banco_sistema") myConnString = New MySqlConnection("server=mysql.mr2digital.com.br; user id=mr2digital; password=mr234567; database=mr2digital") mySelectQuery = "select id_redes, rede_nome from proposta_rede;" daMySQl = New MySqlDataAdapter(mySelectQuery, myConnString) dsDataset = New DataSet daMySQl.Fill(dsDataset, "proposta_rede") redesSociais.DataSource = dsDataset redesSociais.DataBind() myConnString.Close() Dim i For i = 0 To redesSociais.Items.Count - 1 If redesSociais.Items(i).Selected Then Dim objConn1 As MySql.Data.MySqlClient.MySqlConnection Dim objCmd1 As MySql.Data.MySqlClient.MySqlCommand Dim strConnString1, strSQL1 As String strConnString1 = "Server=mysql.mr2digital.com.br;User Id=mr2digital; Password=mr234567; Database=mr2digital; Pooling=false" objConn1 = New MySql.Data.MySqlClient.MySqlConnection(strConnString1) objConn1.Open() '*** FOR INSERT ***' strSQL1 = "INSERT INTO proposta_rede_item (id_proposta,id_redes ) " & _ "VALUES (?id_proposta,?id_redes )" objCmd1 = New MySql.Data.MySqlClient.MySqlCommand(strSQL1, objConn1) With objCmd1 .Parameters.Add(New MySqlParameter("id_redes", redesSociais.Items(i).Value)) .Parameters.Add(New MySqlParameter("id_proposta", Session("idProposta"))) End With objCmd1.ExecuteNonQuery() objCmd1 = Nothing objConn1.Close() objConn1 = Nothing End If Next End If
poxa pessoal alguém pode me ajudar?
Atenciosamente.
Rafael Tejeda
Curtidas 0
Respostas
Evandro Lopes
18/07/2011
Rafael, bom dia.
Antes de mais nada, tente atualizar o código q disponibilizou em cima e retire isso: myConnString = New MySqlConnection("....."), pois vc esta expondo para o pessoal algo que não deveria.
Segundo, poste o erro que esta ocorrendo.
Abraços.
GOSTEI 0
Rafael Tejeda
18/07/2011
puxa é mesmo como faço para editar ou excluir esse post
GOSTEI 0
Rafael Tejeda
18/07/2011
Ola pessoal estou tentando salvar com um CheckBoxList as opções que eu selecionei nele, em um banco mysql ja procurei no google e em vários foruns por ai mas ninguém conseguiu me ajudar eu coloquei ele dentro de um for e checkando quais estão atualizados mas ai ta o problema o insert fora do loop funciona mas dentro não o que estou fazendo de errado segue o código que estou usando para fazer o insert com o checkbox,
poxa pessoal alguém pode me ajudar?
Atenciosamente.
If Not Page.IsPostBack Then Dim myConnString As MySqlConnection Dim daMySQl As MySqlDataAdapter Dim dsDataset As DataSet Dim mySelectQuery, erro As String mySelectQuery = "select id_redes, rede_nome from proposta_rede;" daMySQl = New MySqlDataAdapter(mySelectQuery, myConnString) dsDataset = New DataSet daMySQl.Fill(dsDataset, "proposta_rede") redesSociais.DataSource = dsDataset redesSociais.DataBind() myConnString.Close() Dim i For i = 0 To redesSociais.Items.Count - 1 If redesSociais.Items(i).Selected Then Dim objConn1 As MySql.Data.MySqlClient.MySqlConnection Dim objCmd1 As MySql.Data.MySqlClient.MySqlCommand Dim strConnString1, strSQL1 As String strConnString1 = "Server=mysql.mr2digital.com.br;User Id=mr2digital; Password=mr234567; Database=mr2digital; Pooling=false" objConn1 = New MySql.Data.MySqlClient.MySqlConnection(strConnString1) objConn1.Open() '*** FOR INSERT ***' strSQL1 = "INSERT INTO proposta_rede_item (id_proposta,id_redes ) " & _ "VALUES (?id_proposta,?id_redes )" objCmd1 = New MySql.Data.MySqlClient.MySqlCommand(strSQL1, objConn1) With objCmd1 .Parameters.Add(New MySqlParameter("id_redes", redesSociais.Items(i).Value)) .Parameters.Add(New MySqlParameter("id_proposta", Session("idProposta"))) End With objCmd1.ExecuteNonQuery() objCmd1 = Nothing objConn1.Close() objConn1 = Nothing End If Next End If
poxa pessoal alguém pode me ajudar?
Atenciosamente.
GOSTEI 0
Rafael Tejeda
18/07/2011
por gentileza moderador você poderia excluir esse tópico para eu refaze-lo
GOSTEI 0
Evandro Lopes
18/07/2011
Ola pessoal estou tentando salvar com um CheckBoxList as opções que eu selecionei nele, em um banco mysql ja procurei no google e em vários foruns por ai mas ninguém conseguiu me ajudar eu coloquei ele dentro de um for e checkando quais estão atualizados mas ai ta o problema o insert fora do loop funciona mas dentro não o que estou fazendo de errado segue o código que estou usando para fazer o insert com o checkbox,
poxa pessoal alguém pode me ajudar?
Atenciosamente.
If Not Page.IsPostBack Then Dim myConnString As MySqlConnection Dim daMySQl As MySqlDataAdapter Dim dsDataset As DataSet Dim mySelectQuery, erro As String 'myConnString = New MySqlConnection("server=localhost; user id=root; password=root; database=banco_sistema") mySelectQuery = "select id_redes, rede_nome from proposta_rede;" daMySQl = New MySqlDataAdapter(mySelectQuery, myConnString) dsDataset = New DataSet daMySQl.Fill(dsDataset, "proposta_rede") redesSociais.DataSource = dsDataset redesSociais.DataBind() myConnString.Close() Dim i For i = 0 To redesSociais.Items.Count - 1 If redesSociais.Items(i).Selected Then Dim objConn1 As MySql.Data.MySqlClient.MySqlConnection Dim objCmd1 As MySql.Data.MySqlClient.MySqlCommand Dim strConnString1, strSQL1 As String strConnString1 = "Server=mysql.mr2digital.com.br;User Id=mr2digital; Password=mr234567; Database=mr2digital; Pooling=false" objConn1 = New MySql.Data.MySqlClient.MySqlConnection(strConnString1) objConn1.Open() '*** FOR INSERT ***' strSQL1 = "INSERT INTO proposta_rede_item (id_proposta,id_redes ) " & _ "VALUES (?id_proposta,?id_redes )" objCmd1 = New MySql.Data.MySqlClient.MySqlCommand(strSQL1, objConn1) With objCmd1 .Parameters.Add(New MySqlParameter("id_redes", redesSociais.Items(i).Value)) .Parameters.Add(New MySqlParameter("id_proposta", Session("idProposta"))) End With objCmd1.ExecuteNonQuery() objCmd1 = Nothing objConn1.Close() objConn1 = Nothing End If Next End If
poxa pessoal alguém pode me ajudar?
Atenciosamente.
GOSTEI 0
Evandro Lopes
18/07/2011
Bom, não encontro nenhum jeito d excluir topico ou alterar...
Bizarro isso...
Bom troque sua senha no mySQl.
Cole aki o erro que esta ocorrendo.
flw.
GOSTEI 0
Rafael Tejeda
18/07/2011
pois é não tem, e alterado as configurações pois é o erro não acontece ele simplesmente não executa o insert no banco dentro do for agora não sei se é o for ou o if que nao ta executando o insert do banco eu fiz um teste fora dele no evento click funciona então o problema não é com o banco nem com o insert e pelo pouco de resposta que tive no google que vi em alguns tutoriais a logica para salvar um CheckBoxList no banco seria esse?
você poderia me ajudar meu amigo?
você poderia me ajudar meu amigo?
GOSTEI 0
Fabio Rosa
18/07/2011
Olá Rafael,
Não sei se vou te ajudar, mas já tive problemas quando eu utilizei a opção ? nos parâmetros de só funcionar se eu declarar os parâmetros na ordem que serão utilizados.
Vi que vc utiliza o parâmetro "id_proposta" depois o "id_redes" porém declara primeiro o parâmetro "id_redes" depois o "id_proposta"
tente inverter....só uma tentativa...
Att.
GOSTEI 0
Rafael Tejeda
18/07/2011
ta dificil, muito obrigado meu amigo pela ajuda mas tb nao funcionou eu fiz outro teste com o código abaixo para mostrar os itens que selecionei e tb nao funciona, o que pode ser.
[CODE] Dim i As Integer For i = 0 To Me.cbl_redesSociais.Items.Count - 1
If Me.cbl_redesSociais.Items(i).Selected Then
Me.erro_message.Text = Me.erro_message.Text & "," & Me.cbl_redesSociais.Items(i).Text
End If
Next[CODE]
[CODE] Dim i As Integer For i = 0 To Me.cbl_redesSociais.Items.Count - 1
If Me.cbl_redesSociais.Items(i).Selected Then
Me.erro_message.Text = Me.erro_message.Text & "," & Me.cbl_redesSociais.Items(i).Text
End If
Next[CODE]
GOSTEI 0
Fabio Rosa
18/07/2011
Olá Rafael,
Aqui está o código que vc está precisando:
For i = 0 To CheckedListBox1.CheckedItems.Count - 1 MessageBox.Show(CheckedListBox1.CheckedItems(i).ToString()) Next
Fiz o teste e ele exibe os Text das opções checadas.
Veja se isto te ajuda...
Att.
GOSTEI 0
Rafael Tejeda
18/07/2011
caro amigo eu coloquei la no meu código ele da a seguinte mensagem
Error 18 'CheckedItems' is not a member of 'System.Web.UI.WebControls.CheckBoxList'.
GOSTEI 0
Fabio Rosa
18/07/2011
Desculpe Rafael....esqueci que vc está usando ASP .NET
Em ASP .NET fiz assim e funcionou.....
Dim MyItem As ListItem Label1.Text = " " For Each MyItem In CheckBoxList1.Items If MyItem.Selected Then Label1.Text += MyItem.Text + " " End If Next
Em ASP .NET fiz assim e funcionou.....
Dim MyItem As ListItem Label1.Text = " " For Each MyItem In CheckBoxList1.Items If MyItem.Selected Then Label1.Text += MyItem.Text + " " End If Next
GOSTEI 0