sql - 結果セットで指定された列が見つかりませんインデックス範囲外インデックス範囲外例外

Question

テキストボックスに値を入力するのに問題があります。チケットが販売されるたびに、合計金額をテキストボックスに入力します。同じコンサートでチケットが販売されるたびに、合計金額に自分自身を追加することでチケットが増加します。最初の販売では動作しますが、その後は故障します。これがコードです。よろしくお願いします。

 Private Function DisplayMoneyTaken() As Integer
    Dim totalMoney As Integer
    'open the database connection
    strSQL = "SELECT MAX(Total_Money) FROM Sales WHERE Concert_Id =" + Mid(cboVenue.Text, 1, 4)

    conn.Open()
    cmd.Connection = conn
    cmd.CommandText = strSQL
    cmd.CommandType = CommandType.Text

    dr = cmd.ExecuteReader()

    'read the record returned
    dr.Read()
    If IsDBNull(dr.Item(0)) Then
        totalMoney = txtPrice.Text
    Else
        DisplayMoneyTaken = dr.Item("Total_Money") + Val(txtPrice.Text)
    End If



    'close the database
    conn.Close()
    Return totalMoney

End Function

Answer 1

クエリに「Total_Money」という名前の列がないようです。クエリが返す単一の列に名前を付けていません。