Bild in Dataset.xsd Speichern

guccini · 26. Januar 2014, 13:28

hallo zusammen...habe 2 probleme...1.bin an eine werkzeugdatenbank am basteln, beim speichern der bilder wird das komplett als xml gespeichert, möchte gerne das die bilder separat gespeichert werden da sonst die xml zu gross wird.
2.wenn ich editiere wird datum+uhrzeit nicht aktualisiert.
hoffe kann jemand helfen.

VB.NET-Quellcode

Imports Manager_2014.werkzeuge
Imports System.IO
Imports System.Text
Imports System.Text.RegularExpressions
Public Class Form5
Private _data As String = "O:\Datenbank\Manager_2014.Dataset"
Private Sub Form5_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.Werkzeuge.ReadXml(_data)
End Sub
Private Sub Neu_Click(sender As System.Object, e As System.EventArgs) Handles Neu.Click
Me.BohrerBindingSource.AddNew()
End Sub
Private Sub Speichern_Click(sender As System.Object, e As System.EventArgs) Handles Speichern.Click, Me.FormClosing
Me.Werkzeuge.WriteXml(_data)
End Sub
Private Sub Ändern_Click(sender As System.Object, e As System.EventArgs) Handles Ändern.Click
For Each tb In Me.Controls.OfType(Of TextBox)()
tb.ReadOnly = False
Next
End Sub
Private Sub Löschen_Click(sender As System.Object, e As System.EventArgs) Handles Löschen.Click
Dim löschen = DirectCast(DirectCast(BohrerBindingSource.Current, DataRowView).Row, bohrerRow)
löschen.Delete()
End Sub
Private Sub BohrerBindingSource_CurrentChanged(sender As System.Object, e As System.EventArgs) Handles Speichern.Click
For Each tb In Me.Controls.OfType(Of TextBox)()
tb.ReadOnly = True
Next
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If OFD.ShowDialog() = MsgBoxResult.Ok Then
txtpic.Text = OFD.FileName
PicPictureBox.Image = Image.FromFile(txtpic.Text)
Else
PicPictureBox.Image = Nothing
End If
End Sub
End Class

ErfinderDesRades · 26. Januar 2014, 13:37

2.wenn ich editiere wird datum+uhrzeit nicht aktualisiert.

hä?

guccini · 26. Januar 2014, 13:51

beim editieren eine zeile in dgv wird datum und uhrzeit nicht aktualisiert ,bleibt immer der alte stand.

ErfinderDesRades · 26. Januar 2014, 16:34

ich kann auf dem Bild keinen Fehler entdecken - wo sollte etwas anneres stehen, und was?

guccini · 26. Januar 2014, 18:57

ich möchte die bilder die abgespeichert werden nicht als xml gespeichert haben sondern nur den pfad.
die xml(dataset) wird unter "O:\Datenbank\Manager_2014.Dataset" gespeichert und ich möchte in "O:\Datenbank\Bilder\" die Bilder drin haben die auch von dort abgerufen werden.
im bild sieht man Button "Ändern" ,wenn ich was ändere möchte ich das das datum und uhrzeit automatisch mit aktualisiert wird.

VB1963 · 26. Januar 2014, 19:18

Man tut eigentlich keine Bilder in eine Datenbank speichern, das verbraucht ja eine Menge Resourcen in der Datenbank.
Ändere dein Datenmodel und speichere in der Bildspalte deiner Tabelle den Namen des Bildes als String.
Den Ort der Bilder kennst du ja!

guccini · 26. Januar 2014, 19:57

hab in der dataset von Bild= system.byte() auf system.string umgestellt leider passiert nichts...!was mach ich falsch??

VB1963 · 26. Januar 2014, 20:36

Alleine mit Typumstellung wird das Ganze nicht funktionieren.
In diese Spalte gehören dann die Bildpfade angegeben.
Gehe dann in etwa so weiter vor:
pictureBox1.Image = Bitmap.FromFile(BildPfad) oder PictureBox1.ImageLocation = BildPfad

