Определите, существует ли запись при обновлении базы данных Access с помощью Excel VBA - PullRequest
3 голосов
/ 31 мая 2019

Я пытаюсь обновить записи или создать записи, если уникальный идентификатор не существует.

Код выдает ошибку, сообщающую, что он будет создавать повторяющиеся значения.

Мне нужночтобы включить это в мой код «SQL: если существует обновление, вставьте еще».

Sub Upload_Excel_to_Access()

Dim wbpath As String

wbpath = Application.ActiveWorkbook.Path

Dim con As Object '' ADODB.Connection
Set con = CreateObject("ADODB.Connection") '' New ADODB.Connection
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data source=\\at\HRS SD Performance Data\Capacity DB.accdb;"
con.Execute _
"INSERT INTO AssigenedVol_tbl " & _
"SELECT * FROM [Excel 12.0 Xml;HDR=YES;IMEX=2;ACCDB=YES;DATABASE=C:\Users\luga\Desktop\Databasetest\DB Macro Test.xlsm].[rawdata$]"
con.Close
Set con = Nothing
End Sub

Имя таблицы «AssigenedVol_tbl»

Поля: Process_Identifier, Login, Volume, effDate, ID_Unique(Это первичный ключ в базе данных)

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