Private Sub Button1_Click（ByVal sender As System.Object，ByVal e As System.EventArgs）Handles Button1.Click cs =“Provider = Microsoft.ACE.OLEDB.12.0; Data Source = | DataDirectory | \ coder.accdb”con = New OleDbConnection （cs）con.Open（）cmd =新OleDbCommand（“INSERT INTO学生信息（'”txtid.Text“'，'”txtroll.Text“'，'”txtfname.Text“'，'”txtlname.Text“' ，'“txtpclass.Text”'，'“txtpname.Text”'，'“txtmname.Text”'，'“txtfoccupation.Text”'，'“txtmoccupation.Text”'，'“txtaddress.Text”'，' “txtcontact.Text”'，'“txtlandl.Text”'，'“txtpschool.Text”'）“，con）
Dim i As Integer = cmd.ExecuteNonQuery
If (i >= 0) Then
MessageBox.Show("Data saved Successfully", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("Data not saved Successfully", "Unsuccessfull!", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error)
End If
con.Close()
End Sub
1 回答
insert语句缺少VALUES关键字 . 见：https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2007/bb208861(v=office.12)
要么：