Faible sSQL2 comme corde
Faible oRST2 comme ADODB.Recordset
Faible oConnect2 comme ADODB.Connection
Placer oRST2 = nouvel ADODB.Recordset
Placer oConnect2 = nouvel ADODB.Connection
sSQL2 _
= « _ de somme CHOISIE ([Quantité_assignée]) »
et « [employé de distribution] » du _
et « OÙ Période = « » et ComDateDisponible.Text et « » « _
et « ET Description_du_produit = « » et Des_prod.Text et « » «
oConnect2.Open « Provider=Microsoft.ACE.OLEDB.12.0 ; » et _
« Point d'émission = » et Form4.txt BaseDe.Text et » ; «
oRST2.Open sSQL2, oConnect2
MsgBox oRST2.Fields (0). Valeur
|