Discussion :

[jpc311000]

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

[BRUNO71]

Bonjour,

Si je peux t'apporter quelque chose, voici un exemple de code que tu devras adapter à ton cas :

En c#

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
                 OleDbConnection MyConnection = new OleDbConnection(@"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\ta base de données.accdb;Persist Security Info=False");
 
                 MyConnection.Open();
 
                   String my_querry = "INSERT INTO Ma_table (Num, NomPrenom) VALUES (@param1, @param2)";
 
                 using (OleDbCommand cmd = new OleDbCommand(my_querry, MyConnection))
                       {
                         //Création et déclaration des paramètres
 
                       cmd.Parameters.Add("@param1", OleDbType.Integer).Value = TextBox1.Text;
                        cmd.Parameters.Add("@param2", OleDbType.VarChar).Value = TextBox2.Text;
 
 
                         cmd.ExecuteNonQuery();
                       }
 
                        MyConnection.Close();

En vb

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
Private Sub SurroundingSub()
    Dim MyConnection As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\ta base de données.accdb;Persist Security Info=False")
    MyConnection.Open()
    Dim my_querry As String = "INSERT INTO ta_table (Num, NomPrenom) VALUES (@param1, @param2)"
 
    Using cmd As OleDbCommand = New OleDbCommand(my_querry, MyConnection)
        'Création et déclaration des paramètres
 
        cmd.Parameters.Add("@param1", OleDbType.[Integer]).Value = TextBox1.Text
        cmd.Parameters.Add("@param2", OleDbType.VarChar).Value = TextBox2.Text
        cmd.ExecuteNonQuery()
    End Using
 
    MyConnection.Close()
End Sub

Selon comment tu travail as-tu regarder avec une base de données SQLITE ?


En espérant que mes exemples te servent...