как импортировать таблицу из excel в MS SQL

[drug]

Научите, пожалуйста, как забросить таблицу Excel в БД MS SQL в таблицу с таким же набором полей по нажатию кнопки с помощью VBA при чем те, в которых были изменения
id vid number Format square manager
1 Заяц 1 большая 30 Иванов А.С.
2 Волк 2 маленькая 40 Гусь А.И.

Может есть какой понятный пример

[Дмитрий Щербаков(The_Prist)]

А Вы вообще работали из VBA с базами данных? SQL владеете? Запрос на изменение нужных полей составить можете? Хоть какие-то понятия есть об этом или полное непонимание происходящего? Если нет, то ни один пример не будет понятным.

[Дмитрий Щербаков(The_Prist)]

В общем если совсем кратко, то код может быть и таким:

Код: (vb)

Sub SQL_WriteVals()
    Dim adCon As Object, adRec As Object

    Set adCon = CreateObject("ADODB.Connection")
    Set adRec = CreateObject("ADODB.Recordset")
    adCon.Provider = "SQLOLEDB"
    adCon.ConnectionString = "Server=XXX.XXX.XXX.XXX; Database=DB_Name; User ID=XXXX; pwd=XXXXX"
    adCon.Mode = 3 'adModeReadWrite
    adCon.Open
    Set adRec = adCon.Execute("INSERT INTO Table_name (id, vid, number, Format, square, manager) VALUES (1, 'Заяц', 1, 'большая', 30, 'Иванов А.С.')")
    adCon.Close
End Sub

надо указать сервер и все явки-пароли. И имя таблицы тоже. Так же обязательно учитывать и типы полей.

[drug]

Только SQL знаю...

Спасибо за ответ!
А если таблица у меня не из 2-3х строк, а их куча, то каким-то образом их нужно перебрать

[Дмитрий Щербаков(The_Prist)]

Не надо цитировать полностью мое сообщение. Особенно, когда в цитировании вообще нет необходимости: п.п. 4.18 Правил форума

то каким-то образом их нужно перебрать

вполне очевидно, что циклом. Что-то вроде этого:

Код: (vb)

Sub AddToDB()
    asFields = Range("A1:F1").Value 'заголовки(должны быть в точности как названия полей в БД)
    aData = Range("A2:F10").Value 'данные для переноса в БД
    Set adCon = CreateObject("ADODB.Connection")
    Set adRec = CreateObject("ADODB.Recordset")
    
    adCon.Provider = "SQLOLEDB"
    adCon.ConnectionString = "Server=XXX.XXX.XXX.XXX; Database=DB_Name; User ID=XXXX; pwd=XXXXX"
    adCon.ConnectionTimeout = 15
    adCon.CommandTimeout = 30

    adRec.CursorType = 1  'ADODB.CursorTypeEnum.adOpenKeyset
    adRec.LockType = 2    'ADODB.LockTypeEnum.adLockPessimistic
    adCon.Open
    adRec.Open "select * from Table_name", adCon
    adCon.BeginTrans 'начало трансфера - чтобы все сразу передать и потом обновить

    For lr = LBound(aData) To UBound(aData)
        adRec.AddNew
        For lf = LBound(asFields) To UBound(asFields)
            If asFields(lf) <> "" Then
                If aData(lr, lf) <> "" Then
                    adRec.Fields(asFields(lf)).Value = aData(lr, lf)
                End If
            End If
        Next
    Next
    adRec.UpdateBatch
    adCon.CommitTrans
    adRec.Close
    adCon.Close
End Sub

переменные не забудьте сами объявить по образу и подобию кода выше.

[drug]

Ругается на ваш скрипт на строку
 If asFields(lf) <> "" Then

Мне задачу немного уточнили-нужно обновить данные в таблице базы ,только там где произошли изменения.
Т.е нужно сравнить данные из базы и данные новые.

Как я понимаю алгоритм решения примерно такой: выгружаю данные из БД на лист, на другом листе какие-то изменения вносит пользователь-заполняет например пустые столбцы, но не полностью. И вот эти изменения нужно внести в БД.

Т.е. перед апдейтом перебрать и сравнить старое(на одном листе) и новое значение (на другом).
Если не равны, делаем update table.
 
Я выгружаю данные из БД

Код: (vb)

Sub LoadData()
Dim adCon As Object, adRec As Object

  Set adCon = CreateObject("ADODB.Connection")
    Set adRec = CreateObject("ADODB.Recordset")
    
 adCon.Provider = "SQLOLEDB"
  adCon.ConnectionString = "Server=ххх; Database=ххх; User ID=ххх; Password=ххх"
  adCon.Open

adRec.Open "SELECT id, vid, number, Format, square, manager  FROM [dbo].ххх", adCon
ActiveSheet.Range("A2").CopyFromRecordset adRec 
adRec.Close
adCon.Close
Set adRec = Nothing
Set adCon = Nothing
End Sub

Комментарий администратора

Коды оформляйте тегами VBCode. п.п. 4.25 Правил форума

Теперь загвоздка как сравнить в цикле данные одного листа и другого и при отличии произвесьти загрузку

[Дмитрий Щербаков(The_Prist)]

Ругается на ваш скрипт на строку
 If asFields(lf) <> "" Then

ну да. Забыл дописать:

Код: (vb)

If asFields(lf, 1) <> "" Then

Мне задачу немного уточнили

Без обид, но здесь не решалка рабочих задач, которые сразу не могут решиться и потом еще в рабочем порядке уточняются Мы всегда рады помочь в чем-то конкретном, разъяснить почему что-то не получается и дать верное направление, подсказать по решению. Но выдавать при каждом "уточнении" готовые решения - увы, не совсем та ветка. Хотя кому-то может будет интересно порешать Ваши задачи из спортивного интереса.
Основной механизм записи в БД вроде показан - сравнение листов уже выходит за рамки этой темы. Да там и не так быстро все сделать, т.к. надо искать сначала по id в обеих таблицах, сравнивать значения всех полей(притом могут быть нюансы вроде типов). При этом учесть, что какую-то строку могут удалить, а какую-то добавить. Это 100% выплывает в последующих уточнениях.
По сути это не самый сложный цикл, но писать его муторно и учесть надо немало. Начните сами хоть что-то и задавайте более конкретные вопросы.

[drug]

Спасибо вам! за идею подхода к решению