Idatareaders不返回從數據庫

Question

值在我隱藏我有這個VB：

Dim reader as idatareader = includes.SelectDepartmentID(PageID) 
     While reader.Read 
      Did = reader("departmentid") 
      GroupingHeading = reader("heading") 
      Folder = reader("folder") 
      If reader("OwnBanner") Is DBNull.Value Then 
       OwnBanner = String.Empty 
      Else 
       OwnBanner = reader("ownbanner") 
      End If 

然後在我的課，我有：正提交

Public Function SelectDepartmentID(ByVal PageID As Integer) As IDataReader 
     Dim Command As SqlCommand = db.GetSqlStringCommand("sql") 
     db.AddInParameter(Command, "@pageid", Data.DbType.Int32, PageID) 
     Dim reader As IDataReader = db.ExecuteReader(Command) 
     reader.Read() 
     Return reader 
    End Function 

沒有錯誤但沒有什麼是被返回讀者。我的代碼中有錯誤嗎？

謝謝。

Answer 1

嘗試移除從SelectDepartmentID的

reader.Read() 

線。

Answer 2

您正在跳過讀者的第一行。在return語句之前，刪除SelectDepartmentID函數中的reader.Read()語句。

任何返回讀者的函數都不應該假定調用代碼會對它做什麼，只是不加修改地返回它。