没有价值 - Excel中

Question

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 

错误报告显示

Answer 1

你不需要围绕tablename括号“没有一个或铁道部要求的参数给定值”。另外，tablename是否有有效值？你有没有尝试单步执行代码，看看哪一行是抛出错误？

Answer 2

我认为这个查询是正确的。

我捉住了相同的错误你

当时，它cannt发现列名（区）