sSQL2 fioco come stringa
oRST2 fioco come ADODB.Recordset
oConnect2 fioco come ADODB.Connection
Regolar oRST2 = nuovo ADODB.Recordset
Regolar oConnect2 = nuovo ADODB.Connection
sSQL2 _
= “_ di somma PRESCELTA ([Quantité_assignée])„
& “[employé di distribuzione]„ da _
& “DOVE Période = “„ & ComDateDisponible.Text & “„ “_
& “ E Description_du_produit = “„ & Des_prod.Text & “„ “
oConnect2.Open “Provider=Microsoft.ACE.OLEDB.12.0; „ & _
“Dati Source=„ & Form4.txt BaseDe.Text &„; “
oRST2.Open sSQL2, oConnect2
MsgBox oRST2.Fields (0). Valore
|