レコードアクセスサンプル

Public Function GetclsItemData() As Dictionary
    Dim strSql As String
    Dim dicItemDatas As New Dictionary
    cnOpen (ExcelConnect)
   
    strSql = "SELECT * FROM [ItemData$]"
    Set rs = GetRecordSet(strSql, cn)
    Do Until rs.EOF
        With New clsItemData
            Set .rec = rs
            dicItemDatas.Add .Self.ID, .Self
        End With
        rs.MoveNext
    Loop

    cnClose
    Set GetclsItemData = dicItemDatas
End Function
Public Function GetclsSaveData() As Collection
    Dim strSql As String
    Dim colSaveData As New Collection
    cnOpen (ExcelConnect)
   
    strSql = "SELECT * FROM [SaveData$]"
    Set rs = GetRecordSet(strSql, cn)
    Do Until rs.EOF
        With New clsSaveData
            Set .rec = rs
            colSaveData.Add .Self
        End With
        rs.MoveNext
    Loop

    cnClose
    Set GetclsSaveData = colSaveData
End Function