Schwaches sSQL2 als Schnur
Schwaches oRST2 als ADODB.Recordset
Schwaches oConnect2 als ADODB.Connection
Einstellen oRST2 = neues ADODB.Recordset
Einstellen oConnect2 = neues ADODB.Connection
sSQL2 _
= „AUSERWÄHLTE Summe ([Quantité_assignée])“ _
u. „[Verteilung employé]“ vom _
u. „, WO Période = „“ u. ComDateDisponible.Text u. „“ „_
u. „ UND Description_du_produit = „“ u. Des_prod.Text u. „“ „
oConnect2.Open „Provider=Microsoft.ACE.OLEDB.12.0; “ u. _
„Datenquelle =“ u. Form4.txt BaseDe.Text u.“; „
oRST2.Open sSQL2, oConnect2
MsgBox oRST2.Fields (0). Wert
|