12/02/07 9:16
Dyd666
Ciao ragazzi
Innanzitutto complimenti per il sito , fa piacere vedere ragazzi della mia età impegnarsi in questo modo
Pongo il quesito: Devo caricare tramite visual basic delle immagini su di database..... il programma che ho scritto sembra funzioni , ma quando apro manualmente il db da access , nel campo immagine risulta non esserci nulla!
Che posso fare?
Grazie ciao
Allego programma
Dim ConProva As ADODB.Connection
'Definisco una var. per la connessione
Dim rstprova As ADODB.Recordset
'Definisco var. per il recordset
Dim FileImg As String
Dim ImmStream As ADODB.Stream
Private Sub Command1_Click()
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
End Sub
Private Sub Command2_Click()
ConProva.Close
End
End Sub
Private Sub Form_Load()
Set ConProva = New ADODB.Connection 'Inizializzo le variabili
Set rstprova = New ADODB.Recordset
ConProva.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Riccardo\Prove Access\dbg.mdb"
End Sub
Edit: ho eliminato una parte di codice che non centrava
Innanzitutto complimenti per il sito , fa piacere vedere ragazzi della mia età impegnarsi in questo modo
Pongo il quesito: Devo caricare tramite visual basic delle immagini su di database..... il programma che ho scritto sembra funzioni , ma quando apro manualmente il db da access , nel campo immagine risulta non esserci nulla!
Che posso fare?
Grazie ciao
Allego programma
Dim ConProva As ADODB.Connection
'Definisco una var. per la connessione
Dim rstprova As ADODB.Recordset
'Definisco var. per il recordset
Dim FileImg As String
Dim ImmStream As ADODB.Stream
Private Sub Command1_Click()
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
End Sub
Private Sub Command2_Click()
ConProva.Close
End
End Sub
Private Sub Form_Load()
Set ConProva = New ADODB.Connection 'Inizializzo le variabili
Set rstprova = New ADODB.Recordset
ConProva.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Riccardo\Prove Access\dbg.mdb"
End Sub
Edit: ho eliminato una parte di codice che non centrava
Ultima modifica effettuata da Dyd666 12/02/07 10:28
aaa