沒有價值 - 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發現列名（區）