Discussion :

[hama2am]

Bonjour
j ai un table Nommé achat_inst contient les achats en quantités de quelque articles de stock et une autre table Nommé stock contenant les quantités de tout les articles de stock .
le bute est de mettre à jours les quantités de stock après la confirmation d'achat selon le code de chaque article ( code article est le Clé Primaire).
j ai essayé avec le code si dessous la problème que ce code ne prend en charge que la première ligne (1 er article ) de table achat_inst pour mettre à jours le table stock et laisse la suite des lignes ( la suite des articles ) .
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
 
   Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\agrimed.mdb")
        cn.Open()
        Dim cmd As New OleDbCommand("select * from achat_inst", cn)
        Dim Adaptateur As New OleDbDataAdapter(cmd)
        Dim MonDataSet As New DataSet
        Adaptateur.Fill(MonDataSet, "achat_inst")
        For Each Ligne As DataRow In MonDataSet.Tables("achat_inst").Rows()
            Dim cmdb As New OleDbCommand("select [Code Article] from achat_inst", cn)
            Dim cmdd As New OleDbCommand("select [Quantité] from achat_inst where [Code Article]='" & cmdb.ExecuteScalar.ToString & "'", cn)
 
            Dim cmdc As New OleDbCommand("UPDATE Stock set [Qte en stock] = [Qte en stock] + '" & CInt(cmdd.ExecuteScalar.ToString) & "' where [Code Article] =@c1", cn)
            With cmdc.Parameters
                .Add("@c1", OleDbType.Char).Value = cmdb.ExecuteScalar.ToString
            End With
            cmdc.ExecuteScalar()
 
        Next

[Thumb down]

Bonjours,
where [Code Article] in ( select [Code Article] from achat_inst)"

[hama2am]

merci
le code a fonctionné mais il mis à jour juste le premier article d une valeur juste pour les autres articles fait la somme de toute les quantités de table achat_inst et le met à jours leurs quantités de la valeur somme

j' ai créer ce code après un grande effort a fonctionné bien mais il est trop long merci ci vous avez un code réduit :
1 - tout d’abord j ai crée un autre colonne appelai N° dans achat_inst qui ajoute +1 à sa valeur pour chaque nouveau article

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
 
        Dim cmd As New OleDbCommand("select * from achat_inst", cn)
        Dim Adaptateur As New OleDbDataAdapter(cmd)
        Dim MonDataSet As New DataSet
        Adaptateur.Fill(MonDataSet, "achat_inst")
        Dim a, b, c As Integer
        Dim cmdz As New OleDbCommand("select [N°] from achat_inst", cn)
        a = cmdz.ExecuteScalar.ToString
 
        For Each Ligne As DataRow In MonDataSet.Tables("achat_inst").Rows()
            Dim cmdf As New OleDbCommand("select [N°] from achat_inst", cn)
            If cmdf.ExecuteScalar.ToString = a Then
 
                Dim cmdb As New OleDbCommand("select [Code Article] from achat_inst where [N°]=@c1", cn)
                With cmdb.Parameters
                    .Add("@c1", OleDbType.Char).Value = a
                End With
                Dim cmdv As New OleDbCommand("select [Quantité] from achat_inst where [N°]=@c1", cn)
                With cmdv.Parameters
                    .Add("@c1", OleDbType.Char).Value = a
                End With
                Dim cmdc As New OleDbCommand("UPDATE Stock set [Qte en stock] = [Qte en stock] +'" & cmdv.ExecuteScalar.ToString & "' where [Code Article]=@c1", cn)
                With cmdc.Parameters
                    .Add("@c1", OleDbType.Char).Value = cmdb.ExecuteScalar.ToString
                End With
                cmdc.ExecuteScalar()
