VB+SQLServerでselect命令が帰ってこない。 (ID:80603)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 すみません、いろいろ書くと長文になりそうだったもので、なにかヒントでもと思い取り急ぎUPしたもので・・。 クライアント、サーバー共にＷ２Ｋです。 SQLSERVERはSQLServer2000です。 ADO2.5Libraryを参照しています。 テーブル件数は2000件程度で、ループ内の各selectの戻り件数は1件です。 読み込む項目は全項目ですが、1レコード512バイト程度です。 KEYに"A0001"と言うようなコードがあり、当然ユニークです。 KEYとは別に親子関係（親子テーブルではなく同じテーブル内でレコード同士の親子関係をもたせています）を示すPARENT_KEYを持たせます。 例えば、"B0001"のPARENT_KEYには"A0001"が設定してあり、"B0001"は"A0001" の子供となります。 以下のような関係になります。 A0001-B0001-C0001 B0001,B0002はA0001の子、B0003はA0002の子 B0002-C0002 C0001,C0002,C0003はB0001の子 -C0003 C0004はB0002の子 A0002-B0003-C0004 また、A0001,A0002は親が存在しないのでPARENT_KEYには"PARENT"が入っています。 まず、A0001からA0002,B0001,B0002,B0003,C0001...の順にレコードを読み込み、 LOOP処理でまず親をさがします。 親が見つかったら親の弟を捜します。 親がB0001の場合B0002を見つけます。 弟は直近の弟だけです、連番部分が親の連番部分より大きくて最小のものを探します。 PARENT_KEYが"PARENT"になるまで親と親の弟を探します。 C0003を読み込んだ場合はA0001にたどり着くまで検索すると言う処理です。 A0001までたどりついたらC0003の編集（すべての親と親の弟のある項目の最大値 をセット）を行いUPDATEします。 これを最後のレコードまで繰り返します。 実際はHぐらいまで階層が深く、1階層の連番は300ぐらい存在します。 この処理を繰り返しているうちに、以前C0001読み込み時のLOOPでは B0002のSELECTは問題なく、すぐに返って来ているのに、C0003読み込み時 のLOOPではのB0002のSELECTが返ってこずに、しばらく2分ぐらいすると いきなり返ってきて、処理が続行されます。続行後もしばらくは順調に読み込んでいるのですがまた突然返ってこなくなり、しばらくするとまた返ってきて続行します。結局最後は正常に終了します。 TIMEOUT=240に設定した場合です。 IsolationLevel = adXactReadUncommittedも設定しました。 SELECT命令（親の検索） dbCOM.CommandText = "SELECT * FROM FR_INDEX_TBL " _ & " WHERE KEY_ID = '" & WK_PRNT_ID & "'" _ & " AND KEY_NO = ' & WK_PRNT_NO Set dbRS_TMP = dbCOM.Execute SELECT命令（親の弟の検索） dbCOM.CommandText = "SELECT MIN(A.LVL_NO) AS MIN_LVL_NO " _ & " FROM FR_INDEX_TBL A" _ & " WHERE A.KEY_ID = '" & WK_PRNT_ID & "'" _ & " AND A.KEY_NO > " & WK_PRNT_NO Set dbRS_TMP = dbCOM.Execute If dbRS_TMP.EOF = False Then WK_MIN_LVL_NO = dbRS_TMP.Fields("MIN_LVL_NO").Value '****直近弟を読み込む dbCOM.CommandText = "SELECT * FROM FR_INDEX_TBL A" _ & " WHERE A.LVL_ID = '" & WK_PRNT_ID$ & "'" _ & " AND A.LVL_NO = " & WK_MIN_LVL_NO Set dbRS_TMP = dbCOM.Execute やはり、同じRECORDSETを使いまわししているのがよくないのでしょうか？