Update查询正在导致vb.net崩溃

Dim connectionString As String = "YourConnectionStringHere"
Using connection As New SqlConnection(connectionString)
    Try
        connection.Open()
        ' 执行Update查询
    Catch ex As SqlException
        Console.WriteLine("数据库连接错误: " & ex.Message)
    End Try
End Using

Dim sql As String = "UPDATE YourTable SET Column1 = @Value1 WHERE Condition = @ConditionValue"
Using command As New SqlCommand(sql, connection)
    command.Parameters.AddWithValue("@Value1", newValue)
    command.Parameters.AddWithValue("@ConditionValue", conditionValue)
    Try
        command.ExecuteNonQuery()
    Catch ex As SqlException
        Console.WriteLine("SQL执行错误: " & ex.Message)
    End Try
End Using

Dim batchSize As Integer = 1000
Dim offset As Integer = 0
Do While True
    Dim sql As String = "UPDATE TOP (@BatchSize) YourTable SET Column1 = @Value1 WHERE Condition = @ConditionValue AND Id > @Offset"
    Using command As New SqlCommand(sql, connection)
        command.Parameters.AddWithValue("@BatchSize", batchSize)
        command.Parameters.AddWithValue("@Value1", newValue)
        command.Parameters.AddWithValue("@ConditionValue", conditionValue)
        command.Parameters.AddWithValue("@Offset", offset)
        Dim rowsAffected As Integer = command.ExecuteNonQuery()
        If rowsAffected < batchSize Then
            Exit Do
        End If
        offset += batchSize
    End Using
Loop

Try
    ' 执行Update查询
Catch ex As Exception
    Console.WriteLine("程序崩溃: " & ex.Message)
    ' 记录日志或采取其他措施
End Try