' Archiver cette Achat :
                Dim cmdh As New OleDbCommand("select [Code Article],[Quantité],[Désignation],[Prix Unitaire HT],[Remise],[TVA],[NET_HT],[MONTANT_TVA],[Net_TTC] from achat_inst  where [N°]=@l1", cn)
                With cmdh.Parameters
                    .Add("l1", OleDbType.Char).Value = a
                End With
                Dim dra As OleDbDataReader = cmdh.ExecuteReader
                Do While dra.Read
 
                    Dim cmdr As New OleDbCommand("INSERT INTO achat_detaile ([Type De Document],[Numero De Document],[Date D'achat],[Fournisseur],[Code Fournisseur],[Code Article],[Désignation],[Quantité],[Prix UHT],[Remise],[TVA],[NET_HT],[Montant TVA],[NET_TTC]) values( '" & Label30.Text & "','" & TextBox10.Text & "','" & CDate(DateTimePicker1.Text) & "','" & ComboBox3.Text & "','" & ComboBox2.Text & "','" & dra.GetString(0) & "', '" & dra.GetString(2) & "','" & dra.GetValue(1) & "','" & dra.GetValue(3) & "','" & dra.GetValue(4) & "','" & dra.GetValue(5) & "','" & dra.GetValue(6) & "','" & dra.GetValue(7) & "','" & dra.GetValue(8) & "')", cn)
                    cmdr.ExecuteScalar()
                Loop
 
                b = a + 1
                a = 0
 
 
            Else
 
                Dim cmdb As New OleDbCommand("select [Code Article] from achat_inst where [N°]=@c1", cn)
                With cmdb.Parameters
                    .Add("@c1", OleDbType.Char).Value = b
                End With
                Dim cmdv As New OleDbCommand("select [Quantité] from achat_inst where [N°]=@c1", cn)
                With cmdv.Parameters
                    .Add("@c1", OleDbType.Char).Value = b
                End With
                Dim cmdc As New OleDbCommand("UPDATE Stock set [Qte en stock] = [Qte en stock] +'" & cmdv.ExecuteScalar.ToString & "' where [Code Article]=@c1", cn)
                With cmdc.Parameters
                    .Add("@c1", OleDbType.Char).Value = cmdb.ExecuteScalar.ToString
                End With
                cmdc.ExecuteScalar()
' Archiver cette Achat :
                Dim cmdh As New OleDbCommand("select [Code Article],[Quantité],[Désignation],[Prix Unitaire HT],[Remise],[TVA],[NET_HT],[MONTANT_TVA],[Net_TTC] from achat_inst  where [N°]=@l1", cn)
                With cmdh.Parameters
                    .Add("l1", OleDbType.Char).Value = b
                End With
                Dim dra As OleDbDataReader = cmdh.ExecuteReader
                Do While dra.Read
 
                    Dim cmdr As New OleDbCommand("INSERT INTO achat_detaile ([Type De Document],[Numero De Document],[Date D'achat],[Fournisseur],[Code Fournisseur],[Code Article],[Désignation],[Quantité],[Prix UHT],[Remise],[TVA],[NET_HT],[Montant TVA],[NET_TTC]) values( '" & Label30.Text & "','" & TextBox10.Text & "','" & CDate(DateTimePicker1.Text) & "','" & ComboBox3.Text & "','" & ComboBox2.Text & "','" & dra.GetString(0) & "', '" & dra.GetString(2) & "','" & dra.GetValue(1) & "','" & dra.GetValue(3) & "','" & dra.GetValue(4) & "','" & dra.GetValue(5) & "','" & dra.GetValue(6) & "','" & dra.GetValue(7) & "','" & dra.GetValue(8) & "')", cn)
                    cmdr.ExecuteScalar()
                Loop
 
                b = b + 1
            End If
 
        Next

[Thumb down]

Bonjour, et comme ça!

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

UPDATE Stock INNER JOIN achat_inst ON Stock.[Code Article] = achat_inst.[Code Article] SET Stock.[Qte en stock] = [Quantité]+[Qte en stock];