guccini · 26. Januar 2014, 20:48

hab was falsch gemacht?

VB.NET-Quellcode

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If OFD.ShowDialog() = MsgBoxResult.Ok Then
txtpic.Text = OFD.FileName
PicPictureBox.Image = Bitmap.FromFile("O:\Datenbank\Images")
Else
PicPictureBox.Image = Nothing
End If
End Sub

VB1963 · 26. Januar 2014, 20:54

Meinst du da nicht, das da noch die Bilddatei fehlt?

guccini · 26. Januar 2014, 21:01

sorry hab ich gemacht , jedoch wenn ich ein anderes bild lade kommt immer das selbe bild?

xtts02 · 26. Januar 2014, 21:03

guccini schrieb:

hab ich gemacht ,

Gewöhne Dich dran auch zu erwähnen, was (und vor allem wie) Du gemacht hast, denn wir können nicht hellsehen!

VB1963 · 26. Januar 2014, 21:05

Zeige deinen korr. Code...

guccini · 26. Januar 2014, 21:10

VB.NET-Quellcode

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If OFD.ShowDialog() = MsgBoxResult.Ok Then
txtpic.Text = OFD.FileName
PicPictureBox.Image = Bitmap.FromFile("O:\Datenbank\Images\iooo.jpg")
Else
PicPictureBox.Image = Nothing
End If
End Sub

xtts02 · 26. Januar 2014, 21:21

Du hast einen festen Pfad angegeben. Es wird also nichts ändern, wenn Du einen anderen Datensatz auswählst.
Du musst den Pfad schon neu zusammensetzen.

VB1963 · 26. Januar 2014, 21:29

Ich nehme einmal an, du hast deine Textbox, wo der Bildpfad übergeben wird an deine Datenquelle gebunden.
Genau so gut könntest du die Picturebox1.ImageLocation daran binden...

guccini · 26. Januar 2014, 21:35

ich hatte das so vor gehabt , in der dataset den pfad und in den ordner "Images" die bilder, hab keine ahnung wie ich das anstellen soll..!

ErfinderDesRades · 26. Januar 2014, 21:35

Er sollte den Ofd-Pfad überhaupt nicht der Textbox zuweisen, sondern dem selektierten Datensatz. Alte Leier: Programmieren in typisierter Manier - Daten laden, speichern, verarbeiten

guccini · 26. Januar 2014, 21:45

wie soll ich vorgehn, so das ich ein bild laden kann und in die dataset einfüge?

xtts02 · 26. Januar 2014, 23:26

Grob in etwa so (beim typisierten DataSet natürlich den richtigen Datentyp und nicht den allgemeinen DataRow)
Also
- den aktuellen Datensatz ermitteln
- Pfad auswählen
- Prüfen, ob die Daten gültig sind
- den Pfad dem richtigen Feld des aktuellen Satzes zuweisen

VB.NET-Quellcode

Private Sub AddPathButton_Click(sender As System.Object, e As System.EventArgs) Handles AddPathButton.Click
Dim currentDataRow As DataRow = Nothing
Dim filename = String.Empty
' Pfad auswählen
Using dlg As New OpenFileDialog
If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then filename = dlg.FileName
End Using
' Aktuellen Datensatz aus Bindingsource holen
If Me.TestBindingSource.Current IsNot Nothing Then currentDataRow = DirectCast(Me.TestBindingSource.Current, DataRow)
' Prüfen
If Not IO.File.Exists(filename) OrElse currentDataRow Is Nothing Then
MessageBox.Show("Datensatz und/oder Pfad fehlt!")
Return
End If
' Pfad dem Datensatz zuweisen
currentDataRow.Item("Path") = filename
End Sub

Bild in Dataset.xsd Speichern

Bild in Dataset.xsd Speichern

VB.NET-Quellcode

VB.NET-Quellcode

guccini schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben