はじめまして。
教えて頂きたいことがあります。

初めに私の勤務している会社では開発は全て外注に出している為に私自身プログラムの開発は
ほとんどできません。
（ソースを見るくらいのレベルです）
ですから説明に至らぬところが多々あるとは思いますが、その辺りを踏まえてご教授願えたらと思い
ます。

実行環境　VB5.0
         ORACLE 7.3.4
         WINDOWS NT 4.0

    ORACLEへの接続 OO4O

処理内容　VBの画面から伝票�ｂ�入力しその伝票データの内容を画面上に表示させる。

画面機能　Ｆ３　　KEY　データ検索
    Ｆ９　　KEY　画面クリア（Ｆ３で読み込んだデータをの画面クリア）
    Ｆ１０　KEY　終了

オラクル上に伝票データがあり、それを画面から伝票�ｂ�入力して該当するデータの内容を画面に
表示させるのですが、１伝票�ｂﾉ対して明細が２０行を超えると、なぜか画面には２０行しか
表示されません。
しかし一度Ｆ９の画面クリアを押した後に再度同じ伝票�ｂ�入力すると何故か今度は正しく表示され
ます。

この伝票内容検索の画面を立ち上げた後、一番最初に検索を行う伝票が２０行を超えた時だけ
こんな現象が発生します。

オラクルのテーブルから読んできたデータを画面に表示させる際に

WHILE NOT oraRST.EOF
（値を代入する処理）
WEND

で画面上の項目に代入していっているんですが

例えば２６行明細の伝票を検索した際、
画面を立ち上げた時の一回目のoraRST.RECORDCOUNT　は　２０（←これがおかしい！！）
                    ２回目以降は正しく２６と返ってきます。

また明細件数が２０行ぴったりだった場合は
oraRST.RECORDCOUNTは２０なんですがWHILE 〜 WEND　のループを２１回まわってしまいます。
（２０行処理したにも関わらずEOFを検知しない。結果として画面上には２０行目のデータが
　ダブって表示され２１行明細の様に表示される（この現象も画面を立ち上げた時の一回目のみ
　で2回目以降は２０行で正しく表示されます））

なぜ立ち上げた一回目の伝票が２０行を超えた時だけこんな現象がおこるのでしょうか？

開発元にも確認をとってもらっているんですが、原因不明という答えしか返ってきません。
どうか宜しくお願いします。

長々とすいませんでした。

まあ、ソースも不明なので答えようもないのですが

初めてSQLを発行するときにLIMITを指定しているのでは？

ＮＡＯさん　早速のお返事ありがとうございます。

正直なところＬＩＭＩＴをつけると言う意味がもう一つわかりません（笑）
ちょっと勉強がてらに調べてみます。

また分からない事があれば教えて下さい。

LIMIT って言うのは、SQL の SELECT 文でヒットするレコードが
いっぱいあるときに、ヒットした結果を全部受け取るのではなくて
「ここからここまで」欲しい、と制限をかけることです

たぶんソースのどこかで
"SELECT なんとか FROM テーブル名 WHERE 条件指定 LIMIT 20 OFFSET 0"
とかやっているところがないですか？
LIMIT でソースの中を検索してみるといいかも

お返事ありがとうございます。

LIMITで検索をして見ましたがHITしませんでした。

後、私が勘違いをしている部分があった？それとも新手のバグ？と思う部分があったので
改めて説明させていただきます。

データの取得方法？はこんな感じでやってると思われます。

*********************************
Public gobjOraDatabase As OraDatabase

Public Const ORADYN_READONLY = &H4&
Public Const ORADYN_NOCACHE = &H8&

*********************************
Dim oraRst  As OraDynaset
Dim G_RECCOUNT      As Long
Dim RowCnt          As Integer      '行カウンタ
*********************************

    With gobjOraDatabase
        '拠点
        .Parameters.Add "IN_KYOTEN_CD", KyotenCd, ORAPARM_INPUT
        .Parameters("IN_KYOTEN_CD").ServerType = ORATYPE_NUMBER
        
        '伝票��
        .Parameters.Add "IN_FUJI_NO", FujiNo, ORAPARM_INPUT
        .Parameters("IN_FUJI_NO").ServerType = ORATYPE_NUMBER
    End With

    Set oraRst = gobjOraDatabase.CreatePlsqlDynaset("Begin Pack_受領.RstMain納品書
　　　　　　　　　　　(:IN_KYOTEN_CD,:IN_FUJI_NO,:RstMainNouhinData);end;", _
                      "RstMainNouhinData", ORADYN_READONLY + ORADYN_NOCACHE)

*********************************＜ストアド側の定義＞
TYPE RstMainNouhinData IS REF CURSOR RETURN CurMainNouhinData%ROWTYPE;

CURSOR CurMainNouhinData IS
SELECT ・・・・
FROM   ・・・・
WHERE 　・・・・・;
*********************************＜ストアド側の定義＞

   G_RECCOUNT = oraRst.RecordCount　→　この時点では２６件と表示されます

   ROWCNT = 0
   While Not oraRst.EOF
       <代入処理>
     RowCnt = RowCnt + 1
     oraRst.MoveNext
   WEND

   MSGBOX RowCnt       →　このMSGBOX は２１と表示されます

と、こんな感じなんです。

実際は２６行データなんですが、ROWCNTは２１の時点でループを抜けてしまいます。
この後、画面には２１行表示されているんですが、２０行目と２１行目は同じデータになってます。

いつもながら長々とすいません。
処理概要はこの程度でわかりますでしょうか？

>    While Not oraRst.EOF
>        <代入処理>
>      RowCnt = RowCnt + 1
>      oraRst.MoveNext
>    WEND

<代入処理> の中で、
oraRst.MoveNext や oraRst.MovePrevious
を行っていないですか？

＞G_RECCOUNT = oraRst.RecordCount　→　この時点では２６件と表示されます

なるほど。ここでちゃんと件数が取れるなら LIMIT のせいではなさそうですね。
とろさんのおっしゃるとおり、＜代入処理＞の中が怪しいのですが、

２回目以降は大丈夫という現象は、なんか変数が別のところで使われていて
かぶっているとかでおかしくなっているのかなぁ？

とろさん、ＮＡＯさんお返事ありがとうございます。

そうなんです。毎回同じ現象がでるのなら調べようがあるんですが、
立ち上げた初回だけがおかしいというところが不思議なんです。

とろさんのおっしゃるように代入処理の中でのorarst.movenext　みたいな処理は
ソースを確認しましたがありませんでした。

もしよろしければ、後どの辺りを調べたらいいのか教えて頂けないでしょうか？
宜しくお願いします。

while not orarst.eof

このwhile文の前に
orarst.refresh　の行を追加してやったら
正しく表示されるようになりました。

正直なぜこの一文を追加したらうまくいくのかはわかりません（笑）
いろいろありがとうございました。


※ タイトル短くさせて頂きました（管理人）