Question

如果我在表单中删除ListBox，那么它将成功运行.. 我的代码是：

    Try
        Dim sqlconn As New OleDb.OleDbConnection
        Dim sqlquery As New OleDb.OleDbCommand
        Dim connString As String
        connString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\MyLaptop\Documents\dtbsform.accdb"
        sqlconn.ConnectionString = connString
        sqlquery.Connection = sqlconn
        sqlconn.Open()


        sqlquery.Parameters.AddWithValue("@Name", nmTB.Text)

        If maleRB.Checked Then
            sqlquery.Parameters.AddWithValue("@gen", maleRB.Text)
        Else
            sqlquery.Parameters.AddWithValue("@gen", femaleRB.Text)
        End If


        For i As Integer = 0 To 3
            If courseDDL.SelectedIndex = i Then
                sqlquery.Parameters.AddWithValue("@cor", courseDDL.SelectedItem.ToString)
            End If
        Next


        For i As Integer = 0 To langLB.Items.Count - 1
            If langLB.SelectedIndex = i Then
                sqlquery.Parameters.AddWithValue("@lang", langLB.SelectedItem.ToString)
                MsgBox(langLB.SelectedItem.ToString)
            End If
        Next


        For i As Integer = 1 To 2
        If crktCB.Checked = True Then
            sqlquery.Parameters.AddWithValue("@favs", crktCB.Text)
        ElseIf ftblCB.Checked = True Then
            sqlquery.Parameters.AddWithValue("@favs", ftblCB.Text)
        End If
        Next


        For i As Integer = 0 To 2
            If hobCBL.SelectedIndex = i Then
                sqlquery.Parameters.AddWithValue("@hob", hobCBL.SelectedItem.ToString)
            End If
        Next


        For i As Integer = 0 To 2
            If clgRBL.SelectedIndex = i Then
                sqlquery.Parameters.AddWithValue("@clg", clgRBL.SelectedItem.ToString)
            End If
        Next

        sqlquery.CommandText = "INSERT INTO dtbs (Name,Gender,Course,Language,Sports,Hobbies,College) VALUES (@Name,@gen,@cor,@lang,@favs,@hob,@clg)"
        sqlquery.ExecuteNonQuery()
        sqlconn.Close()
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try

Answer 1

尝试更改

sqlquery.Parameters.AddWithValue("@lang", langLB.SelectedItem.ToString)

到

sqlquery.Parameters.AddWithValue("@lang", langLB.SelectedItem.Text)

数据库插入查询vb.net中的语法错误

1 个答案: