Eine Frage zur Fehlerbehandlung mit Try Catch usw..
Habe mir ein DataTable mit BindingSource etc aufgebaut und lasse die Textboxen für Eingaben dahingehend prüfen, das keine NULL-Werte erlaubt sind.
Der nachfolgende Code funktioniert prima. Er schreibt mir, wenn alles OK ist mein XML-File oder wenn ein Fehler auftritt mein Logfile.
Jetzt meine Frage: Ist das so "erlaubt" könnte man das noch "verbesssern" Ohne das ganze komplett umzuschreiben?
Der ganze Code liegt in dem Form!
Spoiler anzeigen
Habe mir ein DataTable mit BindingSource etc aufgebaut und lasse die Textboxen für Eingaben dahingehend prüfen, das keine NULL-Werte erlaubt sind.
Der nachfolgende Code funktioniert prima. Er schreibt mir, wenn alles OK ist mein XML-File oder wenn ein Fehler auftritt mein Logfile.
Jetzt meine Frage: Ist das so "erlaubt" könnte man das noch "verbesssern" Ohne das ganze komplett umzuschreiben?
Der ganze Code liegt in dem Form!
VB.NET-Quellcode
-
- Dim MyxmlFile As String = "Settings.xml" 'Application.StartupPath &
- Dim MyLogFile As String = "Logfile.txt" 'Application.StartupPath &
- Dim HDDS As DriveInfo() = DriveInfo.GetDrives()
- Dim savesuccess As Boolean = False
- #Region "Speichern/Fehlerbehandlung"
- Private Sub Btn_save_Click(sender As Object, e As EventArgs) Handles Btn_save.Click
- SaveData()
- If savesuccess Then
- Lbl_error.Visible = True
- Lbl_error.Text = "Daten wurden gespeichert."
- Else
- If MessageBox.Show("Ein Fehler ist passiert." & Environment.NewLine & "Die LogDatei öffnen?", "Hinweis", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = DialogResult.Yes Then
- System.Diagnostics.Process.Start("Logfile.txt")
- End If
- End If
- End Sub
- Private Sub SaveData()
- Try
- Me.Validate()
- Me.DTsettingsBS.EndEdit()
- Appsettings.WriteXml(MyxmlFile)
- savesuccess = True
- Catch ex As Exception
- ExceptionToFile(ex.Message)
- End Try
- End Sub
- Public Sub ExceptionToFile(ByVal ExceptionMessage As String)
- File.AppendAllText(MyLogFile, ExceptionMessage)
- File.AppendAllText(MyLogFile, Environment.NewLine)
- End Sub
- #End Region
Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen.