SQL API でアイテムを追加する

前提

• Azure Cosmos DB のコア(SQL)のアカウントに、MySampleDBデータベースとMySampleContainerコンテナがある。
• NuGet で Microsoft.Azure.Cosmos パッケージをインストールしている。→ NuGetの使用方法
• Imports Microsoft.Azure.Cosmos がソースコードの冒頭付近に記載されている。

メモ：接続文字列の確認方法

'▼Cosmos DBに接続
'接続文字列は環境に応じて指定してください。
Dim connectionString As String = "DefaultEndpointsProtocol=https;AccountName=xxxxxx;AccountKey=U2V0IHlvdXIgYWNjb3VudCBrZXkgZnJvbSBhenVyZSBwb3J0YWw=;TableEndpoint=https://xxxxxx.table.cosmos.azure.com:443/;"
Dim cosmosClient As New CosmosClient(connectionString)

'▼コンテナへの参照を取得
Dim database As Database = cosmosClient.GetDatabase("MySampleDB")
Dim container As Container = database.GetContainer("MySampleContainer")

'▼アイテムの追加
Dim ieyasu As New Person() With { .id = "1", .Name = "徳川家康", .Age = 21 }
'非同期実行もできますが、この例ではGetAwaiterを使って作成が完了するまで待機します。
Dim result = container.CreateItemAsync(ieyasu, New PartitionKey(ieyasu.Name)).GetAwaiter().GetResult()

'▼結果
'この操作で消費された要求ユニット(RU)の使用量を出力します。
Debug.WriteLine("要求ユニット使用量： " & result.RequestCharge) ' 6.29

→ Debug.WriteLineが表示される場所

メモ：CreateItemAsyncメソッドの第2引数にはコンテナの設定と合致するパーティションキーの値を設定してください。

この例で使用している Person クラス は次の通りです。

Person クラス

Public Class Person
    'id は必須プロパティです。
    Public Property id As String
    Public Property Name As String
    Public Property Age As Integer
End Class