EXCEL VBA to SQL Index и Seek

Question

Я экспортирую данные в таблицу Excel в базу данных SQL Server, если существует UPDATE else INSERT.

Следующий код VBA хорошо работает для экспорта в базу данных ACCESS, , но не для таблицы SQL SERVER DATABASE TABLE.

Появляется сообщение об ошибке: Неверное использование свойства для .Index и .Seek.

Пожалуйста, помогите !!! Toh

Sub ExcelDataToSql() 

Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long 
Dim lastrow As Long, o As Long 

Set cn = New ADODB.Connection 
Set rs = New ADODB.Recordset 

cn.Open "Provider=SQLNCLI11;Server=***;Database=****;Trusted_Connection=yes;" 
rs.CursorLocation = adUseServer 
rs.Open "InventorySQL", cn, 1, 3, adCmdTableDirect 

' Get Lastrow 
Worksheets("InventoryEXCEL").Select 
lastrow = Worksheets("InventoryEXCEL").Cells(rows.Count, 1).End(xlUp).Row 
r = 2 ' the start row in the worksheet 
For o = 2 To lastrow 

    'Check For Duplicate In Database SQL 
    With rs 
     .Index = "PrimaryKey" 
     .Seek Range("A" & r).Value 

     If .EOF Then 
      .AddNew    
      'If No Duplicate insert New Record 
      rs.Fields("oPartno") = Range("A" & r).Value 
      rs.Fields("oDesc") = Range("B" & r).Value 
      rs.Fields("oCost") = Range("C" & r).Value 
     .update 
     Else   
      ' If Duplicate Found Update Existing Record 
      rs.Fields("oDesc") = Range("B" & r).Value 
      rs.Fields("oCost") = Range("C & r).Value 
      .Update 
     End If 
    End With 

Next o 
    rs.Close 
    Set rs = Nothing 
    cn.Close 
    Set cn = Nothing 
    MsgBox "Posting Completed" 
End Sub 

---

. Индекс = "PrimaryKey" --- Sysntax Ошибка: неправильное использование собственности .Seek Range ("А" & г) .Value Sysntax Ошибка:

Answer 1

Ссылка: Seek Method and Index Property Example (VB)

В примере MSDN проходит через массив как первый параметр.

rstEmployees.Seek Array(strID), adSeekFirstEQ 

Имя первого параметра ОС KeyValues который также подразумевает собой массив

Я бы попробовать этот первый

.Seek Array (Range ("A" & г) .Value)

Возможно, было бы полезно использовать одно из значений SeekEnum

Update: TOH ОП обнаружил, что это был relavent фрагмент кода

MSDN также предлагают проверить, если провайдер поддерживает .Index и .Seek

If rstEmployees.Supports(adIndex) And rstEmployees.Supports(adSeek) Then 

Answer 2

Моя проблема решена работаю.

Многие ресурсы указали, что поставщики Sql не поддерживают функцию индекса и поиска. Так что я избегаю Index and Seek

Я работаю, импортируя рабочий лист excel в Sql-сервер в качестве исходной таблицы ... после этого слияние целевой таблицы с исходной таблицей ... если соответствует UPDATE, если не соответствует INSERT.

select * from InventoryTableSQL 
select * from InventoryTableFromExcel 

Merge InventoryTableSQL as T 
using InventoryTableFromExcel as S 
on t.oPartno = s.oPartno 
when matched then 
    update set t.oPartno = s.oPartno, 
    t.oDesc = s.oDesc, 
    t.oCost = s.oCost 
when not matched by target then 
    insert(oPartno, oDesc, oCost) values(s.oPartno, s.oDesc, s.oCost));