makumbi says:
While
sdr.Read()
customers.Add(
New
Baladata
With
{
.Account = sdr(
"Account"
),
.Classr = sdr(
"Class"
),
.Stream = sdr(
"Stream"
),
.Names = sdr(
"Names"
),
.Subject = sdr(
"Subject"
),
.Mid = sdr(
"Mid"
),
.Ends = sdr(
"Ends"
),
.Grade = sdr(
"Grade"
),
.Term = sdr(
"Term"
),
.Years = sdr(
"Years"
),
.Total = sdr(
"Total"
),
.Phones = sdr(
"Phones"
)
})
End
While
Replace with below code. You need to check with IsDBNull before setting the property.
While sdr.Read()
customers.Add(New Baladata With {
.Account = If(),
.Classr = If(IsDBNull(sdr("Class")), String.Empty, sdr("Class")),
.Stream = If(IsDBNull(sdr("Stream")), String.Empty, sdr("Stream")),
.Names = If(IsDBNull(sdr("Names")), String.Empty, sdr("Names")),
.Subject = If(IsDBNull(sdr("Subject")), String.Empty, sdr("Subject")),
.Mid = If(IsDBNull(sdr("Mid")), String.Empty, sdr("Mid")),
.Ends = If(IsDBNull(sdr("Ends")), String.Empty, sdr("Ends")),
.Grade = If(IsDBNull(sdr("Grade")), String.Empty, sdr("Grade")),
.Term = If(IsDBNull(sdr("Term")), String.Empty, sdr("Term")),
.Years = If(IsDBNull(sdr("Years")), String.Empty, sdr("Years")),
.Total = If(IsDBNull(sdr("Total")), String.Empty, sdr("Total")),
.Phones = If(IsDBNull(sdr("Phones")), String.Empty, sdr("Phones"))
})
End While