没有为一个或多个所需参数给出值- Excel
本文关键字:参数 Excel 一个 | 更新日期: 2023-09-27 18:18:27
sql1 = "SELECT distinct(Area) FROM (" + tablename + ")"
Dim ds_area As New DataSet
Dim da_area As New OleDb.OleDbDataAdapter(sql1, MyConnection)
da_area.Fill(ds_area)
Me.ListBox1.DataSource = Nothing
Me.ListBox1.Items.Clear()
Me.ListBox1.DataSource = ds_area.Tables(0)
Me.ListBox1.DisplayMember = "Area"
Me.ListBox1.ValueMember = "Area"
Me.ListBox1.SelectedIndex = 0
Me.cmbArea.Items.Insert(0, "Select All")
For i = 0 To ds_area.Tables(0).Rows.Count() - 1
Me.cmbArea.Items.Add(ds_area.Tables(0).Rows(i)(0).ToString)
Next
Me.cmbArea.SelectedIndex = 0
Catch ex As Exception
MsgBox(ex.Message)
End Try
错误报告显示"No value given for一个或多个必需的参数"
您不需要在tablename
周围加上括号。同样,tablename
是否有一个有效值?您是否试过逐步执行代码以查看抛出错误的是哪一行?
我认为这个查询是正确的。
我发现了和你一样的错误
此时,它找不到列名(Area)