2

我在 VB.NET 中有一个项目，如下所示

Public Class MCARegis
    Dim con As New OleDb.OleDbConnection()

    Private Sub MCARegis_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim da As OleDb.OleDbDataAdapter
        Dim dbprovider As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Taher\Documents\Visual Studio 2010\Projects\WindowsApplication1\WindowsApplication1\Database1.accdb;Persist Security Info=False;"
        Me.con = New OleDb.OleDbConnection()
        con.ConnectionString = dbprovider
        con.Open()
        MsgBox("opened")
    End Sub

    Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click

        Try
            Dim da As OleDb.OleDbDataAdapter
            Dim dbprovider As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Taher\Documents\Visual Studio 2010\Projects\WindowsApplication1\WindowsApplication1\Database1.accdb;Persist Security Info=False;"
            Me.con = New OleDb.OleDbConnection()
            con.ConnectionString = dbprovider
            con.Open()

            Dim sqlquery As String = "INSERT INTO MCA (URno,SName,Fname,CAddress,)" + "VALUES (" & CInt(txtUrn.Text) & ",'" & txtName.Text & "','" & txtFname.Text & "','" & txtCAdd.Text & "');"
            Dim sqlcommand As New OleDb.OleDbCommand(sqlquery)

            With sqlcommand
                .CommandText = sqlquery
                .Connection = con
                .ExecuteNonQuery()
            End With
            MsgBox("Record Added")
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub

End Class

当我尝试在 Insert into 语句中添加值时出现错误，对此有何建议？system.data.oledb.oledbexception：system.data.oledb.command.exceutecommandtexterrorhandling（oledbhresult hr）处的 INSERT INTO 语句中的语法错误 system.data.oledb.oledbcommand.executecommandtext（object&executeresult）......

在 system.data.oledb.oledbcomamand.executenonquery()

在第 29 行。

提前致谢....

4

1 回答 1

3

替换"INSERT INTO MCA (URno,SName,Fname,CAddress,)"为"INSERT INTO MCA (URno,SName,Fname,CAddress)"。您指定了一个多余的逗号

于 2013-02-20T04:36:34.433 回答