none
La cadena de entrada no tiene el formato correcto.No se puede almacenar <string> en la columna nombre_curso. El tipo esperado es Int32. RRS feed

  • Pregunta

  • Soy nuevo en VB y estuve haciendo algunos ejercicios y de la nada.. este error. En la base de datos puse id_curso,nombre_curso.... nombre curso tipo Text.

    Imports System.Data
    Imports System.Data.SqlClient
    Public Class añadir_curso
        Private DtCurso As New escuelaDataSet.cursosDataTable
        Private TaCurso As New escuelaDataSetTableAdapters.cursosTableAdapter
        Dim x, y, z As String
        Private Sub CursosBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
            Me.Validate()
            Me.CursosBindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.EscuelaDataSet)
    
        End Sub
    
        Private Sub añadir_curso_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            'TODO: esta línea de código carga datos en la tabla 'EscuelaDataSet.cursos' Puede moverla o quitarla según sea necesario.
            Me.CursosTableAdapter.Fill(Me.EscuelaDataSet.cursos)
        End Sub
    
        Private Sub añadir_curso_box_TextChanged(sender As Object, e As EventArgs) Handles añadir_curso_box.TextChanged
    
        End Sub
        Private Sub añadir_curso_btn_Click(sender As Object, e As EventArgs) Handles añadir_curso_btn.Click
            x = añadir_curso_box.Text
            DtCurso = TaCurso.NoRepeatNombreCurso(x)
            If DtCurso.Count = 0 Then
                MsgBox("Curso Agregado Correctamente.")
                Me.CursosTableAdapter.Insert(x)
                Me.CursosTableAdapter.Fill(Me.EscuelaDataSet.cursos)
            Else
                MsgBox("Este Curso ya existe.")
            End If
        End Sub
        Private Sub CursosBindingNavigatorSaveItem_Click_1(sender As Object, e As EventArgs) Handles CursosBindingNavigatorSaveItem.Click
            Me.Validate()
            Me.CursosBindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.EscuelaDataSet)
    
        End Sub
    End Class
    Ayudenme porfas

    miércoles, 13 de enero de 2016 21:34

Respuestas