Faible sSQL3 comme corde
Faible oRST3 comme ADODB.Recordset
Placer oRST3 = nouvel ADODB.Recordset
Obscurcir oConnect3 comme ADODB.Connection
Placer oConnect3 = nouvel ADODB.Connection
sSQL3 _
= de « _ MISE À JOUR [Quantité_distribuée] »
et « [Inventaire] » du _
et « OÙ Période = « » et ComDateDisponible.Text et « » « _
et « ET Description_du_produit = « » et Des_prod.Text et « » «
oConnect3.Open « Provider=Microsoft.ACE.OLEDB.12.0 ; » et _
« Point d'émission = » et Form4.txt BaseDe.Text et » ; «
oConnect3.execute sSQL3