Bonjour,

Je ne suis pas programmeur, je suis un très petit amateur qui veut créer un programme de gestion de timbre.
J'ai ce code, je pense qu'il n'y as pas d'erreur au test, mais rien ne ce passe quand je clique sur le bouton
Je pense qu'il manque quelque chose, mais quoi?

Voici mon code:

Code VB.NET : 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
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Try
        Dim SavInto As New OleDb.OleDbCommand
        Dim ConStr As String = _
        "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
        Application.StartupPath & "\supplément SG.mdb"
        Dim Conn As New OleDbConnection(ConStr)
        SavInto.Connection = Conn
        SavInto.CommandType = CommandType.Text
        SavInto.CommandText = "INSERT INTO Principale(N° spc,N° SG,Val,Coul,Type,Perf,U,Code,Band,Paper/Gum,Date,Print,Date suppl)values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "', '" & TextBox5.Text & "','" & ComboBox1.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "', '" & ComboBox2.Text & "','" & TextBox9.Text & "','" & ComboBox3.Text & "','" & TextBox10.Text & "') "
        Conn.Open()
        SavInto.ExecuteNonQuery()
        Conn.Close()
        MsgBox("Données ajoutées avec succés")
 
        Catch ex As Exception
            Exit Sub
    End Try
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    TextBox4.Text = ""
    TextBox5.Text = ""
    TextBox6.Text = ""
    TextBox7.Text = ""
    TextBox8.Text = ""
    TextBox9.Text = ""
    TextBox10.Text = ""
 
 
    End Sub
End Class

Merci de par avance.

Jean-Paul