sSQL2 não ofuscante como a corda
oRST2 não ofuscante como ADODB.Recordset
oConnect2 não ofuscante como ADODB.Connection
Ajustar oRST2 = ADODB.Recordset novo
Ajustar oConnect2 = ADODB.Connection novo
sSQL2 _
= “_ da soma SELETA ([Quantité_assignée])”
& “[employé da distribuição]” do _
& “ONDE Période = “” & ComDateDisponible.Text & “” “_
& “ E Description_du_produit = “” & Des_prod.Text & “” “
oConnect2.Open “Provider=Microsoft.ACE.OLEDB.12.0; ” & _
“Origem de dados =” & Form4.txt BaseDe.Text &”; “
oRST2.Open sSQL2, oConnect2
MsgBox oRST2.Fields (0). Valor
|