ComDateDisponible_Click secundario ()
sSQL3 dévil como secuencia
oConnect3 dévil como ADODB.Connection
Fijar oConnect3 = nuevo ADODB.Connection
Amortiguar oRST3 como ADODB.Recordset
Fijar oRST3 = nuevo ADODB.Recordset
sSQL3 = “Description_du_produit SELECTO DE [Inventaire] donde Periode =” y CDate (ComDateDisponible.Text)
oConnect3.Open “Provider=Microsoft.ACE.OLEDB.12.0; ” y _
“Datos Source=” y Form4.txt BaseDe.Text
Des_prod.Clear
oRST3.Open sSQL3, oConnect3
Hacer hasta oRST3.EOF
Des_prod.AddItem oRST3 (“Description_du_produit”)
oRST3.MoveNext
Lazo
Submarino del extremo
|