[Resolvido] checkboxlist para o bd usando vb

[cintiadel 0]

Como mandar todos os campos selecionados num checkboxlist para um campo no banco de dados?

Alguem tem um exemplo?

[quintelab 91]

Mas como você pretende salvar isso no seu banco de dados?

Em um único campo? Em vários campos? Qual tipo de campo?

 

Abraços...

[cintiadel 0]

Mas como você pretende salvar isso no seu banco de dados?

Em um único campo? Em vários campos? Qual tipo de campo?

 

Abraços...

em um unico campo varchar, tipo 1,5,7(que seriam o valor das opcoes)

[quintelab 91]

De uma olhada nesse tópico:

http://forum.imasters.com.br/index.php...hl=checkboxlist

 

Só substitua a quebra de linha por virgula.

 

Abraços...

[cintiadel 0]

De uma olhada nesse tópico:

http://forum.imasters.com.br/index.php...hl=checkboxlist

 

Só substitua a quebra de linha por virgula.

 

Abraços...

sim eu já tinha visto esse tópico, mas onde eu coloco isso?

[cintiadel 0]

De uma olhada nesse tópico:

http://forum.imasters.com.br/index.php...hl=checkboxlist

 

Só substitua a quebra de linha por virgula.

 

Abraços...

tem como jogar numa session?

[cintiadel 0]

De uma olhada nesse tópico:

http://forum.imasters.com.br/index.php...hl=checkboxlist

 

Só substitua a quebra de linha por virgula.

 

Abraços...

tah dando o seguinte erro:

Operator '&' is not defined for string "Insert into tabela (questao" and type 'CheckBoxList'.

coloquei o codigo abaixo no evento do botao enviar:

Dim pos As CheckBoxList = cbl_pos.FindControl("cbl_pos") ' Recuperamos nosso checkboxlist
		' Navegamos nos itens do checkboxlist para verificar quais estão selecionados
		For i As Integer = 0 To pos.Items.Count - 1
			If pos.Items(i).Selected Then
				Response.Write("Item Selecionado: " & pos.Items(i).Text & ",")
			End If
		Next

[quintelab 91]

Você terá que alimentar uma variável, e no seu insert passar o valor dessa variável entre aspas simples.

 

Abraços...

[cintiadel 0]

Você terá que alimentar uma variável, e no seu insert passar o valor dessa variável entre aspas simples.

 

Abraços...

ainda nao consegui pode me ajudar

 

Dim pos As CheckBoxList = cbl_pos.FindControl("cbl_pos") ' Recuperamos nosso checkboxlist
		' Navegamos nos itens do checkboxlist para verificar quais estão selecionados
		For i As Integer = 0 To pos.Items.Count - 1
			If pos.Items(i).Selected Then
				Response.Write("Item Selecionado: " & pos.Items(i).Text & ",")
			End If
		Next

		sqlGrava.InsertCommand = "Insert into tabela (questao,tipo_questao,resposta,ra) values (33,1,'pos','" & Session("ra") & "')"
		sqlGrava.Insert()

[quintelab 91]

Mas pra que você esta usando esse Response.Write ????

Era pra você se basear no modelo, copialo fielmente não resolve seu problema.

 

Dim SUA_VARIAVEL as string = ""
Dim pos As CheckBoxList = cbl_pos.FindControl("cbl_pos") ' Recuperamos nosso checkboxlist
' Navegamos nos itens do checkboxlist para verificar quais estão selecionados
For i As Integer = 0 To pos.Items.Count - 1
	If pos.Items(i).Selected Then
		SUA_VARIAVEL = SUA_VARIAVEL & pos.Items(i).Text
	End If
Next

sqlGrava.InsertCommand = "Insert into tabela (questao,tipo_questao,resposta,ra) values (33,1,'pos','" & SUA_VARIAVEL & "')"
 sqlGrava.Insert()

Abraços...

[cintiadel 0]

Mas pra que você esta usando esse Response.Write ????

Era pra você se basear no modelo, copialo fielmente não resolve seu problema.

 

Dim SUA_VARIAVEL as string = ""
Dim pos As CheckBoxList = cbl_pos.FindControl("cbl_pos") ' Recuperamos nosso checkboxlist
' Navegamos nos itens do checkboxlist para verificar quais estão selecionados
For i As Integer = 0 To pos.Items.Count - 1
	If pos.Items(i).Selected Then
		SUA_VARIAVEL = SUA_VARIAVEL & pos.Items(i).Text
	End If
