前から使いたかったＭｏｎｇｏＤＢ。
サービス登録ってどうやるの？.netだと使い勝手悪いんじゃ？など
色々と調べる事があるから使わないでＭＳＳＱＬやテキストファイルの
ＣＳＶ，ＪＳＯＮで十分じゃんって自分に言いきかせて触らずにいたのだが
こういったデータは複数のプログラムでリアルタイムに更新したかったりするので
今回本気に使ってみることにした。
まず覚えなくてはいけない事。
１．ＭｏｎｇｏＤＢをダウンロードすること。
２．ＤＢ、LOGフォルダを用意すること。
３．サービス登録しておくこと。
４．ＶｉｓｕａｌＳｔｕｄｉｏのＮｕｇｅｔで「Official MongoDB C# Driver」をインストールすること。（Apache2.0ライセンス）
５．ライブラリの使い方、DBの接続方法、データの追加、削除、更新を覚えること。
１，２，３まではやる気さえあればできそうで
４，５になると開発環境を起動したりコードを書いたりしなきゃならないので遠ざかりたくなるけど、使いたいという思いでどうにか乗り切るしかなさそう。
なるべく手順をまとめると、
Step1. MongoDBのダウンロード、DB、LOGフォルダの用意、サービス登録を行う。
http://www.mongodb.org/
上記公式サイトからMongoDB本体をダウンロードしてきて任意の場所に展開する。
そしてダウンロードしながらどこかにDB、LOGフォルダを用意してから
管理者権限でコマンドプロンプトを開く。
今回は
d:\tool\mongodb MongoDB展開フォルダ
d:\tool\mongodb\bin\log Logフォルダ
d:\tool\mongodb\bin\db DBフォルダ
というようにした場合、下記コマンドを入力する。
>cd \tool\mongodb\bin
>mongod --install --dbpath .\db --logpath .\log\log.txt
サービス解除する時は --install を --remove にすればOK。
Step2.使い方を覚える
まずは、VisualStudioを起動してソリューションを１つ作ってから
Ｎｕｇｅｔで「Official MongoDB C# Driver」をインストール。
あとはコーディング。
Imports MongoDB.Driver
Imports MongoDB.Driver.Builders
Imports MongoDB.Driver.Linq
Imports MongoDB.Bson
Imports MongoDB.Bson.Serialization.Attributes
Class MainWindow
Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
'MongoDBサーバーに接続して、操作するコレクションを選択。
Dim mongo_drv = New MongoClient()
Dim db = mongo_drv.GetServer().GetDatabase("TestDB")
Dim col = db.GetCollection(Of AddressModel)("AddressCollection")
'サンプルデータの追加
col.Insert(New AddressModel() With {
.Name = "test1",
.Birthday = Date.Parse("1980/12/5"),
.EMailAddress = New List(Of EMailModel)() From {
New EMailModel With {.DisplayName = "test1", .MailAddress = "mail1@test.com"},
New EMailModel With {.DisplayName = "test2", .MailAddress = "mail2@test.com"}
}
})
col.Insert(New AddressModel() With {
.Name = "test1",
.Birthday = Date.Parse("1981/12/5"),
.EMailAddress = New List(Of EMailModel)() From {
New EMailModel With {.DisplayName = "test3", .MailAddress = "mail3@test.com"},
New EMailModel With {.DisplayName = "test4", .MailAddress = "mail4@test.com"}
}
})
'MondoDBサーバー切断
mongo_drv.GetServer().Disconnect()
End Sub
Private Sub Button_Click_1(sender As Object, e As RoutedEventArgs)
'MongoDBサーバーに接続して、操作するコレクションを選択。
Dim mongo_drv = New MongoClient()
Dim db = mongo_drv.GetServer().GetDatabase("TestDB")
Dim col = db.GetCollection(Of AddressModel)("AddressCollection")
'LINQで検索
For Each model In (From t In col.AsQueryable() Where t.Name.StartsWith("test") Select t)
Console.WriteLine("--------")
Console.WriteLine(model.Name)
Console.WriteLine(model.Birthday)
For Each emodel In model.EMailAddress
Console.WriteLine(emodel.DisplayName)
Console.WriteLine(emodel.MailAddress)
Next
Console.WriteLine("--------")
Next
'MondoDBサーバー切断
mongo_drv.GetServer().Disconnect()
End Sub
Private Sub Button_Click_2(sender As Object, e As RoutedEventArgs)
'MongoDBサーバーに接続して、操作するコレクションを選択。
Dim mongo_drv = New MongoClient()
Dim db = mongo_drv.GetServer().GetDatabase("TestDB")
Dim col = db.GetCollection(Of AddressModel)("AddressCollection")
'LINQで検索、該当項目の日付を更新する（GMTがまちがってそう。。）
For Each model In (From t In col.AsQueryable() Where t.Name.StartsWith("test") Select t)
model.Birthday = Date.Now
col.Save(model)
Next
mongo_drv.GetServer().Disconnect()
End Sub
Private Sub Button_Click_3(sender As Object, e As RoutedEventArgs)
'MongoDBサーバーに接続して、操作するコレクションを選択。
Dim mongo_drv = New MongoClient()
Dim db = mongo_drv.GetServer().GetDatabase("TestDB")
Dim col = db.GetCollection(Of AddressModel)("AddressCollection")
'LINQで検索、該当項目の削除
For Each model In (From t In col.AsQueryable() Where t.Name.StartsWith("test") Select t)
col.Remove(Query.EQ("_id", model._id))
Next
mongo_drv.GetServer().Disconnect()
End Sub
End Class
Public Class AddressModel
Public Property _id As BsonObjectId
Public Property Name As String
Public Property Birthday As Date
Public Property EMailAddress As List(Of EMailModel)
End Class
Public Class EMailModel
Public Property DisplayName As String
Public Property MailAddress As String
End Class
日付の扱いがちょっとGMTがらみの調整が必要かもしれないけど、ひとまず使えるようになったのでここまで。
