codice:dim i As Integer, ProdoArray() As Variant i = 0 rs.Open "TblProdotti", conn Do Until rs.EOF redim preserve ProdoArray(i) as variant ProdoArray(i) = CStr(rs(0)) MsgBox ProdoArray(i) i = i + 1 rs.MoveNext Loop
codice:dim i As Integer, ProdoArray() As Variant i = 0 rs.Open "TblProdotti", conn Do Until rs.EOF redim preserve ProdoArray(i) as variant ProdoArray(i) = CStr(rs(0)) MsgBox ProdoArray(i) i = i + 1 rs.MoveNext Loop
Vascello fantasma dei mentecatti nonchè baronetto della scara corona alcolica, piccolo spuccello di pezza dislessico e ubriaco- Colui che ha modificato l'orribile scritta - Gran Evacuatore Mentecatto - Tristo Mietitore Mentecatto chi usa uTonter danneggia anche te
Permessi di invio
Rispondi quotando