我如何阅读 HasRow 然后更新？

Question

是否可以读取 HasRow 然后更新？这是我到目前为止尝试过的代码：

 If conn.State = ConnectionState.Closed Then
        conn.Open()
    End If

Dim sqlcmd As New MySqlCommand("SELECT * FROM tbl_online_attendance where employees_id = '" & lvRealAtt.Items(itms).SubItems(0).Text & "' and in_time = '" & lvRealAtt.Items(itms).SubItems(1).Text & "' ", conn)

            Dim dr As MySqlDataReader
            dr = sqlcmd.ExecuteReader
            If dr.HasRows Then
                Dim query As String

                query = "UPDATE tbl_online_attendance SET out_time = '" & lvRealAtt.Items(itms).SubItems(2).Text & "' where employees_id = '" & lvRealAtt.Items(itms).SubItems(0).Text & "' and in_time = '" & lvRealAtt.Items(itms).SubItems(1).Text & "'  "
                sqlcmd.Connection = conn
                sqlcmd.CommandText = query
                sqlcmd.ExecuteNonQuery() 'It error in this part
            Else

            End If

但它给我的错误是：

There is already an open DataReader associated with this Connection which must be closed first

请避免评论Use Parameters Your code is Prone to SQL injection attack

Answer 1

需要先关闭每个 SqlDataReader，然后才能执行另一个查询。所以我建议您将 sqlreader 和更新查询分开，将 reader 放入布尔函数中以检查是否存在具有这些参数的行。

Private Function HasRow(ByVal employeeid As Integer, ByVal date as DateTime) As Boolean
   HasRow = False
   Dim reader As SqlDataReader
   'do select query here
   'use the if reader.Read if you want to
   HasRow = reader.HasRows
   reader.Close()
End Function

更新前调用该函数，如果为True则继续更新。假设我们将其放入更新子中。

Private Sub Update()
    If HasRows(parameters here) Then
        'update query here
    End If
End Sub

Answer 2

如果您将连接保持在使用它们的方法的本地，则不必检查连接状态。连接和命令等数据库对象需要尽快关闭和处理。 Using...End Using 块会为您处理此问题，即使出现错误也是如此。在 .Execute....

之前不要打开连接

只需要计数时不要下拉数据。 .ExecuteScalar returns 结果集第一行的第一列，在本例中为计数。如果你有一个大的 table，你需要查看 If Exists，它会在找到匹配项后立即停止，而 Count 会查看整个 table.

始终使用参数。永远不要连接字符串来构建 sql 查询以避免 sql 注入。我不得不猜测参数的数据类型。检查您的数据库以获取实际类型并相应地调整代码。

Private Sub OPCode(ByVal itms As Integer)
    Dim RowCount As Integer
    Using conn As New MySqlConnection("Your connection string"),
        sqlcmd As New MySqlCommand("SELECT Count(*) FROM tbl_online_attendance where employees_id = @id and in_time = @inTime;", conn)
        sqlcmd.Parameters.Add("@id", MySqlDbType.Int32).Value = CInt(lvRealAtt.Items(itms).SubItems(0).Text)
        sqlcmd.Parameters.Add("@inTime", MySqlDbType.String).Value = lvRealAtt.Items(itms).SubItems(1).Text
        conn.Open()
        RowCount = CInt(sqlcmd.ExecuteScalar)
        If RowCount > 0 Then
            sqlcmd.CommandText = "UPDATE tbl_online_attendance SET out_time = @outTime where employees_id = @id and in_time = @inTime;"
            sqlcmd.Parameters.Add("@outTime", MySqlDbType.String).Value = lvRealAtt.Items(itms).SubItems(2).Text
            sqlcmd.ExecuteNonQuery()
        End If
    End Using
End Sub

我如何阅读 HasRow 然后更新？

How do I read HasRow then Update?

vb.net

idatareader