Next

sqlGrava.InsertCommand = "Insert into tabela (questao,tipo_questao,resposta,ra) values (33,1,'pos','" & SUA_VARIAVEL & "')"
 sqlGrava.Insert()

Abraços...

desculpe minha ignorancia mas o qu devo colocar entre as "" nessa linha Dim SUA_VARIAVEL as string = ""

eu ja nao estou declarando na linha abaixo?

não entendi tbm pq de sua_variavel = sua_variavel

obrigada

[cintiadel 0]

Mas pra que você esta usando esse Response.Write ????

Era pra você se basear no modelo, copialo fielmente não resolve seu problema.

 

Dim SUA_VARIAVEL as string = ""
Dim pos As CheckBoxList = cbl_pos.FindControl("cbl_pos") ' Recuperamos nosso checkboxlist
' Navegamos nos itens do checkboxlist para verificar quais estão selecionados
For i As Integer = 0 To pos.Items.Count - 1
	If pos.Items(i).Selected Then
		SUA_VARIAVEL = SUA_VARIAVEL & pos.Items(i).Text
	End If
Next

sqlGrava.InsertCommand = "Insert into tabela (questao,tipo_questao,resposta,ra) values (33,1,'pos','" & SUA_VARIAVEL & "')"
 sqlGrava.Insert()

Abraços...

tah dando erro String or binary data would be truncated. The statement has been terminated.

o campo na tabela é varchar

[quintelab 91]

Truncate por que você esta tentando inserir algum registro que é maior que o campo suporta. Tipo você tem um campo com varchar de 5 e esta tentando inserir um texto de 10.

 

Abraços...

[cintiadel 0]

Truncate por que você esta tentando inserir algum registro que é maior que o campo suporta. Tipo você tem um campo com varchar de 5 e esta tentando inserir um texto de 10.

 

Abraços...

eu devo estar passando a variavel de forma errada agora gravou & q33 & no banco, o campo tah como varchar de 50

meu codigo esta assim agora:

Dim q33 As String = ""
		Dim pos As CheckBoxList = cbl_pos.FindControl("cbl_pos") ' Recuperamos nosso checkboxlist
		' Navegamos nos itens do checkboxlist para verificar quais estão selecionados
		For i As Integer = 0 To pos.Items.Count - 1
			If pos.Items(i).Selected Then
				q33 = q33 & pos.Items(i).Text
			End If
		Next
		sqlGrava.InsertCommand = "Insert into tabela (questao,tipo_questao,resposta,ra) values (33,1,' & q33 & ','" & Session("ra") & "')"
		sqlGrava.Insert(

[cintiadel 0]

Truncate por que você esta tentando inserir algum registro que é maior que o campo suporta. Tipo você tem um campo com varchar de 5 e esta tentando inserir um texto de 10.

 

Abraços...

ele tah pegando a opcao inteira e nao somente o valor do checkboxlist, como faço pra mudar

[quintelab 91]

Troque a propriedade Text pela propriedade Value.

 

Abraços...

[cintiadel 0]

Troque a propriedade Text pela propriedade Value.

 

Abraços...

funcionou mas fica tudo junto os valores, eu queria separar por vírgula como eu faço?

[quintelab 91]

No momento em que você alimenta sua variável concatene com a virgula.

 

Abraços...

[cintiadel 0]

No momento em que você alimenta sua variável concatene com a virgula.

 

Abraços...

Está apresentando erro com a vírgula, será que estou colocando no lugar certo

Erro: Incorrect syntax near ','.

Dim q33 As String = ""
		Dim pos As CheckBoxList = cbl_pos.FindControl("cbl_pos") ' Recuperamos nosso checkboxlist
		' Navegamos nos itens do checkboxlist para verificar quais estão selecionados
		For i As Integer = 0 To pos.Items.Count - 1
			If pos.Items(i).Selected Then
				q33 = q33 & "," & pos.Items(i).Value
			End If
		Next

[quintelab 91]

Mas este erro não é nesse código que você postou. Este erro é de banco, provavelmente no seu insert.

Você colocou sua variável entre aspas simples??

 

Abraços...