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