tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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()

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。