ThisWorkbook.dcm

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "ThisWorkbook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Sub Test()
    Dim ApplicationKey As String
    Dim ClientKey As String
    
    ApplicationKey = "d288714a5a801f4ccaaac99c87df41d35e38b5804a9ecbcd2026c1901e914fc0"
    ClientKey = "YOUR_CLIENT_KEY"
    
    Dim ncmb As clsNCMB
    Set ncmb = New clsNCMB
    
    ncmb.ApplicationKey = ApplicationKey
    ncmb.ClientKey = ClientKey
    
    
    Dim dataClass As clsDataStore
    
    Set dataClass = ncmb.dataStore("AA7")
    
    ' データを保存する
    ' saveDataStore (dataClass)
    
    ' データ検索
    ' searchDataStore (dataClass)
    
    ' updateDataStore (dataClass)
    ' データストアの保存
    Dim dataItem As clsDataItem
    Set dataItem = dataClass.newData
    dataItem.Field "message", "Hello World"
    If dataItem.Save() Then
        Debug.Print ("保存できました")
    Else
        Debug.Print ("保存失敗")
    End If
    
    dataItem.Field "message", "Update!"
    If dataItem.Save() Then
        Debug.Print ("更新できました")
    Else
        Debug.Print ("更新失敗")
    End If
    
    If dataItem.Delete() Then
        Debug.Print ("削除成功")
    Else
        Debug.Print ("削除失敗")
    End If
    
End Sub

Sub updateDataStore(dataClass As Variant)
    
End Sub

Sub searchDataStore(dataClass As Variant)
    dataClass.equalTo "message", "Hello World"
    dataClass.greaterThan "Integer", 10
    Dim dataItems() As clsDataItem
    dataItems = dataClass.fetchAll()
    Debug.Print dataItems(0).val("Integer")
End Sub

Sub saveDataStore(dataClass As Variant)
    ' データストアの保存
    Dim dataItem As clsDataItem
    Set dataItem = dataClass.newData
    dataItem.Field "message", "Hello World"
    If dataItem.Save() Then
        Debug.Print ("保存できました")
    Else
        Debug.Print ("保存失敗")
    End If
End Sub

Sub saveData()
    Dim ApplicationKey As String
    Dim ClientKey As String
    
    ApplicationKey = "YOUR_APPLICATION_KEY"
    ClientKey = "YOUR_CLIENT_KEY"
    
    Dim ncmb As clsNCMB
    Set ncmb = New clsNCMB
    
    ncmb.ApplicationKey = ApplicationKey
    ncmb.ClientKey = ClientKey
    
    
    Dim dataClass As clsDataStore
    
    Set dataClass = ncmb.dataStore("TestClass")
    Dim dataItem As clsDataItem
    
    Dim lastRow As Integer
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    Dim workSheet As workSheet
    Set workSheet = ThisWorkbook.Worksheets("Sheet1")
    
    For i = 2 To lastRow
        Set dataItem = dataClass.newData
        dataItem.Field "objectId", workSheet.Cells(i, 1).value
        dataItem.Field "message", workSheet.Cells(i, 2).value
        dataItem.Field "count", workSheet.Cells(i, 3).value
        dataItem.Save
    Next
End Sub

Sub LoadData()
    Dim ApplicationKey As String
    Dim ClientKey As String
    
    ApplicationKey = "YOUR_APPLICATION_KEY"
    ClientKey = "YOUR_CLIENT_KEY"
    
    Dim ncmb As clsNCMB
    Set ncmb = New clsNCMB
    
    ncmb.ApplicationKey = ApplicationKey
    ncmb.ClientKey = ClientKey
    
    
    Dim dataClass As clsDataStore
    
    Set dataClass = ncmb.dataStore("TestClass")
    
    Dim dataItems() As clsDataItem
    dataItems = dataClass.fetchAll()
    
    Dim dataItem As clsDataItem
    Dim workSheet As workSheet
    Set workSheet = ThisWorkbook.Worksheets("Sheet1")
    
    For i = 0 To UBound(dataItems) - 1
      Set dataItem = dataItems(i)
      workSheet.Cells(i + 2, 1).value = dataItem.val("objectId")
      workSheet.Cells(i + 2, 2).value = dataItem.val("message")
      workSheet.Cells(i + 2, 3).value = dataItem.val("count")
    Next
End Sub

Sub login()
    Dim ApplicationKey As String
    Dim ClientKey As String
    
    ApplicationKey = "YOUR_APPLICATION_KEY"
    ClientKey = "YOUR_CLIENT_KEY"
    
    Dim ncmb As clsNCMB
    Set ncmb = New clsNCMB
    
    ncmb.ApplicationKey = ApplicationKey
    ncmb.ClientKey = ClientKey
    
    Dim dataClass As clsDataStore
    Set dataClass = ncmb.dataStore("TestExcel")
    Dim dataItems() As clsDataItem
    dataItems = dataClass.fetchAll()
    Debug.Print UBound(dataItems)

    Dim result As clsDataItem
    Set result = ncmb.User.login("ExcelUser", "ExcelUser")
    
    dataItems = dataClass.fetchAll()
    Debug.Print UBound(dataItems)

End Sub