none
Debe declarar la variable escalar "@TipoDocu_P". RRS feed

  • Pregunta

  • Private Sub btn_Guardar_Padre_Click(sender As Object, e As EventArgs) Handles btn_Guardar_Padre.Click

            Try

                Dim Documento As String = txt_Documento_Alumno.Text
                Dim TipoDocumento As String = txt_Tipo_Documento_Alumno.Text

                Dim conexion As SqlConnection = New SqlConnection("Server=FELIX-PC; database=COLEGIO MILITAR; Integrated security=true")
                Dim comprobar As String = String.Format("SELECT COUNT(*) FROM PADRES where Documento=@Documento and Tipo_de_Documento=@TipoDocumento", conexion)
                Dim comando As SqlCommand = New SqlCommand(comprobar, conexion)
                comando.Parameters.AddWithValue("@Documento", Documento)
                comando.Parameters.AddWithValue("@TipoDocumento", TipoDocumento)

                comando.Connection = conexion
                comando.Connection.Open()

                Dim contador As Integer = CInt(comando.ExecuteScalar())

                If contador = 0 Then

                    Dim Nombre_P As String = txt_Nombre_P.Text
                    Dim Apellidos_P As String = txt_Apellidos_P.Text
                    Dim Documento_P As String = txt_Documento_P.Text
                    Dim TipoDocu_P As String = cmb_Tipo_Documento_P.Text
                    Dim Direccion_P As String = txt_Direccion_P.Text
                    Dim Direccion_Empleo_P As String = txt_Direccion_Empleo_P.Text
                    Dim Estudios_P As String = cmb_Estudios_P.Text
                    Dim Ocupacion_P As String = txt_Ocupacion_P.Text
                    Dim Nivel_Economico_P As String = cmb_Nivel_Economico_P.Text
                    Dim EstadoCivil_P As String = cmb_Estado_Civil_P.Text
                    Dim Telefono_P As String = txt_Telefono_P.Text
                    Dim Celular_P As String = txt_Celular_P.Text
                    Dim Email_P As String = txt_Email_P.Text
                    Dim Observaciones_P As String = txt_Observaciones_P.Text

                    comando.Parameters.Clear()

                    comando.CommandText = "insert into PADRES (Nombre_P, Apellidos_P, Documento_P, Tipo_de_Documento_P, Direccion_P, Direccion_Empleo_P, Estudios_P, Ocupacion_P, Telefono_P, Celular_P, Email_P, Nivel_Economico_P, Estado_Civil_P, Observaciones_P) values(@Nombre_P, @Apellidos_P, @Documento_P, @TipoDocu_P, @Direccion_P, @Direccion_Empleo_P, @Estudios_P, @Ocupacion_P, @Telefono_P, @Celular_P, @Email_P, @Nivel_Economico_P, @Estado_Civil_P, @Observaciones_P)"

                    comando.Parameters.AddWithValue("@Nombre_P", Nombre_P)
                    comando.Parameters.AddWithValue("@Apellidos_P", Apellidos_P)
                    comando.Parameters.AddWithValue("@Documento_P", Documento_P)
                    comando.Parameters.AddWithValue("@Tipo_de_Documento_P", TipoDocu_P)
                    comando.Parameters.AddWithValue("@Direccion_P", Direccion_P)
                    comando.Parameters.AddWithValue("@Direccion_Empleo_P", Direccion_Empleo_P)
                    comando.Parameters.AddWithValue("@Estudios_P", Estudios_P)
                    comando.Parameters.AddWithValue("@Ocupacion_P", Ocupacion_P)
                    comando.Parameters.AddWithValue("@Telefono_P", Telefono_P)
                    comando.Parameters.AddWithValue("@Celular_P", Celular_P)
                    comando.Parameters.AddWithValue("@Email_P", Email_P)
                    comando.Parameters.AddWithValue("@Nivel_Economico_P", Nivel_Economico_P)
                    comando.Parameters.AddWithValue("@Estado_Civil_P", EstadoCivil_P)
                    comando.Parameters.AddWithValue("@Observaciones_P", Observaciones_P)

                    comando.ExecuteNonQuery()
                    comando.Connection.Close()

                Else


                End If

            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try

        End Sub

    • Editado felixmlj martes, 25 de febrero de 2014 17:25
    martes, 25 de febrero de 2014 17:22

Respuestas

  • Está mal el nombre del parámetro. Añades al command un parámetro que se llama "@Tipo_de_Documento_P", pero en la sentencia el parámetro se llama "@TipoDocu_P".
    • Marcado como respuesta felixmlj miércoles, 26 de febrero de 2014 1:14
    martes, 25 de febrero de 2014 18:31