Array
(
)

salvar CheckBoxList no banco com asp.net(vb) + mysql

Rafâo
   - 18 jul 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,
#Código

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.

Evandro Lopes
   - 18 jul 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.

Rafâo
   - 18 jul 2011

puxa é mesmo como faço para editar ou excluir esse post

Rafâo
   - 18 jul 2011



Citação:
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,
#Código

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. 

Rafâo
   - 18 jul 2011

por gentileza moderador você poderia excluir esse tópico para eu refaze-lo

Evandro Lopes
   - 18 jul 2011


Citação:
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,
#Código


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.

Evandro Lopes
   - 18 jul 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.

Rafâo
   - 18 jul 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?

Fabio Rosa
   - 18 jul 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.

Rafâo
   - 18 jul 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.
[tagcod]    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[tagcod]

Fabio Rosa
   - 18 jul 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.

Rafâo
   - 18 jul 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'.

Fabio Rosa
   - 18 jul 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