Salvare immagine in una tabella Access

giovedì 28 maggio 2015 - 07.36

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

jekisi Profilo | Senior Member

460 messaggi | Data Invio: gio 28 mag 2015 - 07:36

Salve a tutto il forum, avrei il seguente problema.

In una tabella Access ho messo un campo OLE Object per salvare un immagine, ma non capisco come scrivere la query di Update riguardo questo campo.

Ho provato così

sql = "UPDATE RegioneSociale SET Logo=" & Chr(34) & LogoPictureBox.InitialImage & Chr(34) & " where Codice=" & CodiceTextBox.Text

ma mi da errore:

L' operatore '&' non è definito per i tipi di campi 'String' e 'System.Drawing.Image.'

Potete darmi qualche consiglio?

Distinti Saluti

Fabio Messina

Peppino Profilo | Junior Member

193 messaggi | Data Invio: gio 28 mag 2015 - 10:11

Ciao.
Non sono uno tanto esperto tanto meno di access, in quanto io uso visual basic e database sql nel mio piccolo, ma penso non ci sia tanta differenza. Come da consiglio degli esperti del forum dato a me, il logo lo salvi in una cartella (da fare attenzione a non cancellarlo), in tabella invece di creare un campo immagine crei un campo di una normale stringa e invece di salvare il logo in tabella vai a salvare il percorso in questo modo. nella form inserisci:
un pulsante(nel mio caso lo chiamato - BtnLogo)
una TextBox.text(nel mio caso lo chiamata - TxtLogo.Txt)
una PictureBox1.image

sul primo rigo del codice inserisci Imports System.IO
e dopo aver cliccato sul pulsante inserito, all'interno inserisci il seguente codice(ovviamente il tutto da adattare al linguaggio di programmazione che usi)

Private Sub BtnLogo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogo.Click
Dim Imma As New OpenFileDialog()
Imma.Title = "Seleziona Logo "
Imma.Multiselect = False
Imma.Filter = "Formato JPEG(*.jpg)|*.jpg|Formato GIF(*.gif)|*.gif|Formato PNG(*.png)|*.png|Formato BMP(*.bmp)|*.bmp"
Imma.FilterIndex = 4
Imma.FileName = ""
Imma.ShowDialog()

TxtLogo.Text = Imma.FileName

Dim ImmagineSelezionata As String = TxtLogo.Text

Dim FilestreamImmagine As New FileStream(ImmagineSelezionata, _
FileMode.Open, FileAccess.Read)

PictureBox1.Image = Image.FromStream(FilestreamImmagine)
End Sub

Spero di esserti stato d'aiuto altrimenti e sicuramente nel forum sapranno darti il consiglio più adatto per te.
Ciao. Fammi sapere.

jekisi Profilo | Senior Member

460 messaggi | Data Invio: gio 28 mag 2015 - 11:20

Solo che io la devo salvare sul db per poi portarla pure in stampa.

Tempo fa lo fatto ma non mi ricordo bene, mi ricordo però che ho usato il tipo di campo OLE OBJECT, magari e solo un problema di scrivere giusta la query.

Peppino Profilo | Junior Member

193 messaggi | Data Invio: ven 29 mag 2015 - 01:03

2023_Esempio.zip

Ciao.
Ti allego il codice che adattai io inizialmente, quando anche io volevo salvare l'immagine nel database. Poi ho cambiato sistema, con suggerimento degli esperti del forum.
Ciao.

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !