Question

Private Sub Button1_Click（ByVal sender As System.Object，ByVal e As System.EventArgs）Handles Button1.Click cs =＆＃34; Provider = Microsoft.ACE.OLEDB.12.0; Data Source = | DataDirectory | \ coder.accdb＆＃34; con =新的OleDbConnection（cs） con.Open（） cmd =新的OleDbCommand（＆＃34;插入学生信息（＆＃39;＆＃34; + txtid.Text +＆＃34;＆＃39;＆＃39;＆＃34; + txtroll.Text +＆＃34;＆＃39;，＆＃39;＆＃34; + txtfname.Text +＆＃34;＆＃39;，＆＃39;＆＃34; + txtlname.Text +＆＃34;＆＃39 ;，＆＃39;＆＃34; + txtpclass.Text +＆＃34;＆＃39;，＆＃39;＆＃34; + txtpname.Text +＆＃34;＆＃39;，＆＃39; ＆＃34; + txtmname.Text +＆＃34;＆＃39;，＆＃39;＆＃34; + txtfoccupation.Text +＆＃34;＆＃39;，＆＃39;＆＃34; + txtmoccupation .Text +＆＃34;＆＃39;，＆＃39;＆＃34; + txtaddress.Text +＆＃34;＆＃39;，＆＃39;＆＃34; + txtcontact.Text +＆＃34 ;＆＃39;，＆＃39;＆＃34; + txtlandl.Text +＆＃34;＆＃39;，＆＃39;＆＃34; + txtpschool.Text +＆＃34;＆＃39;）＆＃34;，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

Answer 1

insert语句缺少VALUES关键字。请参阅：https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2007/bb208861(v=office.12)

insert into myTable values (val1, val2, val3, ...)

或者：

insert into myTable (col1, col2, col3, ...) values (col1, col2, col3, ...)

INSERT INTO语句中的语法错误。

1 个答案: