方法：レコード数を持たないデータエリアを使用する

Question

現代の言語を使用して古いスタイルのCOBOL/RPGレポートを生成する能力を失っているようです。

レコードの数に依存するDataReaderを使用してコードを表示することがよくあります。したがって、必要でない場合には、追加の集計クエリが存在します。

このコードでは、ほとんどの状況で、利用可能な別のレコードがあるかどうかを知る必要があります。言い換えれば、私が最後のレコードにいるかどうかを教えて、レコードセパレータを表示することができます。次のように

単純なアルゴリズムは次のようになります。

Dim available As Boolean = rdr.Read() 
While available 
    DisplaySearchRecord(rdr) 
    available = rdr.Read() 
    If available Then DisplaySeparator() 
End While 

してください、このアルゴリズムでは簡単な変更で十分だろうときCOUNT（*）またはデータテーブル/データセットを使用しないでください。

Answer 1

whileの後にセパレータを表示しないのはなぜですか？

While rdr.Read() 
     DisplaySearchRecord(rdr) 
    End While 
    DisplaySeparator() 

Answer 2

あなたは（）を呼び出すreader.Read維持する必要があり、この

Dim IsFirst As Boolean = True 

While rdr.Read() 
    If Not IsFirst 
    DisplaySeparator() 
    Else 
    IsFirst = False 
    End If 

    DisplaySearchRecord(rdr) 
End While 

Answer 3

ような何かを試すことができ、それ以上のレコードが存在しない場合にはfalseを返します。

は、だから私はどうなるのかList<YourRecord>にDBからデータをダンプし、私はリストが取り込まれた後に...ループ（私は++）のためにそれを反復処理し、list.Count

に対して私がチェックしています