Maestra

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, Imports System.Data
Imports System.Data.SqlClient
Partial Class Encuesta
Inherits System.Web.UI.PageProtected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim values As ArrayList = New ArrayList()
Dim conn As SqlConnection = New SqlConnection("server=10.11.2.49;database=DBPRUEBA;User ID=sa;Password=administrador;Trusted_Connection=no")
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)"
Dim dr As New SqlCommand(sql, conn)
conn.Open()
dr.Parameters.AddWithValue("@Pregunta1a", Radio1G1.Checked)dr.Parameters.AddWithValue("@Pregunta1b", Radio2G1.Checked)
dr.Parameters.AddWithValue("@Pregunta1c", Radio3G1.Checked)
dr.Parameters.AddWithValue("@Pregunta2a", Radio1G2.Checked)
dr.Parameters.AddWithValue("@Pregunta2b", Radio2G2.Checked)
dr.Parameters.AddWithValue("@Pregunta2c", Radio3G2.Checked)
dr.Parameters.AddWithValue("@Pregunta3a", Radio1G3.Checked)
dr.Parameters.AddWithValue("@Pregunta3b",Radio2G3.Checked)
dr.Parameters.AddWithValue("@Pregunta3c", Radio3G3.Checked)
dr.Parameters.AddWithValue("@Pregunta4a", Radio1G4.Checked)
dr.Parameters.AddWithValue("@Pregunta4b", Radio2G4.Checked)
dr.Parameters.AddWithValue("@Pregunta4c", Radio3G4.Checked)
dr.Parameters.AddWithValue("@Pregunta5a", Radio1G5.Checked)
dr.Parameters.AddWithValue("@Pregunta5b", Radio2G5.Checked)dr.Parameters.AddWithValue("@Pregunta5c", Radio3G5.Checked)
dr.Parameters.AddWithValue("@Pregunta6a", Radio1G6.Checked)
dr.Parameters.AddWithValue("@Pregunta6b", Radio2G6.Checked)
dr.Parameters.AddWithValue("@Pregunta6c", Radio3G6.Checked)
dr.Parameters.AddWithValue("@Pregunta7a", Radio1G7.Checked)
dr.Parameters.AddWithValue("@Pregunta7b", Radio2G7.Checked)
dr.Parameters.AddWithValue("@Pregunta7c", Radio3G7.Checked)dr.Parameters.AddWithValue("@Pregunta8a", Radio1G8.Checked)
dr.Parameters.AddWithValue("@Pregunta8b", Radio2G8.Checked)
dr.Parameters.AddWithValue("@Pregunta8c", Radio3G8.Checked)
dr.Parameters.AddWithValue("@Pregunta9a", Radio1G9.Checked)
dr.Parameters.AddWithValue("@Pregunta9b", Radio2G9.Checked)
dr.Parameters.AddWithValue("@Pregunta9c", Radio3G9.Checked)dr.Parameters.AddWithValue("@Pregunta10a", Radio1G10.Checked)
dr.Parameters.AddWithValue("@Pregunta10b", Radio2G10.Checked)
dr.Parameters.AddWithValue("@Pregunta10c", Radio3G10.Checked)
dr.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message.ToString)
MsgBox("No se pudo cargar la base de datos")
End Try
End Sub
End Class
ECONOMÍA FORMAL E INFORMAL
En el caso de la economía formal podemos decir que se correspondecon todas las actividades económicas, que se generan en un territorio determinado y bajo ciertas restricciones legales que regulan el cumplimiento de ciertos postulados (leyes) que ordenan la convivencia social organizada; y protegen a los trabajadores a través de la seguridad social (asignaciones familiares, entre otras), como así también de las eventualidades o contingencias mientras se está...