Bonjour,


Je débute en base de donnée avec VB.NET mais j'ai réussi à récupérer les données d'une table mais impossible d'insérer une ligne. Et pourtant aucune erreur ne ressort, le code s'exécute mais la base de donnée n'est pas modifiée.
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
 
Dim MyConnection as ADODB.Connection
Dim rs as ADODB.RecordSet
Try
            MyConnection = New ADODB.Connection
            MyConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\gestionnairebdd.mdb;Persist Security Info=False"
            MyConnection.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        Try
            S1 = "INSERT INTO Adherents(NumAdherent,Nom,Prenom) VALUES(1,'Toto','Tata');"
            rs = MyConnection.Execute(S1)
            rs.Fields.Refresh()
            rs = Nothing
            MyConnection.Close()
            MyConnection = Nothing
            MsgBox("Validation")
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
Pouvez vous m'aider à savoir pourquoi cela ne provoque rien et m'aider à corriger ?

Merci