[Tanya] Cara mengecek NuLL value dari database mysql di vb.net 2010

Question

selamat sore rekan2 semua...

saya mau nanya nih,, gimana ya cara/ code untuk mengecek hasil dari query = NULL...???

saya menggunakan Mysql dan Vb.net 2010.

saya sudah mencoba dengan beberapa code seperti berikut, Namun Code Tersebut Hanya Membaca jika nilai dari querynya tidak NULL alias ada datanya...

code pertama :

        Dim strConn As String = "string koneksi kedatabasenya....."
        conn.ConnectionString = strConn
        conn.Open()
CMD.Connection = conn
CMD.CommandText = "SELECT idsoal from tbl_soal_tes_seri_angka where substring(idsoal,3,1) ='1' order by idsoal desc"
DR = CMD.ExecuteReader
If DR.HasRows Then
 DR.Read()
 If DR(0) Is DBNull.Value Then
   MessageBox.Show("DATA nya = NULL")
   Label7.Text = "11"
 ElseIf DR(0) > 0 Then
   MessageBox.Show("sudah ada kode soal")
   Label7.Text = DR(0)
 End If
End If

Code Kedua (Untuk Querynya Sama Yang Dirubah Hanya bagian pengecekan data NULLnya saja):

While DR.Read()
     If DR.IsDBNull(0) Then
       MessageBox.Show("Data Nya NULL")
       Label7.Text = "11" & "1"

     Else
       MessageBox.Show("sudah ada kode soal")
       Label7.Text = DR(0)
     End If
End While

DR.Close()

code ketiga :

If Not IsDBNull(DR(0)) Then
    MessageBox.Show("sudah ada kode soal")
    Label7.Text = DR(0)
Else
    MessageBox.Show("Data Nya NULL")
    Label7.Text = "11" & "1"
End If

DR.Close()

Kalo saya coba Querinya  dari mysqlnya seperti ini :

apakah ada yang salah di code saya..??

terima kasih...

By :[e-mail]

Answer 1

mohon di bantu ya...

Answer 2

Saya coba bantu ya.

Sepertinya ada salah pemahaman antara idsoal yang bernilai NULL di query result dan tidak ada hasil di query result (no row). Saya tidak tahu bagaimana kedua kondisi tersebut ditampilkan di tool MySQL Anda, tetapi sepertinya hasil dari query kedua tersebut merupakan 'tidak ada hasil" dari query (no row).

Untuk membuktikan, coba Anda update kode pertama menjadi:

If DR.HasRows Then
 DR.Read()
 If DR(0) Is DBNull.Value Then
   MessageBox.Show("DATA nya = NULL")
   Label7.Text = "11"
 ElseIf DR(0) > 0 Then
   MessageBox.Show("sudah ada kode soal")
   Label7.Text = DR(0)
 End If
Else
 MessageBox.Show("TIDAK ADA DATA")
End If

Saya rasa hasilnya adalah message box dengan tulisan "TIDAK ADA DATA"

Semoga membantu.

---

Best regards,
Ferry Meidianto | My Blog

Please remember to mark the replies as answers if they help and unmark them if they provide no help.