Добрый вечер.
Я хочу вставить данные в таблицу в БД SQL. У меня есть поле со значениями "5" и "6". Когда вы щелкаете одно или другое в поле со списком, я хочу, чтобы эти значения были вставлены в базу данных (MS SQL Server 2008). У меня также есть некоторые текстовые поля, которые привязаны правильно и не имеют проблем. Проблема связана с привязками (я полагаю) поля со списком. Я получаю sql исключение.
Вот фрагмент. Любая помощь будет оценена. Спасибо
Private Sub BindFields()
txtSurname.DataBindings.Add("Text", ObjDataView, "surname")
txtName.DataBindings.Add("Text", ObjDataView, "name")
cboColor.DataBindings.Add(cboColor.SelectedValue.ToString, ObjDataView, "color")
End Sub
Private Sub Customers_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cboColor.Items.Add("5")
cboColor.Items.Add("6")
FillDataSetAndView()
BindFields()
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Dim objCommand As SqlCommand = New SqlCommand()
Dim intPosition As Integer
intPosition = objCurrencyManager.Position
ObjConnection.Open()
objCommand.Connection = ObjConnection
objCommand.CommandText = "INSERT INTO tblCustomers" & "(name, surname, color)" & "VALUES(@name,@surname,@color);"
objCommand.Parameters.AddWithValue("@name", txtName.Text)
objCommand.Parameters.AddWithValue("@surname", txtSurname.Text)
objCommand.Parameters.AddWithValue("@color", cboColor.SelectedValue.ToString)
Try
objCommand.ExecuteNonQuery()
Catch SqlExceptionErr As SqlException
MessageBox.Show(SqlExceptionErr.Message)
End Try
ObjConnection.Close()
FillDataSetAndView()
BindFields()
objCurrencyManager.Position = intPosition
ShowPosition()
End Sub