Обновите запись или вставьте ее, если она не существует - PullRequest
0 голосов
/ 13 октября 2019

У меня есть поле '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

Я читал оINSERT INTO и ON DUPLICATE KEY UPDATE (что, я думаю, мне нужно), но я не могу понять, как это сделать с помощью приведенного выше кода. Любая помощь будет очень признательна.

С уважением и благодарностью, Пол Кед

PS Я также разместил это здесь https://forums.mysql.com/read.php?172,678526,678526#msg-678526, но я не думаю, что это вправильный форум!

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...