使用VB.NET实现MongoDB中的BulkWrite动态文档

Imports MongoDB.Driver
Imports MongoDB.Bson

Dim client As New MongoClient("mongodb://localhost:27017")
Dim database As IMongoDatabase = client.GetDatabase("your_database_name")

Dim collection As IMongoCollection(Of BsonDocument) = database.GetCollection(Of BsonDocument)("your_collection_name")

Dim writes As New List(Of WriteModel(Of BsonDocument))()

' 插入文档
Dim document As New BsonDocument()
document.Add("key1", "value1")
document.Add("key2", "value2")
writes.Add(New InsertOneModel(Of BsonDocument)(document))

' 更新文档
Dim filter As New BsonDocument("key1", "value1")
Dim update As New BsonDocument("$set", New BsonDocument("key2", "new_value"))
writes.Add(New UpdateOneModel(Of BsonDocument)(filter, update))

' 删除文档
Dim deleteFilter As New BsonDocument("key1", "value1")
writes.Add(New DeleteOneModel(Of BsonDocument)(deleteFilter))

collection.BulkWrite(writes)