は、Excelシート

Question

から別のコンボボックスで選択を使用してコンボボックスを移入こんにちは私は別のコンボで選択された値を使用してコンボボックスを移入する必要があります。私が使用しているコーディングは、必要な出力を生成しません。私は "BaseStation" & "SectorID"と呼ばれる列を持つ優れたシートを持っています。 Combobox2は、選択したBaseStationに対して関連するセクタIDを表示する必要があります

以下のエラーが表示されます。 "クエリエラー 'BaseStation ='。

助けてください。コーディングは、以下に示す：

Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged 
    Using cn As New OleDb.OleDbConnection With _ 
      { _ 
       .ConnectionString = _ 
       <S> 
    provider=Microsoft.Jet.OLEDB.4.0; 
    Data Source=C:\WalkAir Customers.xls; 
    Extended Properties="Excel 8.0; HDR=Yes;" 
</S>.Value _ 
      } 
     Dim cmd As New OleDb.OleDbCommand 
     Dim dr As System.Data.IDataReader 

     cn.Open() 

     cmd = New OleDb.OleDbCommand() 
     cmd.Connection = cn 
     cmd.CommandText = "SELECT * FROM [Sheet1$] WHERE BaseStation=" & ComboBox1.Text 

     Dim dtData As New DataTable 
     dr = cmd.ExecuteReader 
     dtData.Load(dr) 
     dtData.Columns("SectorID").ColumnMapping = MappingType.Hidden 

     bsCustomers.DataSource = dtData 
    End Using 

    ComboBox2.DisplayMember = "SectorID" 
    ComboBox2.DataSource = bsCustomers 
End Sub 

Answer 1

基地局パラメータを単一引用符で囲む入れてみてください：

cmd.CommandText = "SELECT * FROM [Sheet1$] WHERE BaseStation='" & ComboBox1.Text & "'"