無法在結果集索引中找到指定的列索引超出範圍索引超出範圍

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」的列。您沒有爲您的查詢返回的單個列命名。

Answer 2

邁克爾，

當使用聚合函數，它是必要的一個別名也分配給該列。 例如

strSQL = "SELECT MAX(Total_Money) as CaChing FROM Sales WHERE Concert_Id =" + Mid(cboVenue.Text, 1, 4) 

如果你不分配一個別名，服務器有時會分配一個。但是你必須知道或猜測它會是什麼。選擇一個合理的選擇會更好。

你也可以用一個數字來索引項目，這就是你在檢查NULL值時所做的。 訪問該值時可能使用了相同的語法。

DisplayMoneyTaken = dr.Item(0) + Val(txtPrice.Text)