Autor
Mensagem
Postado em: 18/7/2011 9:58:13 AM
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.
Postado em: 18/7/2011 10:13:52 AM
puxa é mesmo como faço para editar ou excluir esse post
Postado em: 18/7/2011 10:14:45 AM
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,
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.
Postado em: 18/7/2011 11:15:25 AM
por gentileza moderador você poderia excluir esse tópico para eu refaze-lo
Postado em: 18/7/2011 11:26:14 AM
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,
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.
Postado em: 18/7/2011 11:35:49 AM
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?
Postado em: 18/7/2011 3:53:48 PM
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.
Postado em: 18/7/2011 4:28:13 PM
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.
#Código
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
#Código
Postado em: 18/7/2011 5:54:02 PM
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'.
2013 - Todos os Direitos Reservados a web-03