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 |
Partager