Ver Mensaje Individual
  #2 (permalink)  
Antiguo 16/03/2012, 11:36
Avatar de stuart_david3
stuart_david3
 
Fecha de Ingreso: agosto-2011
Mensajes: 215
Antigüedad: 12 años, 8 meses
Puntos: 1
Respuesta: Meter valores de radiobutton a SQL!!!...

Pues gracias a Dios ya está, este es el código que utilicé para los radiobutton a sql:

Código vb:
Ver original
  1. Imports System.Data
  2. Imports System.Data.SqlClient
  3. Partial Class Encuesta
  4.     Inherits System.Web.UI.Page
  5.  
  6.     Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
  7.         Try
  8.             Dim values As ArrayList = New ArrayList()
  9.             Dim conn As SqlConnection = New SqlConnection("server=10.11.2.49;database=DBPRUEBA;User ID=sa;Password=administrador;Trusted_Connection=no")
  10.             Dim sql As String = "INSERT into EncuestaCFE (Pregunta1a, Pregunta1b, Pregunta1c, Pregunta2a, Pregunta2b, Pregunta2c, Pregunta3a, Pregunta3b, Pregunta3c, Pregunta4a, Pregunta4b, Pregunta4c, Pregunta5a, Pregunta5b, Pregunta5c, Pregunta6a, Pregunta6b, Pregunta6c, Pregunta7a, Pregunta7b, Pregunta7c, Pregunta8a, Pregunta8b, Pregunta8c, Pregunta9a, Pregunta9b, Pregunta9c, Pregunta10a, Pregunta10b, Pregunta10c) values (@Pregunta1a,@Pregunta1b,@Pregunta1c,@Pregunta2a,@Pregunta2b,@Pregunta2c,@Pregunta3a,@Pregunta3b,@Pregunta3c,@Pregunta4a,@Pregunta4b,@Pregunta4c,@Pregunta5a,@Pregunta5b,@Pregunta5c,@Pregunta6a,@Pregunta6b,@Pregunta6c,@Pregunta7a,@Pregunta7b,@Pregunta7c,@Pregunta8a,@Pregunta8b,@Pregunta8c,@Pregunta9a,@Pregunta9b,@Pregunta9c,@Pregunta10a,@Pregunta10b,@Pregunta10c)"
  11.             Dim dr As New SqlCommand(sql, conn)
  12.             conn.Open()
  13.             dr.Parameters.AddWithValue("@Pregunta1a", Radio1G1.Checked)
  14.             dr.Parameters.AddWithValue("@Pregunta1b", Radio2G1.Checked)
  15.             dr.Parameters.AddWithValue("@Pregunta1c", Radio3G1.Checked)
  16.             dr.Parameters.AddWithValue("@Pregunta2a", Radio1G2.Checked)
  17.             dr.Parameters.AddWithValue("@Pregunta2b", Radio2G2.Checked)
  18.             dr.Parameters.AddWithValue("@Pregunta2c", Radio3G2.Checked)
  19.             dr.Parameters.AddWithValue("@Pregunta3a", Radio1G3.Checked)
  20.             dr.Parameters.AddWithValue("@Pregunta3b", Radio2G3.Checked)
  21.             dr.Parameters.AddWithValue("@Pregunta3c", Radio3G3.Checked)
  22.             dr.Parameters.AddWithValue("@Pregunta4a", Radio1G4.Checked)
  23.             dr.Parameters.AddWithValue("@Pregunta4b", Radio2G4.Checked)
  24.             dr.Parameters.AddWithValue("@Pregunta4c", Radio3G4.Checked)
  25.             dr.Parameters.AddWithValue("@Pregunta5a", Radio1G5.Checked)
  26.             dr.Parameters.AddWithValue("@Pregunta5b", Radio2G5.Checked)
  27.             dr.Parameters.AddWithValue("@Pregunta5c", Radio3G5.Checked)
  28.             dr.Parameters.AddWithValue("@Pregunta6a", Radio1G6.Checked)
  29.             dr.Parameters.AddWithValue("@Pregunta6b", Radio2G6.Checked)
  30.             dr.Parameters.AddWithValue("@Pregunta6c", Radio3G6.Checked)
  31.             dr.Parameters.AddWithValue("@Pregunta7a", Radio1G7.Checked)
  32.             dr.Parameters.AddWithValue("@Pregunta7b", Radio2G7.Checked)
  33.             dr.Parameters.AddWithValue("@Pregunta7c", Radio3G7.Checked)
  34.             dr.Parameters.AddWithValue("@Pregunta8a", Radio1G8.Checked)
  35.             dr.Parameters.AddWithValue("@Pregunta8b", Radio2G8.Checked)
  36.             dr.Parameters.AddWithValue("@Pregunta8c", Radio3G8.Checked)
  37.             dr.Parameters.AddWithValue("@Pregunta9a", Radio1G9.Checked)
  38.             dr.Parameters.AddWithValue("@Pregunta9b", Radio2G9.Checked)
  39.             dr.Parameters.AddWithValue("@Pregunta9c", Radio3G9.Checked)
  40.             dr.Parameters.AddWithValue("@Pregunta10a", Radio1G10.Checked)
  41.             dr.Parameters.AddWithValue("@Pregunta10b", Radio2G10.Checked)
  42.             dr.Parameters.AddWithValue("@Pregunta10c", Radio3G10.Checked)
  43.             dr.ExecuteNonQuery()
  44.         Catch ex As Exception
  45.             MsgBox(ex.Message.ToString)
  46.             MsgBox("No se pudo cargar la base de datos")
  47.         End Try
  48.     End Sub
  49. End Class

Lo pongo por si a alguien le sirve. Ahora viene lo bueno, como puedo generar una gráfica en base a las respuestas que tengo almacenadas en la base de datos??... Existe alguna función que me ayude?? Por lo pronto seguiré buscando, pero agradecería mucho su ayuda...

Y una pregunta más aunque esa no me urge tanto es solo para tener más conocimientos sobre el tema... Es necesario que pase "cada posible respuesta de cada pregunta" a mi base de datos con una columna para cada una, o solo una columna por pregunta? Es decir, tengo 30 columnas (3 respuestas de 10 preguntas), de alguna manera se podrá hacer solo 10 columnas para cada posible respuesta?? Esto, como dije, no me urge tanto por que al parecer asi funciona mi "encuesta a medias", quisiera saber de preferencia lo de las gráficas, pero lo digo por si alguien sabe, o si es posible...

De nuevo gracias anticipadas!!!...