none
INSERTAR el valor de un checkbox a una base de datos de access que tiene formato de celda VERDADERO/FALSO RRS feed

  • Pregunta

  •  'CREAMOS LAS VARIABLES PARA LUEGO RELACIONARLAS CON LOS TEXBOX:::::::::::

            Dim cedula As String = ""
            Dim sello1 As Boolean = False
            Dim sello2 As Boolean = False
            Dim sello3 As Boolean = False
            Dim sello4 As Boolean = False
            Dim sello5 As Boolean = False
            Dim sello6 As Boolean = False
            Dim sello7 As Boolean = False
            Dim sello8 As Boolean = False
            Dim sello9 As Boolean = False
            Dim sello10 As Boolean = False
            Dim sello11 As Boolean = False
            Dim sello12 As Boolean = False
            Dim sello13 As Boolean = False
            Dim sello14 As Boolean = False
            Dim sello15 As Boolean = False

            'ASIGNAMOS CADA VARIABLE A CADA TEXTBOX:::::::::::::::::::::

            cedula = Caficultorsocio.txtCedulapersonas.Text
            sello1 = Caficultorsocio.ChFairtrade.Checked
            sello2 = Caficultorsocio.ChRainforest.Checked
            sello3 = Caficultorsocio.ChStarbucks.Checked
            sello4 = Caficultorsocio.ChUtz.Checked
            sello5 = Caficultorsocio.ChAvesysombra.Checked
            sello6 = Caficultorsocio.ChEurepgap.Checked
            sello7 = Caficultorsocio.Chregionales.Checked
            sello8 = Caficultorsocio.ChExoticos.Checked
            sello9 = Caficultorsocio.Chdefinca.Checked
            sello10 = Caficultorsocio.Chdeconservacion.Checked
            sello11 = Caficultorsocio.Chsocial.Checked
            sello12 = Caficultorsocio.ChOrganico.Checked
            sello13 = Caficultorsocio.ChSelecto.Checked
            sello14 = Caficultorsocio.ChSupremo.Checked
            sello15 = Caficultorsocio.ChCaracol.Checked

            'INSERTAMOS TODOS LOS DATOS A UNA VARIABLE PARA LUEGO INSERTAR LOS DATOS A LA BASE DE DATOS::::::::::.

            cmd2.CommandType = CommandType.Text
            cmd2.Connection = ConAsociados

            sqlAsociadosSellos = "INSERT INTO SELLOS (CEDULA, FAIRTRADE, RAINFOREST, STARBUCKS, UTZ, AVESOSOMBRA, EUREPGAP, REGIONALES, EXOTICOS, DEFINCA, DECONSERVACION, SOCIALES, ORGANICOS, SELECTO, SUPREMO, CARACOL) "
            sqlAsociadosSellos += "VALUES (" & cedula & ",'" & sello1 & "','" & sello2 & "','" & sello3 & "','" & sello4 & "','" & sello5 & "','" & sello6 & "','" & sello7 & "','" & sello8 & "', "
            sqlAsociadosSellos += "'" & sello9 & "','" & sello10 & "','" & sello11 & "','" & sello12 & "','" & sello13 & "','" & sello14 & "','" & sello15 & "')"

            cmd2.CommandText = sqlAsociados

            'REGISTRAMOS EN LA BASE DE DATOS:::::::::::::::

            Try
                cmd2.ExecuteNonQuery()
                MsgBox("REGISTRO DE SELLOS INSERTADO CORRECTAMENTE", MsgBoxStyle.Information, "REGISTRO")
            Catch ex As Exception

                If (ex.ToString.Contains("0x80004005")) Then
                    MsgBox("LA PERSONA YA EXISTE EN LA BASE DE DATOS SELLOS", MsgBoxStyle.Critical, "ERROR DE REGISTRO")
                ElseIf (ex.ToString.Contains("0x80040E14")) Then
                    MsgBox("NO HA DIGITADO NINGÚN DATO ", MsgBoxStyle.Critical, "ERROR DE REGISTRO")
                Else
                    MsgBox(ex.ToString)
                End If

            End Try

        End Sub

    - con este código no logro que se seleccione la celda de la base de datos 

         
    domingo, 14 de mayo de 2017 1:39

Respuestas

  • Hola,

    Me parece que no le estás mandando el nombre correcot en tu commandtext, por otro lado te recomendaría cambiar la forma de enviar tus parámetros. Toma lo siguiente:

            Try
                Dim sqlAsociadosSellos As String = "INSERT INTO SELLOS (CEDULA, FAIRTRADE, RAINFOREST, STARBUCKS, UTZ, AVESOSOMBRA, EUREPGAP, REGIONALES, EXOTICOS, DEFINCA, DECONSERVACION, SOCIALES, ORGANICOS, SELECTO, SUPREMO, CARACOL) " & _
                                               "VALUES (@cedula,@sello1,@sello2,@sello3,@sello4,@sello5,@sello6,@sello7,@sello8,@sello9,@sello10,@sello11,@sello12,@sello13,@sello14,@sello15)"
                Dim cmd2 As New SqlCommand(sqlAsociadosSellos, ConAsociados)
                cmd2.Parameters.AddWithValue("@cedula", cedula)
                cmd2.Parameters.AddWithValue("@sello1", sello1)
                cmd2.Parameters.AddWithValue("@sello2", sello2)
                cmd2.Parameters.AddWithValue("@sello3", sello3)
                cmd2.Parameters.AddWithValue("@sello4", sello4)
                cmd2.Parameters.AddWithValue("@sello5", sello5)
                cmd2.Parameters.AddWithValue("@sello6", sello6)
                cmd2.Parameters.AddWithValue("@sello7", sello7)
                cmd2.Parameters.AddWithValue("@sello8", sello8)
                cmd2.Parameters.AddWithValue("@sello9", sello9)
                cmd2.Parameters.AddWithValue("@sello10", sello10)
                cmd2.Parameters.AddWithValue("@sello11", sello11)
                cmd2.Parameters.AddWithValue("@sello12", sello12)
                cmd2.Parameters.AddWithValue("@sello13", sello13)
                cmd2.Parameters.AddWithValue("@sello14", sello14)
                cmd2.Parameters.AddWithValue("@sello15", sello15)
                ConAsociados.Open()
                cmd2.ExecuteNonQuery()
                MsgBox("REGISTRO DE SELLOS INSERTADO CORRECTAMENTE", MsgBoxStyle.Information, "REGISTRO")
                ConAsociados.Close()
            Catch ex As Exception
                If (ex.ToString.Contains("0x80004005")) Then
                    MsgBox("LA PERSONA YA EXISTE EN LA BASE DE DATOS SELLOS", MsgBoxStyle.Critical, "ERROR DE REGISTRO")
                ElseIf (ex.ToString.Contains("0x80040E14")) Then
                    MsgBox("NO HA DIGITADO NINGÚN DATO ", MsgBoxStyle.Critical, "ERROR DE REGISTRO")
                Else
                    MsgBox(ex.ToString)
    End If
    Finally
    ConAsociados.Close() End Try

    Manéjalo así, pasando los parámetros de esa forma y el bloque de Try Catch en ese modo. Tampoco olvides abrir y cerrar la conexión.

    Saludos


    Si ayudé a resolver tu consulta, no olvides marcar como respuesta y/o votar como útil.




    domingo, 14 de mayo de 2017 2:43