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