Global ExcelApp As Variant
' ******************************************************
' オブジェクト作成
' ******************************************************
Public Function ExcelInit()

    If Not IsObject(ExcelApp) Then
        Set ExcelApp = CreateObject("Excel.Application")
    End If

End Function

' ******************************************************
' ブックを開く(Workbookを返す)
' ******************************************************
Public Function ExcelOpen(strPath As String) As Object

    ExcelInit

    Set ExcelOpen = ExcelApp.Workbooks.Open(strPath)
    
    ' アクティブなウィンドウを最大化
    ExcelApp.ActiveWindow.WindowState = 2

End Function

' ******************************************************
' 表示状態の変更
' ******************************************************
Public Function ExcelVisible(bFlg As Boolean)

    ExcelInit
    
    ExcelApp.Visible = bFlg

End Function

' ******************************************************
' 終了
' ******************************************************
Public Function ExcelQuit(ByRef WorkBook As Variant)

    If TypeName(WorkBook) = "Workbook" Then
        ' 保存した事にする
        WorkBook.Saved = True
    End If
    If IsObject(ExcelApp) Then
        ExcelApp.Quit
        Set ExcelApp = Nothing
    End If
    ExcelApp = ""

End Function

' ******************************************************
' シート名によるシート選択
' ******************************************************
Public Function ExcelSelectSheet(MyBook, strSheetName)

    MyBook.Sheets(strSheetName).Select

End Function

' ******************************************************
' 番号よるシート選択
' ******************************************************
Public Function ExcelSelectSheetByNo(MyBook, No)

    MyBook.Sheets(No).Select

End Function

' ******************************************************
' シート名によるシート複写
' ******************************************************
Public Function ExcelCopySheet(MyBook, strSheetName, strNewSheetName)

    MyBook.Sheets(strSheetName).Copy (MyBook.Sheets(strSheetName))
    MyBook.ActiveSheet.Name = strNewSheetName

End Function

' ******************************************************
' シート名によるシート名変更
' ******************************************************
Public Function ExcelRenameSheet(MyBook, strSheetName, strNewSheetName)

    MyBook.Sheets(strSheetName).Name = strNewSheetName

End Function

' ******************************************************
' 上書き保存
' ******************************************************
Public Function ExcelSave(MyBook)

    MyBook.Save

End Function

' ******************************************************
' 名前を付けて保存
' ******************************************************
Public Function ExcelSaveAs(MyBook, strFileName)

    MyBook.SaveAs strFileName

End Function

' ******************************************************
' セルへのデータセット
' ******************************************************
Public Function ExcelSetCell(MyBook, strSheetName, x, y, Data)

    MyBook.Sheets(strSheetName).Cells(y, x) = Data

End Function

' ******************************************************
' シートの数
' ******************************************************
Public Function ExcelGetSheetCount(MyBook)

    ExcelGetSheetCount = MyBook.Sheets.Count

End Function

' ********************************************************
' 初期設定
' ********************************************************
Private Sub Form_Load()

    ' *******************************
    ' フォームを中央へ
    ' *******************************
    Call STD.lbCenterWindow(Me)
    
    ' *******************************
    ' コンボデータ作成
    ' *******************************
    Set Cn = DB.lbSQS_DBConnect("サーバ名", "データーベース名", "sa", "")
    Call DB.lbSetListFromSQL(Cn, Rs, cmbコース, SQL_コース)
    Call DB.lbDBClose(Cn)
    
    ' *******************************
    ' 初期明細行位置
    ' *******************************
    nRow = 10
    
    ' *******************************
    ' 名前の連想配列
    ' *******************************
    Set TargetName = CreateObject("Scripting.Dictionary")
    
    ' Excel を表示させる
'    Call EXCEL.ExcelVisible(True)

End Sub

' ********************************************************
' 実行
' ********************************************************
Private Sub cmdExcel出力_Click()

    ' *******************************
    ' 事前チェック
    ' *******************************
    If cmbコース.Text = "" Then
        MsgBox ("コースを選択して下さい")
        Exit Sub
    End If

    ' *******************************
    ' Excel ドキュメントの準備
    ' *******************************
    TargetExcel = _
        App.Path & "\" & "履修済科目一覧" & frmMain.cmbコース.Text & ".xls"
    Call FS.FsCopy(App.Path & "\" & BASE_EXCEL, TargetExcel)
    
    ' *******************************
    ' リストボックスをクリア
    ' *******************************
    Call Me.lst進行状況.Clear
    
    ' *******************************
    ' DB 接続
    ' *******************************
    Set Cn = DB.lbSQS_DBConnect("サーバ名", "データーベース名", "sa", "")

    ' *******************************
    ' フォームのプロテクト
    ' *******************************
    Me.Enabled = False
    
    ' *******************************
    ' 処理
    ' *******************************
    Call GBL.前年度データ取得
    Call GBL.今年分前期データ取得
    Call GBL.今年分後期データ取得
    
    ' *******************************
    ' DB 終了処理
    ' *******************************
    Call DB.lbDBClose(Rs)
    Set Rs = Nothing
    Call DB.lbDBClose(Cn)
    Set Cn = Nothing

    ' *******************************
    ' EXCEL DB終了処理
    ' *******************************
    Call EXCEL.ExcelSave(MyBook)        ' 保存
    Call EXCEL.ExcelQuit(MyBook)        ' 終了

    ' *******************************
    ' フォームのプロテクト解除
    ' *******************************
    Me.Enabled = True

End Sub

' -------------------------------------------------------
' グローバル変数
' -------------------------------------------------------
Global Cn As Object                 ' 接続用
Global Rs As Object                 ' レコードセット
Global SqlQuery As String           ' SQL 検索文字列
Global MyBook As Object             ' Excel 用 Book オブジェクト
Global nRow As Integer              ' 明細行
Global BreakMain As String          ' ブレイクキー
Global BreakCode As String          ' ブレイクキー
Global bFirst As Boolean            ' 初回フラグ
Global TargetExcel As String        ' 処理するEXCELドキュメント
Global KeyName As String
Global TargetName As Object

' -------------------------------------------------------
' グローバル定数
' -------------------------------------------------------
Public Const BASE_EXCEL = "履修済科目一覧org.xls"
Public Const SQL_コース = _
"select " _
 & "コード,名称" _
 & " from R_名称" _
 & " where" _
 & " 区分 = '120'" _
 & " and コード <> -999" _
 & " and 名称 is not NULL" _
 & " order by コード"

' ********************************************************
' 前年分
' ********************************************************
Public Function 前年度データ取得()

    frmMain.lst進行状況.AddItem ("前年度データ取得開始")
    Call TargetName.RemoveAll

    ' *******************************
    ' SQL作成
    ' *******************************
    SqlQuery = "select * from Q_取得単位数確認用,V_現役学生,Q_単位"
    SqlQuery = SqlQuery & " where Q_取得単位数確認用.ｺｰﾄﾞ = V_現役学生.コード"
    SqlQuery = SqlQuery & " and Q_取得単位数確認用.ｺｰﾄﾞ = CD"
    SqlQuery = SqlQuery & " and 取得単位数 != 0"
    SqlQuery = SqlQuery & " and コース = '" & frmMain.cmbコース.Text & "'"
    SqlQuery = SqlQuery & " order by Q_取得単位数確認用.ｺｰﾄﾞ"

    ' *******************************
    ' レコードセット取得
    ' *******************************
    If Not DB.lbDBGet(Cn, Rs, SqlQuery, False) Then
        Call DB.lbDBClose(Rs)
        Set Rs = Nothing
        Call DB.lbDBClose(Cn)
        Set Cn = Nothing
        MsgBox ("対象データが存在しませんでした (前年度データ取得)")
        Exit Function
    End If
    
    ' *******************************
    ' ベースBook を開く
    ' *******************************
    Set MyBook = EXCEL.ExcelOpen(TargetExcel)
    
    ' *******************************
    ' ベースSheet を選択
    ' *******************************
    Call EXCEL.ExcelSelectSheet(MyBook, "Sheet1")
    
    ' *******************************
    ' ベースSheet を最初の名前でCOPY
    ' *******************************
    Call EXCEL.ExcelCopySheet(MyBook, "Sheet1", Rs.Fields("氏名").Value)
    frmMain.lst進行状況.AddItem (Rs.Fields("氏名").Value)
    KeyName = Rs.Fields("氏名").Value

    ' *******************************
    ' ブレイクキーの設定
    ' *******************************
    BreakMain = Rs.Fields("ｺｰﾄﾞ").Value
    
    ' *******************************
    ' 初回フラグ
    ' *******************************
    bFirst = True
    
    Dim n春集中 As Long
    Dim CurData As ListBox

    n春集中 = Rs.Fields("春集中").Value

    ' *******************************
    ' ループ処理
    ' *******************************
    Do While Not Rs.EOF

        frmMain.Refresh
        
        If bFirst Then
            bFirst = False
            
            ' *******************************
            ' タイトル部分のセット
            ' *******************************
            MyBook.ActiveSheet.Cells(4, 3).Value = Rs.Fields("ｺｰﾄﾞ").Value
            MyBook.ActiveSheet.Cells(6, 3).Value = Rs.Fields("氏名").Value
        
        Else
            ' *******************************
            ' ブレイク処理
            ' *******************************
            If BreakMain <> Rs.Fields("ｺｰﾄﾞ").Value Then
                If n春集中 <> 0 Then
                    MyBook.ActiveSheet.Cells(nRow, 2).Value = "春集中講座"
                    MyBook.ActiveSheet.Cells(nRow, 5).Value = n春集中
                    nRow = nRow + 1
                End If
                
                ' *******************************
                ' 新しいブックの作成
                ' *******************************
                Call EXCEL.ExcelCopySheet(MyBook, "Sheet1", Rs.Fields("氏名").Value)
                frmMain.lst進行状況.AddItem (Rs.Fields("氏名").Value)
                frmMain.lst進行状況.Selected(frmMain.lst進行状況.ListCount - 1) = True
                TargetName.Add KeyName, nRow
                KeyName = Rs.Fields("氏名").Value
                
                ' *******************************
                ' タイトル部分のセット
                ' *******************************
                MyBook.ActiveSheet.Cells(4, 3).Value = Rs.Fields("ｺｰﾄﾞ").Value
                MyBook.ActiveSheet.Cells(6, 3).Value = Rs.Fields("氏名").Value
                
                ' *******************************
                ' 初期明細行位置
                ' *******************************
                nRow = 10
            End If
            
        End If
        
        ' *******************************
        ' 明細のセット
        ' *******************************
        MyBook.ActiveSheet.Cells(nRow, 2).Value = Rs.Fields("科目名").Value
        MyBook.ActiveSheet.Cells(nRow, 5).Value = Rs.Fields("取得単位数").Value
        
        nRow = nRow + 1
        
        ' *******************************
        ' ブレイクキーの保存
        ' *******************************
        BreakMain = Rs.Fields("ｺｰﾄﾞ").Value
        n春集中 = Rs.Fields("春集中").Value
        
        ' *******************************
        ' 次データの読込み
        ' *******************************
        Rs.MoveNext

    Loop
    
    Call DB.lbDBClose(Rs)
    
    If n春集中 <> 0 Then
        MyBook.ActiveSheet.Cells(nRow, 2).Value = "春集中講座"
        MyBook.ActiveSheet.Cells(nRow, 5).Value = n春集中
        nRow = nRow + 1
    End If

    TargetName.Add KeyName, nRow

End Function

' ********************************************************
' 今年分前期
' ********************************************************
Public Function 今年分前期データ取得()

    Dim SavKname As String
    Dim SavSeiseki As String
    Dim SavTani As String

    frmMain.lst進行状況.AddItem ("今年分前期データ取得開始")

    ' *******************************
    ' SQL作成
    ' *******************************
    SqlQuery = "select "
    SqlQuery = SqlQuery & "学生コード"
    SqlQuery = SqlQuery & ",年月日"
    SqlQuery = SqlQuery & ",時限"
    SqlQuery = SqlQuery & ",FLG"
    SqlQuery = SqlQuery & ",科目"
    SqlQuery = SqlQuery & ",氏名"
    SqlQuery = SqlQuery & ",コース"
    SqlQuery = SqlQuery & ",点数"
    SqlQuery = SqlQuery & ",評価"
    SqlQuery = SqlQuery & ",名称,数値2"
    SqlQuery = SqlQuery & " From TR_出席, V_現役学生, TR_成績, V_科目"
    SqlQuery = SqlQuery & " Where"
    SqlQuery = SqlQuery & " 学生コード = V_現役学生.コード"
    SqlQuery = SqlQuery & " and '(' + コース + ') ' + 氏名 = 学生"
    SqlQuery = SqlQuery & " and 科目 = 科目コード"
    SqlQuery = SqlQuery & " and 科目 = V_科目.コード"
    SqlQuery = SqlQuery & " and 年月日 between '20020401' and '20020731'"
    SqlQuery = SqlQuery & " and (科目 != 27 or (科目 = 27 and コース = 'BS'))"
    SqlQuery = SqlQuery & " and コース = '" & frmMain.cmbコース.Text & "'"
    SqlQuery = SqlQuery & " Order By"
    SqlQuery = SqlQuery & " 学生コード,科目"

    ' *******************************
    ' レコードセット取得
    ' *******************************
    If Not DB.lbDBGet(Cn, Rs, SqlQuery, False) Then
        Call DB.lbDBClose(Rs)
        Set Rs = Nothing
        Call DB.lbDBClose(Cn)
        Set Cn = Nothing
        MsgBox ("対象データが存在しませんでした (前年度データ取得)")
        Exit Function
    End If
    
    ' *******************************
    ' ベースSheet を選択
    ' *******************************
    nRow = TargetName(Rs.Fields("氏名").Value)
    Call EXCEL.ExcelSelectSheet(MyBook, Rs.Fields("氏名").Value)
    KeyName = Rs.Fields("氏名").Value
    
    ' *******************************
    ' 名前表示
    ' *******************************
    frmMain.lst進行状況.AddItem (Rs.Fields("氏名").Value)

    ' *******************************
    ' ブレイクキーの設定
    ' *******************************
    BreakCode = Rs.Fields("学生コード").Value & Rs.Fields("科目").Value
    BreakMain = Rs.Fields("学生コード").Value
    SavKname = Rs.Fields("名称").Value
    SavSeiseki = Rs.Fields("評価").Value
    SavTani = Rs.Fields("数値2").Value

    ' *******************************
    ' 初回フラグ
    ' *******************************
    bFirst = True
    
    Dim CurData As ListBox

    ' *******************************
    ' ループ処理
    ' *******************************
    Do While Not Rs.EOF

        frmMain.Refresh
        
        If bFirst Then
            bFirst = False
        
        Else
            ' *******************************
            ' ブレイク処理
            ' *******************************
            If BreakCode <> Rs.Fields("学生コード").Value & Rs.Fields("科目").Value Then
                
                ' *******************************
                ' 新しいブックの作成
                ' *******************************
                MyBook.ActiveSheet.Cells(nRow, 2).Value = SavKname
                MyBook.ActiveSheet.Cells(nRow, 5).Value = SavTani
                MyBook.ActiveSheet.Cells(nRow, 6).Value = SavSeiseki
                nRow = nRow + 1
                
            End If
            If BreakMain <> Rs.Fields("学生コード").Value Then
                
                ' *******************************
                ' 新しいブックの作成
                ' *******************************
                TargetName(KeyName) = nRow
                nRow = TargetName(Rs.Fields("氏名").Value)
                Call EXCEL.ExcelSelectSheet(MyBook, Rs.Fields("氏名").Value)
                frmMain.lst進行状況.AddItem (Rs.Fields("氏名").Value)
                frmMain.lst進行状況.Selected(frmMain.lst進行状況.ListCount - 1) = True
                KeyName = Rs.Fields("氏名").Value
                
            End If
            
        End If
        
        
        ' *******************************
        ' ブレイクキーの保存
        ' *******************************
        BreakCode = Rs.Fields("学生コード").Value & Rs.Fields("科目").Value
        BreakMain = Rs.Fields("学生コード").Value
        SavKname = Rs.Fields("名称").Value
        SavSeiseki = Rs.Fields("評価").Value
        SavTani = Rs.Fields("数値2").Value
        
        ' *******************************
        ' 次データの読込み
        ' *******************************
        Rs.MoveNext

    Loop

    TargetName(KeyName) = nRow

End Function

' ********************************************************
' 今年分後期
' ********************************************************
Public Function 今年分後期データ取得()

    frmMain.lst進行状況.AddItem ("今年分後期データ取得開始")

    ' *******************************
    ' SQL作成
    ' *******************************
    SqlQuery = "select * from V_選択科目学生 "
    SqlQuery = SqlQuery & " where コース = '" & frmMain.cmbコース.Text & "'"
    SqlQuery = SqlQuery & " and 終了日 >= '20030201'"
    SqlQuery = SqlQuery & " and 開始日 <= '20021101'"
    SqlQuery = SqlQuery & " order by 学生コード"

    ' *******************************
    ' レコードセット取得
    ' *******************************
    If Not DB.lbDBGet(Cn, Rs, SqlQuery, False) Then
        Call DB.lbDBClose(Rs)
        Set Rs = Nothing
        Call DB.lbDBClose(Cn)
        Set Cn = Nothing
        MsgBox ("対象データが存在しませんでした (前年度データ取得)")
        Exit Function
    End If
    
    ' *******************************
    ' ベースSheet を選択
    ' *******************************
    nRow = TargetName(Rs.Fields("氏名").Value)
    Call EXCEL.ExcelSelectSheet(MyBook, Rs.Fields("氏名").Value)
    KeyName = Rs.Fields("氏名").Value

    ' *******************************
    ' 名前表示
    ' *******************************
    frmMain.lst進行状況.AddItem (Rs.Fields("氏名").Value)

    ' *******************************
    ' ブレイクキーの設定
    ' *******************************
    BreakMain = Rs.Fields("学生コード").Value

    ' *******************************
    ' 初回フラグ
    ' *******************************
    bFirst = True

    ' *******************************
    ' ループ処理
    ' *******************************
    Do While Not Rs.EOF

        frmMain.Refresh
        
        If bFirst Then
            bFirst = False
        
        Else
            ' *******************************
            ' ブレイク処理
            ' *******************************
            If BreakMain <> Rs.Fields("学生コード").Value Then
                
                ' *******************************
                ' 新しいブックの作成
                ' *******************************
                TargetName(KeyName) = nRow
                nRow = TargetName(Rs.Fields("氏名").Value)
                Call EXCEL.ExcelSelectSheet(MyBook, Rs.Fields("氏名").Value)
                frmMain.lst進行状況.AddItem (Rs.Fields("氏名").Value)
                frmMain.lst進行状況.Selected(frmMain.lst進行状況.ListCount - 1) = True
                KeyName = Rs.Fields("氏名").Value
                
            End If
            
        End If
        
        ' *******************************
        ' 明細のセット
        ' *******************************
        MyBook.ActiveSheet.Cells(nRow, 2).Value = Rs.Fields("名称").Value
        MyBook.ActiveSheet.Cells(nRow, 5).Value = Rs.Fields("数値3").Value _
            + Rs.Fields("数値4").Value
        
        nRow = nRow + 1
        
        ' *******************************
        ' ブレイクキーの保存
        ' *******************************
        BreakMain = Rs.Fields("学生コード").Value
        
        ' *******************************
        ' 次データの読込み
        ' *******************************
        Rs.MoveNext

    Loop

    Call DB.lbDBClose(Rs)
    
    TargetName(KeyName) = nRow
    
    ' *******************************
    ' SQL作成
    ' *******************************
    SqlQuery = "select * from V_選択科目学生 "
    SqlQuery = SqlQuery & " where コース = '" & frmMain.cmbコース.Text & "'"
    SqlQuery = SqlQuery & " and 終了日 < '20030101'"
    SqlQuery = SqlQuery & " order by 学生コード"

    ' *******************************
    ' レコードセット取得
    ' *******************************
    If Not DB.lbDBGet(Cn, Rs, SqlQuery, False) Then
        Call DB.lbDBClose(Rs)
        Set Rs = Nothing
        Call DB.lbDBClose(Cn)
        Set Cn = Nothing
        MsgBox ("対象データが存在しませんでした (前年度データ取得)")
        Exit Function
    End If
    
    ' *******************************
    ' ベースSheet を選択
    ' *******************************
    nRow = TargetName(Rs.Fields("氏名").Value)
    Call EXCEL.ExcelSelectSheet(MyBook, Rs.Fields("氏名").Value)
    KeyName = Rs.Fields("氏名").Value

    ' *******************************
    ' 名前表示
    ' *******************************
    frmMain.lst進行状況.AddItem (Rs.Fields("氏名").Value)

    ' *******************************
    ' ブレイクキーの設定
    ' *******************************
    BreakMain = Rs.Fields("学生コード").Value

    ' *******************************
    ' 初回フラグ
    ' *******************************
    bFirst = True

    ' *******************************
    ' ループ処理
    ' *******************************
    Do While Not Rs.EOF

        frmMain.Refresh
        
        If bFirst Then
            bFirst = False
        
        Else
            ' *******************************
            ' ブレイク処理
            ' *******************************
            If BreakMain <> Rs.Fields("学生コード").Value Then
                
                ' *******************************
                ' 新しいブックの作成
                ' *******************************
                TargetName(KeyName) = nRow
                nRow = TargetName(Rs.Fields("氏名").Value)
                Call EXCEL.ExcelSelectSheet(MyBook, Rs.Fields("氏名").Value)
                frmMain.lst進行状況.AddItem (Rs.Fields("氏名").Value)
                frmMain.lst進行状況.Selected(frmMain.lst進行状況.ListCount - 1) = True
                KeyName = Rs.Fields("氏名").Value
                
            End If
            
        End If
        
        ' *******************************
        ' 明細のセット
        ' *******************************
        MyBook.ActiveSheet.Cells(nRow, 2).Value = Rs.Fields("名称").Value
        MyBook.ActiveSheet.Cells(nRow, 5).Value = Rs.Fields("数値3").Value _
            + Rs.Fields("数値4").Value
        
        nRow = nRow + 1
        
        ' *******************************
        ' ブレイクキーの保存
        ' *******************************
        BreakMain = Rs.Fields("学生コード").Value
        
        ' *******************************
        ' 次データの読込み
        ' *******************************
        Rs.MoveNext

    Loop

    Call DB.lbDBClose(Rs)
    
    TargetName(KeyName) = nRow
    
    ' *******************************
    ' SQL作成
    ' *******************************
    SqlQuery = "select * from V_選択科目学生 "
    SqlQuery = SqlQuery & " where コース = '" & frmMain.cmbコース.Text & "'"
    SqlQuery = SqlQuery & " and 開始日 >= '20030101'"
    SqlQuery = SqlQuery & " order by 学生コード"

    ' *******************************
    ' レコードセット取得
    ' *******************************
    If Not DB.lbDBGet(Cn, Rs, SqlQuery, False) Then
        Call DB.lbDBClose(Rs)
        Set Rs = Nothing
        Call DB.lbDBClose(Cn)
        Set Cn = Nothing
        MsgBox ("対象データが存在しませんでした (前年度データ取得)")
        Exit Function
    End If
    
    ' *******************************
    ' ベースSheet を選択
    ' *******************************
    nRow = TargetName(Rs.Fields("氏名").Value)
    Call EXCEL.ExcelSelectSheet(MyBook, Rs.Fields("氏名").Value)
    KeyName = Rs.Fields("氏名").Value

    ' *******************************
    ' 名前表示
    ' *******************************
    frmMain.lst進行状況.AddItem (Rs.Fields("氏名").Value)

    ' *******************************
    ' ブレイクキーの設定
    ' *******************************
    BreakMain = Rs.Fields("学生コード").Value

    ' *******************************
    ' 初回フラグ
    ' *******************************
    bFirst = True

    ' *******************************
    ' ループ処理
    ' *******************************
    Do While Not Rs.EOF

        frmMain.Refresh
        
        If bFirst Then
            bFirst = False
        
        Else
            ' *******************************
            ' ブレイク処理
            ' *******************************
            If BreakMain <> Rs.Fields("学生コード").Value Then
                
                ' *******************************
                ' 新しいブックの作成
                ' *******************************
                TargetName(KeyName) = nRow
                nRow = TargetName(Rs.Fields("氏名").Value)
                Call EXCEL.ExcelSelectSheet(MyBook, Rs.Fields("氏名").Value)
                frmMain.lst進行状況.AddItem (Rs.Fields("氏名").Value)
                frmMain.lst進行状況.Selected(frmMain.lst進行状況.ListCount - 1) = True
                KeyName = Rs.Fields("氏名").Value
                
            End If
            
        End If
        
        ' *******************************
        ' 明細のセット
        ' *******************************
        MyBook.ActiveSheet.Cells(nRow, 2).Value = Rs.Fields("名称").Value
        MyBook.ActiveSheet.Cells(nRow, 5).Value = Rs.Fields("数値3").Value _
            + Rs.Fields("数値4").Value
        
        nRow = nRow + 1
        
        ' *******************************
        ' ブレイクキーの保存
        ' *******************************
        BreakMain = Rs.Fields("学生コード").Value
        
        ' *******************************
        ' 次データの読込み
        ' *******************************
        Rs.MoveNext

    Loop

    Call DB.lbDBClose(Rs)
    
    Set Rs = Nothing
    Call DB.lbDBClose(Cn)
    Set Cn = Nothing

End Function