Discussion :

[Logisticien]

bonjour;

je suis débutant en Vb.Net et je voulais avoir votre aide pour corriger ce code afin que je me puisse enregistrer mes données dans une base Access via un interface vb.

voici le code

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
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
        dataFile = "C:\Users\Logisticien\Desktop\Livraison Fournisseurs.accdb" ' Change it to your Access Database location
        connString = provider & dataFile
        myConnection.ConnectionString = connString
    End Sub
 
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
 
 
        myConnection.Open()
        Dim cmd As OleDb.OleDbCommand
        Dim sql_ajouter As String
        If myConnection.State = ConnectionState.Open Then
            sql_ajouter = "insert into Reception(BL,OF,ArticleExterne,ArticleInterne,CFR,Qtité) values('" & txtRech.Text & "','" & txtOrdreFab.Text & "','" & txtArticleExterne.Text & "','" & txt_ArticleInterne.Text & "','" & CFR.Text & "','" & txtQuantite.Text & "');"
            cmd = New OleDbCommand(sql_ajouter, myConnection)
            cmd.Parameters.AddWithValue("BL", txtRech.Text)
            cmd.Parameters.AddWithValue("OF", txtOrdreFab.Text)
            cmd.Parameters.AddWithValue("ArticleExterne", txtArticleExterne.Text)
            cmd.Parameters.AddWithValue("ArticleInterne", txt_ArticleInterne.Text)
            cmd.Parameters.AddWithValue("CFR", CFR.Text)
            cmd.Parameters.AddWithValue("Qtite", txtQuantite.Text)
            cmd.ExecuteReader()
 
 
 
            MsgBox("Ajouté avec succès", MsgBoxStyle.Information, "Ajout")
 
        Else
            MsgBox("Erreur d'ajout", MsgBoxStyle.Exclamation, "Erreur")
        End If
        txtRech.Clear()
        txtOrdreFab.Clear()
        txtArticleExterne.Clear()
        txt_ArticleInterne.Clear()
        CFR.Clear()
        txtQuantite.Clear()
        txtRech.Focus()
        myConnection.Close()
    End Sub

Base Access : Livraison Fournisseurs
Table Reception

Le Message d'erreur ci dessous





Merci d'avance.
Log