1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16:
Dim rdr als MySqlDataReader rdr = cmd.ExecuteReader () Wenn rdr. Dann gelesen () I als ganze Zahl verdunkeln = 0 Während rdr. Gelesen () mail.ListView1.Items.Add (rdr („sender_guid“)) mail.ListView1.Items (i).SubItems.Add (rdr („Thema“)) mail.ListView1.Items (i).SubItems.Add (rdr („Körper“)) I += 1 Beenden während Wenn rdr. Dann gelesen () Wenn IsDBNull (rdr. Einzelteil („sender_guid“)) Dann mail.ListView1.Items.Add („ungültiger Wert“) Sonst mail.ListView1.Items.Add (rdr („sender_guid“) .ToString ())