executetescalar: объект не может быть приведен из DBNull к другим типам

Question

У меня проблема, когда нет данных / значение извлекается во время работы программы, я получаю следующую ошибку:

Объект не может быть приведен из DBNull к другим типам.

Я пытался проверить его, используя dr.hasrow(), но все равно получаю ошибки.

drqry = "SELECT max(num) FROM tbCVinfo WHERE cvno LIKE '%" & cvstr & "%'"

cmd2.CommandText = drqry
cmd2.Connection = con

Dim result As String = ""

cv = Convert.ToInt32(cmd2.ExecuteScalar())
'''''''''in this section I'm getting the error.

cv = cv + 1
If cv >= 0 And cv <= 9 Then
  ...............
Else
    cn = "0001"
End If
cn = result

cvno = cn

Answer 1

Простой способ обойти эту проблему - проверить, является ли возвращаемое значение DBNull:

Dim cv As Integer
Dim queryResult = cmd2.ExecuteScalar()
If IsDBNull(queryResult) Then
    ' No matching records. Do something about it.
Else
    cv = DirectCast(queryResult, Integer)
End If