sSQL2 dévil como secuencia
oRST2 dévil como ADODB.Recordset
oConnect2 dévil como ADODB.Connection
Fijar oRST2 = nuevo ADODB.Recordset
Fijar oConnect2 = nuevo ADODB.Connection
sSQL2 _
= _ de la “suma SELECTA ([Quantité_assignée])”
y “[employé de la distribución]” de _
y “DONDE Période = “” y ComDateDisponible.Text y “” “_
y “ Y Description_du_produit = “” y Des_prod.Text y “” “
oConnect2.Open “Provider=Microsoft.ACE.OLEDB.12.0; ” y _
“Datos Source=” y Form4.txt BaseDe.Text y”; “
oRST2.Open sSQL2, oConnect2
MsgBox oRST2.Fields (0). Valor
|