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.
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