16/02/07 7:54
Dyd666
Sinceramente non so qual'è la parte precisa , perchè questo programma l'ho preso da internet ....
Ho cercato spiegazioni riguardanti l'oggetto Stream ( della famiglia ADO ) ma ho trovato ben poco....
Penso sia quella in grassetto comunque
Ho cercato spiegazioni riguardanti l'oggetto Stream ( della famiglia ADO ) ma ho trovato ben poco....
Penso sia quella in grassetto comunque
rstprova.Open "SELECT * FROM Prova;", ConProva, , adLockOptimistic
FileImg = "C:\Riccardo\Prove Access\soundgarden.jpg"
Set ImmStream = New ADODB.Stream
ImmStream.Type = adTypeBinary
ImmStream.Open
ImmStream.LoadFromFile FileImg
rstprova.AddNew
rstprova.Update
rstprova.Fields("Immagine" = ImmStream.Read
FileImg = "C:\Riccardo\Prove Access\soundgarden.jpg"
Set ImmStream = New ADODB.Stream
ImmStream.Type = adTypeBinary
ImmStream.Open
ImmStream.LoadFromFile FileImg
rstprova.AddNew
rstprova.Update
rstprova.Fields("Immagine" = ImmStream.Read
aaa