我不知道我的代码有什么问题,当我添加数据然后保存时,出现此错误。仅供参考,我使用 Visual Basic 语言。
[1][这是我代码的错误] [1][https://i.stack.imgur.com/sxSie.png]
Private Sub TsSave_Click(sender As Object, e As EventArgs) Handles TsSave.Click
If aksi = "insert" Then
TBL_BukuTableAdapter.InsertQuery(txtJudulBuku.Text, txtPengarang.Text, txtPenerbit.Text, txtTahunTerbit.Text, txtkategori.Text)
TsRefresh.Text = "Refresh"
Else
TBL_BukuTableAdapter.UpdateQuery(txtJudulBuku.Text, txtPengarang.Text, txtPenerbit.Text, txtTahunTerbit.Text, txtkategori.Text, txtIdbuku.Text)
End If
Me.TBL_BukuTableAdapter.Fill(Me.UASDataSet.TBL_Buku)
TsAdd.Enabled = True
TsDelete.Enabled = True
TsSearch.Enabled = True
aksi = "update"
End Sub
这是我的完整代码
Public Class Form1
Dim aksi As String = "update"
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'UASDataSet.TBL_Buku' table. You can move, or remove it, as needed.
Me.TBL_BukuTableAdapter.Fill(Me.UASDataSet.TBL_Buku)
txtIdbuku.ReadOnly = True
End Sub
Private Sub TsAdd_Click(sender As Object, e As EventArgs) Handles TsAdd.Click
TsAdd.Enabled = False
TsDelete.Enabled = False
TsSearch.Enabled = False
TsRefresh.Text = "Cancel"
aksi = "insert"
TBLBukuBindingSource.AddNew()
txtIdbuku.Text = TBL_BukuTableAdapter.IdBukuBaru()
txtJudulBuku.Focus()
End Sub
Private Sub TsSave_Click(sender As Object, e As EventArgs) Handles TsSave.Click
If aksi = "insert" Then
TBL_BukuTableAdapter.InsertQuery(txtJudulBuku.Text, txtPengarang.Text, txtPenerbit.Text, txtTahunTerbit.Text, txtkategori.Text)
TsRefresh.Text = "Refresh"
Else
TBL_BukuTableAdapter.UpdateQuery(txtJudulBuku.Text, txtPengarang.Text, txtPenerbit.Text, txtTahunTerbit.Text, txtkategori.Text, txtIdbuku.Text)
End If
Me.TBL_BukuTableAdapter.Fill(Me.UASDataSet.TBL_Buku)
TsAdd.Enabled = True
TsDelete.Enabled = True
TsSearch.Enabled = True
aksi = "update"
End Sub
Private Sub TsDelete_Click(sender As Object, e As EventArgs) Handles TsDelete.Click
If MessageBox.Show("Delete Data?", "Confirm", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
TBL_BukuTableAdapter.DeleteQuery(txtIdbuku.Text)
Me.TBL_BukuTableAdapter.Fill(Me.UASDataSet.TBL_Buku)
End If
End Sub
Private Sub TsRefresh_Click(sender As Object, e As EventArgs) Handles TsRefresh.Click
TsRefresh.Text = "Refresh"
Me.TBL_BukuTableAdapter.Fill(Me.UASDataSet.TBL_Buku)
End Sub
Private Sub TsSearch_Click(sender As Object, e As EventArgs) Handles TsSearch.Click
If TxtKeyword.Text <> "" Then
TBL_BukuTableAdapter.FillByJudulBuku(UASDataSet.TBL_Buku, TxtKeyword.Text)
End If
End Sub
End Class
编辑:我只是添加Id_buku
到此代码。但它仍然不起作用[这是代码][2] [2][https://i.stack.imgur.com/i3RRQ.png]
If aksi = "insert" Then TBL_BukuTableAdapter.InsertQuery(txtid_buku.text,txtJudulBuku.Text, txtPengarang.Text, txtPenerbit.Text, txtTahunTerbit.Text, txtkategori.Text)
好的伙计们,我刚刚找到了为什么出错的答案。我认为当想要添加一些列时,主键不能设置为身份增量......是否正确?我只是将身份增量设置为NO,最后我解决了问题...... :)
如果我错了纠正我...
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句