ComDateDisponible_Click secondario ()
sSQL3 fioco come stringa
oConnect3 fioco come ADODB.Connection
Regolar oConnect3 = nuovo ADODB.Connection
Oscurare oRST3 come ADODB.Recordset
Regolar oRST3 = nuovo ADODB.Recordset
sSQL3 = “Description_du_produit PRESCELTO DA [Inventaire] dove Periode =„ & CDate (ComDateDisponible.Text)
oConnect3.Open “Provider=Microsoft.ACE.OLEDB.12.0; „ & _
“Dati Source=„ & Form4.txt BaseDe.Text
Des_prod.Clear
oRST3.Open sSQL3, oConnect3
Fare fino a oRST3.EOF
Des_prod.AddItem oRST3 (“Description_du_produit„)
oRST3.MoveNext
Ciclo
Sommergibile dell'estremità
|