[VB.NET] Visualizzare piu immagini in un Form

[vbpro]

Ciaoo!!
Grazie per la tempestività nel rispondere, ora devo scappare a casa sta sera lo testo e ti faccio sapere.

Grazie
Un Salutone!!

[vbpro]

Ciao alka,
perdona la mia ignoranza, ma il codice che mi hai postato lo devo inserire nell evento di salvataggio?

Perchè lo fatto ma sorgono degli errori di sintassi.

Grazie per le risposte
Un Saluto!

[vbpro]

Eccomi ancora ora mi da quest'errore :

Form1.DatiPianteTableAdapter.InserimentoDati(txtNome.Text, txtClassificazione.Text, txtFamiglia.Text, txtOrdine.Text, txtClasse.Text, _
txtDivisione.Text, txtFusto.Text, txtFoglia.Text, txtAltezza.Text, txtFiori.Text, _
txtFioritura.Text, txtHabitat.Text, txtCaratteristiche.Text, txtNote.Text, txtData.Text)

Errore 4 Argomento non specificato per il parametro 'p16' di 'Public Overridable Overloads Function InserimentoDati(p1 As String, p2 As String, p3 As String, p4 As String, p5 As String, p6 As String, p7 As String, p8 As String, p9 As String, p10 As String, p11 As String, p12 As String, p13 As String, p14 As String, p15() As Byte, p16 As Date?) As Integer

[oregon]

Originariamente inviato da vbpro
Eccomi ancora ora mi da quest'errore

Mi pare che la descrizione dell'errore sia chiara ... no?

Manca l'ultimo parametro ...

[vbpro]

Ciao Oregon,

Perdona la mia incapacità...

Ora li ho messi tutti tranne la foto che ovviamente non so come fare per salvare è per quello che genera l'errore?

Form1.DatiPianteTableAdapter.InserimentoDati(txtNome.Text, txtClassificazione.Text, txtFamiglia.Text, txtOrdine.Text, txtClasse.Text, txtDivisione.Text, txtFusto.Text, txtFoglia.Text, txtAltezza.Text, txtFiori.Text, txtFioritura.Text, txtHabitat.Text, txtCaratteristiche.Text, txtNote.Text, txtData.Text)

Errore 5 Impossibile convertire il valore di tipo 'String' in 'Matrice a 1 dimensioni di Byte'.

per salvare la foto sto usando il codice che mi ha gentilmente postato alka ma non riesco a capire come e dove inserirlo ho fatto :

Private Sub cmdSalva_Click(sender As System.Object, e As System.EventArgs) Handles cmdSalva.Click
        Dim ms As New MemoryStream
        Me.FotoPictureBox.Image.Save(ms, Me.FotoPictureBox.Image.RawFormat)

        Dim arrayImage() As Byte = ms.GetBuffer
        ms.Close()

        Dim nStr As String = Me.Label1.Text.Substring(Me.Label1.Text.LastIndexOf("\") + 1)

        Dim strQuery As String = "INSERT INTO DatiPiante(Foto) VALUES(@Foto)"

        Dim objcommand As New SqlCommand(strQuery, Me.DatiPiante)
        With objcommand

            .Parameters.Add(New SqlParameter("@Foto", SqlDbType.Image)).Value = arrayImage
        End With

        Me.SqlConnection1.Open()
        objcommand.ExecuteNonQuery()
        MessageBox.Show("Image Saved Into the DataBase")
        Me.SqlConnection1.Close()

ho trovato anche qualcosa online ovviamente mi genera quest'errore che penso di capire perchè mancherebbe la connessione sql 1........e me.DatiPiante (che è il nome della tabella)

Errore 1 'DatiPiante' non è un membro di 'BonsaiHistory.Form2'.
Errore 2 'SqlConnection1' non è un membro di 'BonsaiHistory.Form2'.
Errore 3 'SqlConnection1' non è un membro di 'BonsaiHistory.Form2'.

Grazie per l'iteressamento e per gli aiuti

[vbpro]

Salve a tutti,
ho risolto il problema del salvataggio e l'inserimento foto nel db e ringrazio alka e oregon per l'aiuto che mi hanno dato posto la soluzione magari servisse a qualcuno che è a corto di vb come me :

Prima importo queste classi :
Imports System.IO
Imports System.Drawing.Image

poi creo la funzione che mi converte l'immagine in bytes :

Private Function ConvertImage(ByVal myImage As Image) As Byte()         
Dim mstream As New MemoryStream         
myImage.Save(mstream, System.Drawing.Imaging.ImageFormat.Jpeg)         
Dim myBytes(mstream.Length - 1) As Byte         
mstream.Position = 0         
mstream.Read(myBytes, 0, mstream.Length)         
Return myBytes       
End Function

e quando vado a salvare il tutto aggiungo : ConvertImage(Me.FotoPictureBox.Image)

Form1.DatiPianteTableAdapter.InserimentoDati(Me.txtNome.Text, Me.txtClassificazione.Text, Me.txtFamiglia.Text, Me.txtOrdine.Text, Me.txtClasse.Text, Me.txtDivisione.Text,Me.txtFusto.Text, _                                                  Me.txtFoglia.Text, Me.txtAltezza.Text, Me.txtFiori.Text, Me.txtFioritura.Text, _          Me.txtHabitat.Text, Me.txtCaratteristiche.Text, Me.txtNote.Text, ConvertImage(Me.FotoPictureBox.Image))

Grazie!!
Un saluto!!