タイトル | : Re^2: DataReader が既に開いています |
記事No | : 614 |
投稿日 | : 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()
|