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()语句。

任何返回读者的函数都不应该假定调用代码会对它做什么，只是不加修改地返回它。