image

[ttc]

hallo

ik heb een form waar ik een image inlaad in een picturebox met volgende code

Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myStream As Stream = Nothing
        Dim openFileDialog1 As New OpenFileDialog()

        openFileDialog1.InitialDirectory = "c:\"
        'openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        'openFileDialog1.FilterIndex = 2
        openFileDialog1.RestoreDirectory = True

        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Try

                PictureBox1.Image = System.Drawing.Image.FromFile(openFileDialog1.FileName)

                myStream = openFileDialog1.OpenFile()
                If (myStream IsNot Nothing) Then
                    ' Insert code to read the stream here.
                End If
            Catch Ex As Exception
                MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)
            Finally
                ' Check this again, since we need to make sure we didn't throw an exception on open.
                If (myStream IsNot Nothing) Then
                    myStream.Close()
                End If
            End Try
        End If

    End Sub
End Class

hoe kan ik deze image nu opslaan in mijn database ??
ik heb reeds een kolom in mijn tabel aangemaakt met (imge datatype)

 

[old Hippy]

Hi Ga in data sources naar je data tabel en kies de kolom waar je je afbeelding in wild.
Open het kies hier voor picturebox.
sleep deze naar je form en en pas je properties aan
Afbeelding laden en op slaan in je database

 

[ttc]

en met welke code kan ik ze opslaan ?

 

[old Hippy]

aan passen voor jou DB

    Function Save() As Boolean
        Try
            Me.Validate()
            Me.Table1BindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.PicturesDataSet)
            MsgBox("Data Saved to CategorieDataset")
            Return True
        Catch ex As Exception
            MsgBox(ex.ToString)
            Return False
        End Try
    End Function

 

[mustangBE]

ik heb ales een beetje aangepast , maar kan maar 1 item opslaan.
als ik een 2 de record wil opsaan krijg ik

Voor het bijwerken is een geldige UpdateCommand vereist wanneer een DataRow-verzameling wordt doorgegeven met gewijzigde rijen.

dit is de volledige code.

Imports System.IO

Public Class Form3

    Private Sub PicBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.PicBindingSource.EndEdit()
        Me.PicTableAdapter.Update(Me.Database1DataSet.pic)


    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Database1DataSet.pic' table. You can move, or remove it, as needed.
        Me.PicTableAdapter.Fill(Me.Database1DataSet.pic)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myStream As Stream = Nothing
        Dim openFileDialog1 As New OpenFileDialog()

        openFileDialog1.InitialDirectory = "c:\"
        'openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        'openFileDialog1.FilterIndex = 2
        openFileDialog1.RestoreDirectory = True

        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Try

                ImagePictureBox.Image = System.Drawing.Image.FromFile(openFileDialog1.FileName)


                myStream = openFileDialog1.OpenFile()
                If (myStream IsNot Nothing) Then
                    ' Insert code to read the stream here.
                End If
            Catch Ex As Exception
                MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)
            Finally
                ' Check this again, since we need to make sure we didn't throw an exception on open.
                If (myStream IsNot Nothing) Then
                    myStream.Close()
                End If
            End Try
        End If
    End Sub
End Class

 

[old Hippy]

Ok kennelijk heb je geen primary key
als je deze aanmaakt kan de bv (fotoID)
en je configureerd je fiil,Getdata query opnieuw dan krijg je de update, delete, fil en select
voor je dataset

PS ik weet niet waarom je fotos in je database wild zetten?
als het is om ze snel te kunnen zoeken is er een snellere oplossing.

 

[mustangBE]

kan de update query niet maken zie bijage

 

[old Hippy]

Hi Image is een datatype En kan niet als naamgebruikt worden

 

[mustangBE]

hij staat ingesteld als image

 

[old Hippy]

Ja maar ook de kolomnaam en dat kan niet je mag nooit een kolomnaam gebruiken
als dit ook een datatype is dus pas je kolom naam aan en geef je autonr een primarykey
indeling zie afbeelding

Ga dan naar Data Sources rechtermuisknop op fill,GetData klik op Configureeren en dan op Query Buider.... kijk of je koloms zijn aangevinkt dan execute Query
dan op OK Dan op Next daar moeten de drie vinkjes aan staan
klik op next Al je Querys worden nu gemaakt select, insert, ezv
klik op Finish en klaar.

Ps de Identity Specification dient om je autonummering ook automatich te laten werken.

 

[mustangBE]

gan we eens proberen.
dat van die kolomnaam wist ik niet:thumb:

de bedoeling is eigenlijk een productenlijst waarbij sommige prod. een afbeelding hebben.
ik dacht de afbeeldingen in een db op te slaan en dan via een combo boc te selecteren bij het juiste product , of een nieuw product

 

[old Hippy]

Ja wel wat omslachtig als je je af beeldingen in een map zet
kan je via een database makelijker met een combobox of zoek query je afbeeldingen ophalen en ook nog onder verdelen in categories of zo
je hebt veel meer mogelijkheden. import enexport via excel
dus niet elk fototje in laden en zo. maar sucses ik hoor het wel.

 

[mustangBE]

daar is mijn kennis een beetje te beperkt voor en het zijn maar ongeveer een 20 afbeeldingen

 

[old Hippy]

OK mocht je meer willen dan hoor ik het wel
hoop dat dit voor je werkt