Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Futur Membre du Club
    ajouter des données dans une base access avec OleDb
    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

  2. #2
    Membre actif
    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...

###raw>template_hook.ano_emploi###