ヘッダー
Visual Basic サンプル集
VB2005対応 VB2008対応 VB2010対応 VB2012対応 VB2013対応 VB2015対応 VB2017対応 VB2019対応

SQL API でデータベースを作成する

2021/7/4

→ C# のサンプルに切り替える

この記事は 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 がソースコードの冒頭付近に記載されている。

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

VB2015対応 VB2017対応 VB2019対応

'▼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 の作成が完了しました。または既に存在していました。")

Debug.WriteLineが表示される場所