rows.add訪問數據庫vb.net

Question

我正在構建一個使用訪問數據庫的應用程序。 我可以成功添加新行，但是當我添加第二行時出現錯誤：

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

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

數據庫中只有1條記錄，名稱值為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

問題出在表本身。

我有一列稱為“名稱”，這是Access中的保留對象。

通過更改它，問題得以解決。