Discussion :

[StatInfo31]

Bonjour à toutes et à tous,

Je suis en train d'écrire un programme en VB.net. Ce programme génère des objets, et j'aimerai pouvoir insérer les valeurs de ces objets dans une base mongoDB. Pour le moment je me suis contenté de sérialiser ces objets dans un fichier XML, mais je voudrais remplacer cela par une écriture dans mongoDB.
J'ai trouvé le package "mongoDB.driver", mais j'ai du mal avec la documentation existante. Je ne comprends pas vraiment comment écrire dans mongoDB.
Est-ce que quelqu'un aurait déjà utilisé ce package et serait en mesure de m'aider ?

Merci d'avance

[mactwist69]

Même avec ce tutoriel là, qui à l'air très bien fait :

https://code.msdn.microsoft.com/Gett...-with-37dbd5bd

[StatInfo31]

J'ai déjà essayé ce tutoriel. Le problème est qu'il n'est pas très récent (3 ans), et que rien que le début ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Dim mongo As MongoServer = MongoServer.Create()

MongoServer.Create n'existe pas. Et je n'ai pas trouvé d'autres tuto pour m'aider dans ce que je veux faire :/

[mactwist69]

Quelle version du driver ?

[StatInfo31]

Bon, j'ai finalement réussi à faire ce que je voulais, à savoir écrire un tableau dans mongoDB, et pouvoir mettre à jour ces données lorsque mon programme modifie le tableau.

Je mets mon code au cas où quelqu'un d'autre cherche à faire la même chose:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
      Dim client As MongoClient
        Dim server As MongoServer
        Dim db As MongoDatabase
 
        'Connect :
        client = New MongoClient("mongodb://localhost")
        server = client.GetServer()
        db = server.GetDatabase("MaBase")
 
        'Ecriture dans mongoDB :
        Dim u As Integer
        For u = 0 To 10
 
            Dim collection = db.GetCollection(Of BsonDocument)("MaCollec")
 
            'Première Ecriture :
            If compteur = 1 Then
                Dim doc As BsonDocument = New BsonDocument() _
                             .Add("_id", u) _
                            .Add("Prenom", tableauP(u).prenom) _
                            .Add("nom", tableauP(u).nom)
 
 
 
                collection.Insert(doc)
 
                ' Mise à jour :
            Else
 
                Dim doc As BsonDocument = New BsonDocument() _
                            .Add("_id", u) _
                            .Add("Prenom", tableauP(u).prenom) _
                            .Add("nom", tableauP(u).nom)
 
                Dim queryid = New QueryDocument("_id", u)
                For Each item As BsonDocument In collection.Find(queryid)
 
                    Dim UpdateStmt = New UpdateDocument(doc)
 
                    collection.Update(queryid, UpdateStmt)
 
 
                Next
            End If
 
        Next

[StatInfo31]

Ah, et j'utilise la dernière version du Driver.
Merci de ton aide mactwist69