如果我在表单中删除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
答案 0 :(得分:0)
尝试更改
sqlquery.Parameters.AddWithValue("@lang", langLB.SelectedItem.ToString)
到
sqlquery.Parameters.AddWithValue("@lang", langLB.SelectedItem.Text)