[VB.NET] Salvare Immagine in db access

[Fabio7586]

Salve, ho una tabella con due campi, nome e foto, il primo campo e di tipo stringa e il secondo è un oggetto ole,
ho questo codice per caricare una foto in una picbox

Dim pic As Image
        OpenFileDialog1.ShowDialog()
        pic = New Bitmap(OpenFileDialog1.FileName)
        PictureBox1.BackgroundImage = pic
        PictureBox1.BackgroundImageLayout = ImageLayout.Stretch

dopodichè come faccio a scriverlo in un database?

grazie

[MarcoGG]

Considera che Access ha il File Limit a 2 GB, perciò un campo BLOB ( in Access penso sia Tipo Dati = "Oggetto OLE" ), già di per sè discutibile come scelta, diventa proibitivo.
Solitamente a DB si inserisce il percorso di un file multimediale, non il file stesso...

[Fabio7586]

ah, ok non sapevo di questa limitazione! Quindi potrei ricavare il percorso dal picturebox una volta caricata l'immagine? se si come ? (considera che le immagini le metto nella cartella stessa di lavoro, quindi potrei fare riferimento li con application.startuppath, però non so come ricavare la stringa del percorso!)

[MarcoGG]

Originariamente inviato da Fabio7586

ah, ok non sapevo di questa limitazione! Quindi potrei ricavare il percorso dal picturebox una volta caricata l'immagine? se si come ? (considera che le immagini le metto nella cartella stessa di lavoro, quindi potrei fare riferimento li con application.startuppath, però non so come ricavare la stringa del percorso!)

Beh, se usi una OpenFileDialog, il percorso completo ce l'hai già :

        OpenFileDialog1.ShowDialog()
        Dim percorso As String = OpenFileDialog1.FileName
        Dim pic As New Bitmap(percorso)

Inoltre, se queste immagini stanno tutte in una directory relativa a quella dell'eseguibile ( raggiungibile da Application.StartupPath... ), direi che inserire il percorso completo delle immagini è superfluo, oltre che dannoso ( e se poi sposti la dir dell'exe ? ). A questo punto nel DB metti solo il nome dei file immagine. Il percorso lo lasci costruire a VB, quando "carichi" l'immagine dal DB, esempio :

percorso = Application.StartupPath & "\" & "nomeCartellaImmagini\" & nomeFileImmagine

[Fabio7586]

Originariamente inviato da MarcoGG

Beh, se usi una OpenFileDialog, il percorso completo ce l'hai già :

        OpenFileDialog1.ShowDialog()
        Dim percorso As String = OpenFileDialog1.FileName
        Dim pic As New Bitmap(percorso)

Inoltre, se queste immagini stanno tutte in una directory relativa a quella dell'eseguibile ( raggiungibile da Application.StartupPath... ), direi che inserire il percorso completo delle immagini è superfluo, oltre che dannoso ( e se poi sposti la dir dell'exe ? ). A questo punto nel DB metti solo il nome dei file immagine. Il percorso lo lasci costruire a VB, quando "carichi" l'immagine dal DB, esempio :

percorso = Application.StartupPath & "\" & "nomeCartellaImmagini\" & nomeFileImmagine

quando fai questo

percorso = Application.StartupPath & "\" & "nomeCartellaImmagini\" & nomeFileImmagine

il nomefileimmagine come faccio ad ottenerlo? con openfiledialog1.filename, ottengo la path completa del percorso, ma se voglio solo il nome del file?

[MarcoGG]

        OpenFileDialog1.ShowDialog()
        Dim percorso As String = OpenFileDialog1.FileName
        Dim nomeFile As String = percorso.Substring(percorso.LastIndexOf("\") + 1)

[Fabio7586]

Originariamente inviato da MarcoGG

        OpenFileDialog1.ShowDialog()
        Dim percorso As String = OpenFileDialog1.FileName
        Dim nomeFile As String = percorso.Substring(percorso.LastIndexOf("\") + 1)

Grazie, avevo pensato ad una cosa molto macchinosa e lunga che poteva funzionare, ma se così si risolvono tutti i problemi tanto meglio! Sempre grazie mille per la tua immensa disponibilità!

[Fabio7586]

ciao ho un'altro problema,
Utilizzo questa per intercettare la pressione dei pulsanti:

Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Keys)

poi scrivo:

Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
        If GetAsyncKeyState(Keys.F9) Then
            form1.Show()
            Me.Hide()
        End If
    End Sub

L'ho usata già altre volte, ma non mi ha mai restituito l'errore "Limitazione di PInvoke: non può restituire varianti."
Da cosa dipende?

[MarcoGG]

Stai facendo qualcosa di "anomalo"...
Se intercetti TextBox1_KeyUp, che te ne fai della GetAsyncKeyState ?

[Fabio7586]

Originariamente inviato da MarcoGG

Stai facendo qualcosa di "anomalo"...
Se intercetti TextBox1_KeyUp, che te ne fai della GetAsyncKeyState ?

perchè così posso intercettare la pressione di un qualsiasi pulsante che con keyup non so fare! Se è più facile, mi spiegheresti come fare? Grazie mille!

[Fabio7586]

come si gestisce l'evento keyup?se non ti é di disturbo, mi faresti un esempio di come intercettare la pressione del tast f9 all`interno della textbox?

[MarcoGG]

    Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp

        If e.KeyCode = Keys.F9 Then
            MsgBox("Hai premuto F9")
        End If

    End Sub