晚上好。 我想插入数据到SQL DB中的表中。我有一个值为“5”和“6”的组合框。当您单击组合框中的一个或另一个时,我希望将这些值插入到数据库(MS SQL Server 2008)中。我也有一些文本框是很有约束力的,并且没有问题。问题在于组合框的绑定(我猜)。我得到了sql异常。将组合框的值插入到SQL Server数据库表中Visual Basic 2010(Visual Studio 2010)
这是一段代码。感谢
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
什么是你得到的例外呢?详细信息,我的意思是.. – Isuru 2012-02-07 17:07:32
'vba'标记与此有什么关系? – Fionnuala 2012-02-07 17:15:02
它在这里命中:objCommand.Parameters.AddWithValue(“@ color”,cboColor.SelectedValue.ToString)。 NullReference异常未处理。有任何想法吗?感谢您的快速回复btw – Pantheo 2012-02-07 17:35:33