アクセスデータベース - 'Single'のエラー

Question

SingleRoom = dr("Single").ToStringという行から「Single」というエラーが表示されます。私は長い間プログラミングしていません。私は、最新の日付（Last Modified）のデータベースを検索し、同じ行の他のフィールドのデータをラベルとして表示することができるようにします。

Dim PriceFound As String = False 
    MyConn = New OleDbConnection 
    MyConn.ConnectionString = connString 
    MyConn.Open() 


    str1 = ("SELECT `Last Modified` FROM [Prices] ORDER BY `Last Modified` DESC") 


    Dim cmd1 As OleDbCommand = New OleDbCommand(str1, MyConn) 

    dr = cmd1.ExecuteReader 

    While dr.Read() 

     PriceFound = True 
     DateDisplay = dr("Last Modified").ToString 
     SingleRoom = dr("Single").ToString 
     DoubleRoom = dr("Double").ToString 
     FamilyRoom = dr("Family").ToString 
     AdultPrice = dr("Adult").ToString 
     ChildPrice = dr("Child").ToString 

     If PriceFound = True Then 
      LblPriceAdult.Text = AdultPrice 
      LblPriceChild.Text = ChildPrice 
      LblPriceDoubleRoom.Text = DoubleRoom 
      LblPriceFamilyRoom.Text = FamilyRoom 
      LblPriceSingleRoom.Text = SingleRoom 
     End If 
    End While 
    MyConn.Close() 

Answer 1

あなたのクエリは、おそらく次のようになります。

"SELECT * FROM [Prices] ORDER BY `Last Modified` DESC" 

...それはSELECT句内の他の列/フィールドを取得するように。現在のクエリは、Last Modified列のみを取得します。

また=====

、あなたが特定の列のみを選択したい場合は、クエリでこれを行うことができます：

注列の順序は、ませ重要であること - 私はこの例であなたのリストにマッチしました。

"SELECT `Last Modified`, Single, Double, Family, Adult, Child FROM [Prices] ORDER BY `Last Modified` DESC"