vs2019 下用 vb.net编写窗体程序连接 mongodb4.2的方法

一、安装MongoDB.Driver程序包

在Visual Studio 2019中创建一个VB.NET的Windows窗体应用程序，接下来需要安装MongoDB.Driver程序包，才能连接MongoDB数据。在Visual Studio 2019中打开「解决方案资源管理器」，右键点击项目名称，选择「管理 NuGet程序包」，在NuGet包管理器中搜索MongoDB.Driver，选择对应版本，点击「安装」便可安装MongoDB.Driver。

二、连接MongoDB数据库

在窗体程序中打开连接MongoDB数据库的代码文件，添加Imports MongoDB.Driver命名空间。在Form1类中添加以下代码，获取数据库集合对象：

Imports MongoDB.Driver
Public Class Form1
    Private client As MongoClient 'MongoDB的客户端对象
    Private database As IMongoDatabase 'MongoDB的数据库对象
    Private collection As IMongoCollection(Of BsonDocument) 'MongoDB的集合对象
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '获取MongoDB的客户端对象
        client = New MongoClient("mongodb://localhost:27017/")
        '获取名为MyTest的数据库
        database = client.GetDatabase("MyTest")
        '获取名为Test的集合
        collection = database.GetCollection(Of BsonDocument)("Test")
    End Sub
End Class

在代码中的client对象表示MongoDB的客户端对象，在创建时需要传入MongoDB服务器的IP地址和端口号。database对象表示MongoDB的数据库对象，通过GetDatabase方法获取对应名称的数据库对象。collection对象表示MongoDB的数据集合对象，通过GetCollection方法获取对应名称的数据集合。

三、操作MongoDB数据库

这里提供两个操作MongoDB数据库的示例，一个是插入文档数据，一个是查询文档数据。

1. 插入文档

在窗体程序中添加一些控件，例如TextBox、Button，在Button的Click事件中添加以下代码，实现插入文档数据到MongoDB数据库:

Private Sub btnInsert_Click(sender As Object, e As EventArgs) Handles btnInsert.Click
    '生成插入的文档数据
    Dim document = New BsonDocument {
        {"name", txtName.Text},
        {"age", Integer.Parse(txtAge.Text)}
    }
    '将文档插入MongoDB的集合中
    collection.InsertOne(document)
End Sub

在代码中，通过BsonDocument对象来创建要插入的文档数据。代码中的txtName和txtAge分别是TextBox对象，用于获取用户输入的数据。通过InsertOne方法将文档数据插入到MongoDB的集合中。

1. 查询文档

在窗体程序中添加一些控件，例如Button、ListBox，在Button的Click事件中添加以下代码，实现查询集合中的所有文档数据，并将它们显示在ListBox中：

Private Sub btnQuery_Click(sender As Object, e As EventArgs) Handles btnQuery.Click
    '查询集合中的所有文档数据
    Dim documents = collection.Find(New BsonDocument).ToList()
    '将文档数据显示到ListBox中
    lstDocuments.Items.Clear()
    For Each document In documents
        lstDocuments.Items.Add(document.ToJson())
    Next
End Sub

在代码中，通过Find方法来查询MongoDB的集合中的所有文档数据。通过给Find方法传递一个空的BsonDocument对象，表示查询所有文档数据。在查询成功后，将所有文档数据通过ToJson方法转化成JSON字符串，然后将其添加到ListBox中显示。