sSQL3 fioco come stringa
oRST3 fioco come ADODB.Recordset
Regolar oRST3 = nuovo ADODB.Recordset
Oscurare oConnect3 come ADODB.Connection
Regolar oConnect3 = nuovo ADODB.Connection
sSQL3 _
= “_ dell'AGGIORNAMENTO [Quantité_distribuée]„
& “[Inventaire]„ da _
& “DOVE Période = “„ & ComDateDisponible.Text & “„ “_
& “E Description_du_produit = “„ & Des_prod.Text & “„ “
oConnect3.Open “Provider=Microsoft.ACE.OLEDB.12.0; „ & _
“Dati Source=„ & Form4.txt BaseDe.Text &„; “
oConnect3.execute sSQL3