Pesan tersebut muncul ketika kita akan menampilkan data dimana baris record tersebut pada salah satu field-nya berisi nilai 'null' alias tidak terdapat data. Agar pesan exception tersebut tidak muncul lagi pastikan bahwa semua field berisi data dan tidak ada yang kosong alias 'null'. Cara lainnya adalah dengan menggunakan IsDBNull. Contoh pemakaian perintah IsDBNull seperti pada syntax di bawah ini:
cn.Open()
comm.Connection = cn
comm.CommandType = CommandType.Text
comm.CommandText = "select * from test where kolom1 = '888'"
dr = comm.ExecuteReader
If dr.Read Then
If IsDBNull(dr!kolom2) Then
TextBox1.Text = ""
Else
TextBox1.Text = dr!kolom2
End If
End If
Pada syntax di atas jika terdapat nilai 'null' pada kolom2, maka pada TextBox1 akan tampil kosong dan sebaliknya, jika terdapat data akan menampilkan isi dari field kolom2.
No comments:
Post a Comment