Di dalam Visual basic .NET ketika terjadi crash sebenarnya tidak cukup bodoh untuk menangani crash pada dirinya sendiri, melainkan karena vb tidak tahu apa yang harus dilakukan. Maka dari itu kita dapat membuat blok error dan memunculkan pesan error sesuai dengan alamat error yang tercatat.
Exception handling atau Error Handling merupakan bagian yang cukup penting dalam pemrograman manapun. Kita dapat meng-handle setiap error yang muncul dalam program maupun dalam verifikasi sebuah fungsi. Contohnya error handling itu apa saja sih? Bisa handle saat verifikasi user input, handle saat internet connection error dan lain-lain termasuk handle pada saat men-verifikasi return value dari sebuah fungsi/method.
Berikut Struktur penulisan dari try catch di VB .NET:
Try
' Do something in here that
' might raise an error.
Catch
' Handle exceptions that occur within
' the Try block, here.
Finally
' Perform cleanup code in here.
End Try
End Sub
Jika dalam Visual Basic 6 dan sebelum nya kita mengenal format error handling dengan sintaxt "On Error Goto...", pada Visual Basic .NET mekanisme yang digunakan adalah blok Try... Catch... Finally.
Pada saat code yang kita buat untuk dieksekusi disimpan di bawah blok Try dan jika terjadi error maka akan menjalankan code yang ada di bawah blok Catch.
Sementara blok finally bersifat opsional, code di bawah finally ini merupakan code yang akan selalu dijalankan saat terjadi error maupun tidak. Biasanya blok ini dipakai untuk menyimpan method dispose dan close seperti pada koneksi database.
Contoh penggunaan error handling:
Pada saat code yang kita buat untuk dieksekusi disimpan di bawah blok Try dan jika terjadi error maka akan menjalankan code yang ada di bawah blok Catch.
Sementara blok finally bersifat opsional, code di bawah finally ini merupakan code yang akan selalu dijalankan saat terjadi error maupun tidak. Biasanya blok ini dipakai untuk menyimpan method dispose dan close seperti pada koneksi database.
Contoh penggunaan error handling:
Sub ReadTable()
Dim connection As SqlConnection
Try
connection = New SqlConnection("connection_string")
connection.Open()
Dim command As SqlCommand = connection.CreateCommand
command.CommandText = "SELECT NamaField FROM NamaTabel"
Dim reader As SqlDataReader = command.ExecuteReader
While reader.Read
'code menggunakan reader(0).ToString
End While
reader.Close()
command.Dispose()
Catch ex As Exception
'menampilkan error
MsgBox(ex.Message)
Finally
'code yang akan selalu dieksekusi
connection.Close()
End Try
End Sub
