Dunkel sSQL3 som stränger
Dunkel oRST3 som ADODB.Recordset
Uppsättning oRST3 = ny ADODB.Recordset
Dunkel oConnect3 som ADODB.Connection
Uppsättning oConnect3 = ny ADODB.Connection
sSQL3 _,
= ”_ för UPPDATERING [Quantité_distribuée]”,
& ”FRÅN [Inventaire]” _,
& ”VAR Période = ”” & ComDateDisponible.Text & ”” ”_,
& ”OCH Description_du_produit = ”” & Des_prod.Text & ”” ”,
oConnect3.Open ”Provider=Microsoft.ACE.OLEDB.12.0; ” & _,
”Data Source=” & Form4.txt BaseDe.Text &”; ”,
oConnect3.execute sSQL3