VB Net : Setting ConnectionTimeOut

Pembaca pernah dapat pesan "Connection TimeOut Expired" ?? penulis akan mencoba sedikit menjelaskan tentang Connection Timeout :D

ConnectionTimeOut merupakan batas waktu sebuah variable koneksi dalam menghubungkan aplikasi dengan database/server. default nya ConnectionTimeOut hanya selama 15 detik.

Sample :
Saat kita membuat sebuah aplikasi yang dihubungkan ke database dengan koneksi seperti :

Dim con As New SqlClient.SqlConnection

With con
  .ConnectionString = "data source=.;user id=sa;password=khaest;initial catalog=dewakhaest"
  .Open()

End With

Dengan source diatas, Jika jaringan / hubungan antara aplikasi dengan database/server dalam keadaan bermasalah dan tidak dapat terkoneksi dalam waktu 15 detik maka akan muncul pesan error "Connection TimeOut Expired"...Kalau tidak salah.

Lalu bagaimana cara mengatasinya? kita dapat menambahkan batas waktu ConnectionTimeOut dengan cara berikut :

Dim con As New SqlClient.SqlConnection

With con
  .ConnectionString = "data source=.;user id=sa;password=khaest;initial catalog=dewakhaest;CONNECTION TIMEOUT=30"
  .Open()

End With

Dengan Source diatas, Batas waktu ConnectionTimeOut telah ditambahkan selama 30 detik, jika lebih dari 30 detik maka akan muncul pesan error tersebut.

Selain itu, kita juga bisa membuat ConnectionTimeOut tanpa batas waktu alias unlimited :D dengan cara mengganti nilai CONNECTION TIMEOUT menjadi bernilai 0 (Nol), seperti source dibawah ini :

Dim con As New SqlClient.SqlConnection

With con
  .ConnectionString = "data source=.;user id=sa;password=khaest;initial catalog=dewakhaest;CONNECTION TIMEOUT=0"
  .Open()

End With

Namun dengan mengganti CONNECTION TIMEOUT menjadi 0  tidak dianjurkan penulis....kenapa? karena dengan begitu aplikasi akan terus mencoba melakukan koneksi dengan server padahal server bermasalah misalnya server dalam keadaan mati.....bisa dibayangkan, server mati, aplikasi terus mencoba melakukan koneksi, hank....tanpa ada respond apapun...whehehee