Question

我有一个字段“ JobNo”，这是一个唯一的数字。但是，有些记录已被意外删除，因此，如果作业已删除，我想插入一条新记录。

要更新的代码是：

    Dim rst As New ADODB.Recordset, x As Long
    With rst
        .Open "SELECT * FROM ActJobs WHERE JobNo=" & frmd.Cells(2, 19), _
        "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=K:\KKDB.accdb", adOpenDynamic, adLockOptimistic
        For x = 0 To 38
            If x = 17 Or x = 20 Or x = 23 Then
                If frmd.Cells(2, x + 3) <> "" Then
                    .fields(x) = DateValue(frmd.Cells(2, x + 3))
                End If
            Else
                If x = 24 And frmd.Cells(2, x + 3) = "" Then frmd.Cells(2, x + 3) = 0
                If x = 25 And frmd.Cells(2, x + 3) = "" Then frmd.Cells(2, x + 3) = 0
                If x = 26 And frmd.Cells(2, x + 3) = "" Then frmd.Cells(2, x + 3) = 0
                .fields(x) = frmd.Cells(2, x + 3)
            End If
        Next
        .Update
        .Close
    End With

我阅读了有关“插入到”和“重复键更新”的内容（我认为这是我所需要的），但是我不知道如何使用上面的代码来做到这一点。任何帮助将不胜感激。

最诚挚的问候和谢意，保罗·科德

PS我也在https://laravel.com/docs/5.8/blade#stacks上发布了此信息，但我认为它不在正确的论坛中！

更新记录或将其插入（如果不存在）

0 个答案: