タイトル : Re^2: DataReader が既に開いています 投稿日 : 2004/01/14(Wed) 10:16 投稿者 : Dai
大まかな全体フローはこんな感じです。 ※ 実は接続先を MasCn,MasCn2 と分けたら回避出来たのですが それが正当なやり方とも思えなかったので (^。^;) ******************************************* '接続開始 MasCn.ConnectionString = "Provider=MSDAORA;" & _ "Persist Security Info=False;" & _ "User ID=*****;" & _ "Password=******;" & _ "Data Source=******" MasCn.Open() 'TB_SHUPPYO SELECT MasSql = "SELECT HINMEI,RYAKUBAN,SEIBAN,ZUBAN,CHUBAN,NOUKI FROM TB_SHUPPYO " & _ "WHERE BUHIN_CD = '3101' " MasCmd = New OleDb.OleDbCommand(MasSql, MasCn) MasReader = MasCmd.ExecuteReader() Do While (MasReader.Read()) 'MasReader処理 'TB_SHUPPYO SELECT_2 MasSql2 = "SELECT HINMEI,RYAKUBAN,SEIBAN FROM TB_SHUPPYO " & _ "WHERE BUHIN_CD != '3101' AND SEIBAN = '" & SEIBAN & "'" MasCmd2 = New OleDb.OleDbCommand(MasSql2, MasCn) MasReader2 = MasCmd2.ExecuteReader() Do While (MasReader2.Read()) 'MasReader2処理 Loop MasReader2.Close() MasReader2 = Nothing Loop MasReader.Close() MasReader = Nothing '接続終了 MasCn.Close() |