rows.add access数据库vb.net

Question

我正在构建一个使用access数据库的应用程序。我可以成功地添加一个新行，但是当我添加第二行时，我得到了错误：

System.Data.ConstraintException occurred in System.Data.dll

Column "Name" is constrained to be unique.  Value "katy" is already present.

数据库中只有一条记录的Name值为Kevin，因此值katy不存在。

代码如下：

Public Class Checkin
Dim checkin As Camping_databaseDataSet.CampingRow
Private Sub Checkin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    arrivalpick.Text = DateAndTime.Now
    checkin = Camping_databaseDataSet.Camping.NewCampingRow()
    CampingTableAdapter.Fill(Camping_databaseDataSet.Camping)
    Camping_databaseDataSet.Camping.NewCampingRow()
End Sub

Private Sub BtnSaveRecord_Click(sender As Object, e As EventArgs) Handles BtnSaveRecord.Click
    checkin.ArrivalDate = CDate(arrivalpick.Text)
    checkin.City = txtcity.Text
    If chkconnection.Checked = True Then
        checkin.Connection = True
    Else
        checkin.Connection = False
    End If
    checkin.Country = txtcountry.Text
    checkin.Name = txtname.Text
    checkin.NoAdults = adultcount.Text
    checkin.NoCaravan = caravancount.Text
    checkin.NoChildren = childcount.Text
    checkin.NoDogs = dogcount.Text
    checkin.NoGrey = greycount.Text
    checkin.NoMobilhome = mobilhomecount.Text
    checkin.NoShowercoins = showercoincount.Text
    checkin.NoTent = tentcount.Text
    checkin.NoTransport = transportcount.Text
    checkin.NoYellow = yellowcount.Text
    checkin.Street = txtstreet.Text
    checkin.EndEdit()
    Camping_databaseDataSet.Camping.Rows.Add(checkin)
    Me.CampingTableAdapter.Update(Me.Camping_databaseDataSet)
    Camping_databaseDataSet.Camping.AcceptChanges()
    End Sub
End Class

我做错了什么？

​

​

​

​

Answer 1

问题出在表格本身。

我有一个名为"name“的列，这是Access中的保留对象。

通过改变它，问题就解决了。