Visual Basic サンプル集 |
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
Visual Basic 中学校 > Visual Basic サンプル集 > Visual Basic サンプル集目次 > Azure > Cosmos DB
SQL API でデータベースを作成する
2021/7/4
この記事は Azure Cosmos DB SQL API を対象にしています。
クイックスタート - Azure Cosmos DB SQL API リソースを管理する .NET コンソール アプリを構築する | Microsoft Docs
- この記事の内容は Microsoft.Azure.Cosmos パッケージ バージョン 3.19.0 で確認しています。
- この記事の内容は 容量モード サーバーレス で確認しています。(記事執筆時点ではプレビュー機能です。)
データベースが存在しなければ作成する
前提
- Azure Cosmos DB のコア(SQL)のアカウントがある。
- 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)
'▼データベースが存在しなければ作成
'非同期実行もできますが、この例ではGetAwaiterを使って作成が完了するまで待機します。
Dim database As Database = cosmosClient.CreateDatabaseIfNotExistsAsync("MySampleDB").GetAwaiter().GetResult()
Debug.WriteLine("データベース MySampleDB の作成が完了しました。または既に存在していました。")