Невозможно сохранить новую строку в базе данных из-за исключения OleDbException с использованием VB.NET
Как следует из названия, у меня возникла проблема, и я не могу найти ее причину.
Imports System
Imports System.Data.OleDb
Public Class Register
Dim con As New OleDbConnection
Dim strProvider As String
Dim strDataSource As String
Dim tables As DataTableCollection
Dim source1 As New BindingSource
Dim strSQL As String
Dim dt As New DataTable
Dim ds As New DataSet
Dim da As New OleDbDataAdapter
Private Sub btnBack_Click(sender As Object, e As EventArgs) Handles btnBack.Click
Me.Close()
SRS_Main_Menu.Show()
End Sub
Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
strDataSource = "Data Source = C:\Users\WORK\Documents\vb.net db files\questionThreeDB1.mdb"
strProvider = "PROVIDER= Microsoft.JET.OLEDB.4.0;"
con.ConnectionString = strProvider & strDataSource
tables = ds.Tables
strSQL = "SELECT * FROM questionThreeTbl"
da = New OleDbDataAdapter(strSQL, con)
da.Fill(ds, "Students")
Dim cb As New OleDbCommandBuilder(da)
Dim dsNewRow As DataRow
dsNewRow = ds.Tables("Students").NewRow()
dsNewRow.Item(1) = txtId.Text()
dsNewRow.Item(2) = txtName.Text()
dsNewRow.Item(3) = txtSurname.Text()
dsNewRow.Item(4) = txtCellNum.Text()
dsNewRow.Item(5) = txtParCell.Text()
dsNewRow.Item(6) = txtAddress.Text()
ds.Tables("Students").Rows.Add(dsNewRow)
da.Update(ds, "Students")
MsgBox("New Student Record Saved")
Me.Close()
SRS_Main_Menu.Show()
End Sub
End Class
В основном, когда я выбираю кнопку отправки, появляется ошибка, указывающая на строку:
da.Update(ds, "Students")
В нем говорится, что есть проблема с моим утверждением INSERT INTO. Любые подсказки относительно того, что здесь происходит?