У меня есть поле '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, но я не думаю, что это вправильный форум!