Galileo Computing < openbook >
Galileo Computing - Bücher zur Programmierung und Softwareentwicklung
Galileo Computing - Bücher zur Programmierung und Softwareentwicklung

...powered by haas.homelinux.net...

Einstieg in VB.NET von René Martin
- Für Programmiereinsteiger -
Einstieg in VB.NET
gp Kapitel 5 Dateizugriff
  gp 5.1 Prüfen, ob eine Datei vorhanden ist
  gp 5.2 Textdateien lesen und schreiben
  gp 5.3 Der OpenFileDialog
  gp 5.4 DriveListBox, DirListBox und FileListBox
  gp 5.5 Fehler
  gp 5.6 Bitte warten Sie ...
  gp 5.7 Zusammenfassung


Galileo Computing

5.5 Fehler  toptop

Auch wenn das vorhergehende Kapitel sich ausführlich mit dem Abfangen von Fehlern beschäftigt hat, auch wenn per Programmierung viele mögliche Fehlerquellen abgefangen wurden, alle Fehlerquellen können niemals eingeplant werden. Man könnte noch überprüfen, ob die Excel-Datei, in welche die Daten geschrieben werden, noch offen ist, und wenn ja, ob sie gespeichert ist. Aber was passiert, wenn die Datei auf einem Server liegt und beim Ablauf des Programms die Serververbindung gekappt wird? Oder wenn der Benutzer seine Daten vor der Mittagspause eingibt, die Datei aber nach der Mittagspause, wenn er das Hineinschreiben bestätigt, nicht mehr existiert? Vergessen Sie nicht, die möglichen Fehler abzufangen. Beispielsweise so:

...
Dim objDateiLeser As StreamReader
Try
   strExcelDateiName = objDateiLeser.ReadToEnd
   objDateiLeser.Close()
Catch ex As EndOfStreamException
   MessageBox.Show(ex.Message)
   strExcelDateiName = "C:\Dummy"
Catch ex As FileNotFoundException
   MessageBox.Show(ex.Message)
   Exit Sub
Finally
   objDateiLeser = Nothing
End Try
...

Oder beim Excel-Zugriff:

Try
...
   xlApp = New Excel.Application()
   xlApp.Visible = False
   xlMappe = xlApp.Workbooks.Open(strExcelDateiName)
   xlBlatt = xlMappe.Worksheets(1)
...
Catch ex As IOException
   MessageBox.Show(ex.Message)
Catch ex As FileNotFoundException
   MessageBox.Show(ex.Message)
   Exit Sub
Finally
   xlZelle = Nothing
   xlBlatt = Nothing
   xlMappe = Nothing
   xlApp = Nothing
End Try
...
  

VB.NET

Einstieg in ASP.NET

Einstieg in C#

Visual C#

VB.NET und Datenbanken

Einstieg in XML