Dyd666 (Normal User)
Newbie
Messaggi: 7
Iscritto: 12/02/2007
|
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 
Ultima modifica effettuata da Dyd666 il 12/02/2007 alle 11:28 |
|
|
Dyd666 (Normal User)
Newbie
Messaggi: 7
Iscritto: 12/02/2007
|
Nessuno sa darmi una mano?
|
|
|
Dyd666 (Normal User)
Newbie
Messaggi: 7
Iscritto: 12/02/2007
|
Nessuno , nessuno  
|
|
|
Hacker (Member)
Guru
Messaggi: 1014
Iscritto: 06/06/2006
|
che oggetto usi?
P.S.
Non ripetere i messaggi,avrebbero già risposto le persone che sapevano rispondere al tuo quesito...
Ultima modifica effettuata da Hacker il 12/02/2007 alle 17:28 |
|
|
Dyd666 (Normal User)
Newbie
Messaggi: 7
Iscritto: 12/02/2007
|
Mi avevano suggerito di utilizzare per il mio tipo di problema l'oggetto Stream per il programma visual basic e l'oggetto Ole per il campo immagine del database...
Grazie dell'attenzione
Scusa per i reply....è solo che il mio è un problema per il lavoro , quindi avevo una certa urgenza  Chiedo ancora scusa
|
|
|
Hacker (Member)
Guru
Messaggi: 1014
Iscritto: 06/06/2006
|
oggetto Stream? lavoro?
L'oggetto stream l'hai scaricato da internet(se si posta il link da dove l'hai scaricata)o è già integrato con vb6?
Magari posso trovare il sorgente del tuo progetto su internet così ci posso dare un'occhiata + approfondita(per non chiederti gli oggetti che usi,ecc...)?
|
|
|
Dyd666 (Normal User)
Newbie
Messaggi: 7
Iscritto: 12/02/2007
|
Postato originariamente da Hacker:
oggetto Stream? lavoro?
L'oggetto stream l'hai scaricato da internet(se si posta il link da dove l'hai scaricata)o è già integrato con vb6?
Magari posso trovare il sorgente del tuo progetto su internet così ci posso dare un'occhiata + approfondita(per non chiederti gli oggetti che usi,ecc...)? |
Scusa mi sa che mi sono spiegato male....
Sto facendo un tirocinio in una ditta , e come compito mi hanno assegnato questo.... solo che non ci riesco! 
L'oggetto stream è incorporato all'interno di Vb6 e , a detta di qualcuno che ho sentito , è un metodo molto veloce per caricare delle Immagini in un database.....
Ti mando il sorgente sulla tua e-mail se ti va...
Ciao riccardo |
|
|
Hacker (Member)
Guru
Messaggi: 1014
Iscritto: 06/06/2006
|
quale dovrebbe essere la riga/e che inserisce l'immagine?
Ultima modifica effettuata da Hacker il 15/02/2007 alle 17:57 |
|
|
Dyd666 (Normal User)
Newbie
Messaggi: 7
Iscritto: 12/02/2007
|
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
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 |
|
|
|
| 
