ComDateDisponible_Click secundário ()
sSQL3 não ofuscante como a corda
oConnect3 não ofuscante como ADODB.Connection
Ajustar oConnect3 = ADODB.Connection novo
Escurecer oRST3 como ADODB.Recordset
Ajustar oRST3 = ADODB.Recordset novo
sSQL3 = “Description_du_produit SELETO DE [Inventaire] onde Periode =” & CDate (ComDateDisponible.Text)
oConnect3.Open “Provider=Microsoft.ACE.OLEDB.12.0; ” & _
“Origem de dados =” & Form4.txt BaseDe.Text
Des_prod.Clear
oRST3.Open sSQL3, oConnect3
Fazer até oRST3.EOF
Des_prod.AddItem oRST3 (“Description_du_produit”)
oRST3.MoveNext
Laço
Submarino da extremidade
|