vb.net对象持久存在于数据库中

Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary

Dim obj As Object = New Object()
Dim formatter As BinaryFormatter = New BinaryFormatter()
Dim stream As MemoryStream = New MemoryStream()
formatter.Serialize(stream, obj)

Imports System.Data.Entity

Class MyContext
    Inherits DbContext

    Public Property MyObjects As DbSet(Of MyObject)
End Class

Class MyObject
    Public Property Id As Integer
    Public Property Name As String
End Class

Dim context As MyContext = New MyContext()
Dim obj As MyObject = New MyObject() With {.Id = 1, .Name = "Test"}
context.MyObjects.Add(obj)
context.SaveChanges()

Imports MongoDB.Driver

Dim client As MongoClient = New MongoClient("mongodb://localhost:27017")
Dim database As IMongoDatabase = client.GetDatabase("myDatabase")
Dim collection As IMongoCollection(Of BsonDocument) = database.GetCollection("myCollection")
Dim obj As BsonDocument = New BsonDocument("Id", 1).Add("Name", "Test")
collection.InsertOne(obj)