检查日期值为空 - 指定投射无效

Question

我有我的代码问题，我花了一天，但无法找出解决方法。错误代码是指定投的无效

这是非常高的机会是由于我的数据类型值检查日期值是否为空。因为当我删除I​​F ELSE语句的代码工作正常，我可以更新数据库。

情景是我为访问者提供时钟和停止时间，所以首先访问者时钟然后信息将插入到DB没有时钟输出时间（显然DB中的时钟输出时间将为NULL），后来当访问者计时出来时，我需要验证同一个访问者的计时时间是否为NULL。

下面是我的代码：

Private Sub btn_clockout_Click(sender As Object, e As EventArgs) Handles btn_clockout.Click 
    Dim con As New SqlConnection 
    Dim cmd As New SqlCommand 
    Dim clockouttimestatus As DateTime? = Nothing 

    Try 
     con.ConnectionString = "Data Source=LAPTOP-HP;Initial Catalog=COMPANY;Integrated Security=True" 
     cmd.Connection = con 
     con.Open() 
     cmd.CommandText = "select v_clockouttime from visitor where v_id = @txt_visitorid" 
     cmd.Parameters.Add("@txt_visitorid", SqlDbType.Int).Value = txt_visitorid.Text 
     clockouttimestatus = cmd.ExecuteScalar() 

     If IsDBNull(clockouttimestatus) Then 

      cmd.CommandText = "update visitor set v_clockouttime = @lbl_displaydate where v_id = @txt_visitorid" 

      cmd.Parameters.Add("@lbl_displaydate", SqlDbType.DateTime).Value = lbl_displaydate.Text 
      cmd.Parameters.Add("@txt_visitorid", SqlDbType.Int).Value = txt_visitorid.Text 
      cmd.ExecuteNonQuery() 

      MessageBox.Show("Visitor ID is successful clockout") 
     Else 

      MessageBox.Show("Visitor ID is failed to clockout") 

     End If 

    Catch ex As Exception 
     MessageBox.Show("Error while updating record on table..." & ex.Message, "Update Records") 
    Finally 
     con.Close() 
    End Try 

Answer 1

我认为当你试图ExecuteScalar()方法的Nullable(Of DateTime)可变的分配结果specified cast in not valid错误将被抛出。

Dim clockouttimestatus As DateTime? = Nothing 
clockouttimestatus = cmd.ExecuteScalar() 

这个异常会被抛出，只有当返回的值是DbNull

添加当我删除了的if else语句的代码工作正常通过”分配一个值

'connection and command staff 
Dim databaseValue = cmd.ExecuteScalar() 
clockouttimestatus = If(IsDbNull(databaseValue) = True, Nothing, databaseValue) 

If clockouttimestatus.HasValue = False Then 
    'Use your update block 
End If 

Answer 2

cmd.Parameters.Add("@lbl_displaydate", SqlDbType.DateTime).Value = lbl_displaydate.Text 

您分配一个文本值的日期时间参数。如果.NET无法将其隐式转换为日期时间，则该语句将失败。你应该照顾投在你的代码，例如这样的：

Dim parsedDate as DateTime 
Dim isValidDate as boolean = DateTime.TryParse(lbl_displaydate.Text, parsedDate) 

If isValidDate Then 
    cmd.Parameters.Add("@lbl_displaydate", SqlDbType.DateTime).Value = parsedDate 
End If