gravar CheckBoxList no banco

[Rafael Tejeda 0]

galera estou tentando gravar CheckBoxList no banco mysql com aspnet vb ele gravada a

mensagem de gravado com sucesso mas no banco esta vazio nem cria o registro estou montando assim

 

carregaRedes()

       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)

               Dim id_rede As Integer = redesSociais.DataValueField = "id_redes"

               With objCmd1
                   .Parameters.Add(New MySqlParameter("id_redes", id_rede))
                   .Parameters.Add(New MySqlParameter("id_proposta", "005"))
               End With

               objCmd1.ExecuteNonQuery()

               objCmd1 = Nothing
               objConn1.Close()
               objConn1 = Nothing

           End If

       Next

 

e no carrega redes

 

Public Sub carregaRedes()

       Dim myConnString As MySqlConnection
       Dim daMySQl As MySqlDataAdapter
       Dim dsDataset As DataSet
       Dim mySelectQuery, erro As String

       Try

           '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.DataValueField = "id_redes"
           redesSociais.DataTextField = "rede_nome"
           redesSociais.DataBind()

           myConnString.Close()

       Catch ex As Exception

           erro_message.Text = ex.Message.ToString

           erro = ex.ToString
           erroEmail.enviaMensagemEmail(erro)

       End Try

   End Sub

 

ele até da mensagem da REDE CADASTRADA COM SUCESSO mas no banco não tem nada e nem cria nova linha nada

 

 

alguem pode me ajudar

 

att.

[Rafael Tejeda 0]

fazendo alguns teste descobri que quando o código dentro do for e do if ele ao executa a rotina para adião no baco alguém saberia me pedir pq?

 

 

código que estou usando

 

 

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", "1"))

               End With

               erro_message.Text = "Proposta cadastrada com sucesso id " & Session("idProposta")
               objCmd1.ExecuteNonQuery()

               objCmd1 = Nothing
               objConn1.Close()
               objConn1 = Nothing
           End If

       Next

 

 

alguém pode me ajudar?

[Rafael Tejeda 0]

pessoal eu descobri que o problema esta no meu for, mas não sei como resolver eu coloquei ele, alquém pode me ajudar

o código dentro de não executa agora não sei mesmo se é o for ou o if alguém pode me ajudar .

[quintelab 91]

Pq não entra? Qual condição não esta sendo atendida?

 

Abraços...