Доработка скрипта VBS

Узнай цену своей работы

Формулировка задачи:

Добрый вечер господа !!!
В очередной раз нуждаюсь в Вашей помощи, задача стоит следующая:
Есть скрипт для импорта данных из файла xls в таблицу Б/Д Access

Работает он следующим образом:
Имеем базу данных Access со своими таблицами. Есть таблица "Заказы" и подчиненная ей "Смета заказа", имеется также и программа которая выдает нам *xls файл сметы...
В таблице "Заказы" имеется поле "Файл сметы" которое имеет статус ссылка на файл. При указании пути к файлу сметы, скрипт считывает путь к файлу из поля и записывает данные из файла Excel в таблицу "Смета заказа"
Алгоритм в VBS-файле должен быть таким:
1. Цикл по всем записям (строкам файла Excel).
2. В рамках каждой записи, нужно сделать запрос на существование компонента (в таблицу tblMain) по наименованию. Если оно уже есть, получить его ID. Если его нет, добавить, и тут же получить его ID.
3. Полученный ID компонента записать в таблицу "Компоненты" (tblComponents), в поле ComponentProductID.

Решение задачи: «Доработка скрипта VBS»

textual
Листинг программы
'запрос на существование компонента (в таблицу tblMain) по наименованию 
Set NewRs =  oConMDB.Execute("Select [ID ] from [tblMain] Where Name = '" & sSomeName & "'")
If NewRS.EOF Then
    'добавить, и тут же получить его ID.
    Set rst = oConMDB.Execute("Insert Into tblMain ...;SELECT SCOPE_IDENTITY() AS Id")
    Set rst = rst.NextRecordset
    If (rst.State <> adStateClosed) Then            
        If Not rst.EOF Then                
          NewIdentity = rst.Fields(0)             
        End If        
    End If    
Else
  а тут уже Ваш инсерт
End If

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.2 из 5