' VB Script Document
option explicit
' константы для работы с ADO
Const adDouble = 5, adDate = 7, adCurrency = 6, adBoolean = 11, adVarWChar = 202, adLongVarWChar = 203
Const adUseClient = 3, adOpenStatic = 3, adLockOptimistic = 3, adCmdText = &H1
Const adSchemaTables = 20, adSchemaColumns = 4
 
'1. получаем ID заказа:
Dim oArgs 'объекта для чтения параметров строки запуска файла
Set oArgs = WScript.Arguments 'получение объекта для чтения параметров строки запуска файла

Dim OrderID
OrderID = Trim(Replace(oArgs(0),"/","")) 'trim на всякий пожарный

'2. получаем путь к файлу
Dim oConMDB
Set oConMDB = CreateObject("ADODB.Connection")
'http://www.connectionstrings.com/access
With oConMDB
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .Open "D:\Documents\Склад и торговля\Backups\2012-01-13.mdb"
End With
 
Dim oRs, File
Set oRs = oConMDB.Execute ("Select [FileCutting] from [tblDataCutting] Where OrderID = qdfOrders.ID ")
File = oRs("FileCutting").Value

Sub InsertFromExcel (File)
  Dim objExcel
  Set objExcel = WScript.CreateObject("Excel.Application")
  Dim sOrderName, sMaterial, sDateIn, sPlateSize, sAmountPlates
  With objExcel
      With .Workbooks.Open(file)
          With .Sheets.Item(1)
            sOrderName = .Cells(1, 1).Value
            sMaterial = .Cells(2, 2).Value
            sDateIn = .Cells(3, 2).Value
            sPlateSize = .Cells(19, 2).Value
            sAmountPlates = .Cells(20, 2).Value
          End With
      End With
      .Quit
  End With
  Set objExcel = Nothing
  oConMDB.Execute ("Select [FileCutting] from [tblDataCutting] Where OrderID = qdfOrders.ID ")
End Sub

НИКАК:(

Таблица МатериалыВЗаказах - для каждой позиции в заказе указываются используемые материалы

есть еще таблица Смета заказа, где отображаются все материалы используемые в заказе, видимо речь идет о ней...

2. Таблица МатериалыВЗаказах - для каждой позиции в заказе указываются используемые материалы:

3. Таблица ФайлыРаскроя

etc - дополнительные колонки(в примере привёл минимум).

В результате добавляем заказ(tblOrders), создаём его позиции(tblOrdersProducts) -стол, стул и т.д..
Для каждой позиции заказа из списка на основе справочника материалов указываем используемые материалы и заносим во вторую таблицу(кроме ID_ФайлыРаскроя).
Для заполнения третьей таблицы получаем список материалов по заказу для которых ID_ФайлыРаскроя пустой, назначаем файл раскроя для этого материала и его ID(который получится после добавления записи - не знаю есть ли возможность возврата ID после инсерта в MDB) записываем во вторую таблицу.

Если ничего не напутал, то такая структура позволит получать информацию о материалах, заказах/позициях заказа [не]использующих конкретный материал, файлах раскроя для заказов/материалов - в любой комбинации. Естественно для конкретного круга задач - есть и другие данные, и чтобы правильно их увязать нужно знать весь процесс который должен быть воплощён в БД(от заказа, до отгрузки клиенту - через заказа материалов, распределения материалов и задач по цехам, раскроям и прочей индивидуальной специфики конкретного пр-ва).

P.S. тема всё более смещается из концептуальной плоскости в сторону технической реализации конкретной(хотя и практически неописанной) технической задачи. Это требует значительно больше времени чем просто помощь советом, а свободного времени у меня мало. Подсказать какие-то моменты готов(в меру познаний и возможностей), тянуть проект - я пас.

Полагаю дело обстоит так:Есть заказ (tblOrders). Позиции заказа описываются в tblOrdersProducts (связь с tblOrders по [tblOrders].[ID]). Для позиций заказа не являющихся покупным изделием(условно) существует файл раскроя

Файлы раскроя существуют не для позиций заказа, а для всего заказа, но их может быть несколько в зависимости от количества используемых материалов. Например есть заказ - Кухня, состоит она из следующих материалов(листовых и погонных) - Корпус-ЛДСП 1,Корпус-ЛДСП 2, Корпус-ДВПО, Столешница... Или может быть так: заказ на офисную мебель - Шкаф 1 -10шт
Шкаф 2 -5шт
Стол 2 -7шт
Тумба 7шт
Всего много а материал один, знач и файл раскроя 1

...Воот, и как правильно выставить связь ????:/:/:/

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

Да, может - в одном заказе - изделии, может быть до 4х-5ти видов материала

Здесь правда ваша !!!
я самостоятельно пытаюсь наладить функционал программы "Склад и торговля" под свои нужды, вот к сожалению специалистов знающих нет, вот и мучаю вас вопросами, сам пытаюсь разобраться но после 10-12 часового рабочего дня не в силах порой

Огромное спасибо за помощь

В общем колдовал -колдовал, наколдовал такой код, только не пашет..:(

Судя по всему, это Ваш первый опыт работы со скриптами. Нужно внимательно смотреть код и разбираться как он работает - метод копирования не всегда подходит, и ничему не учит. Иногда даже полезно переписать пример кода с нуля самому, по ходу дела разбираясь в нём. И знания получите, и, возможно, ошибки в примере обнаружите(кто пишет сходу и без багов - пусть первый бросит в меня камень ).

"SELECT [FileCutting] FROM [tblDataCutting] WHERE [OrderID] = [ID] from [qdfOrders]"

Запрос ниочём, более того - второй FROM здесь это синтаксическая ошибка. Да и ID в запрос не подставлен.

Do While Not (oRs.EOF)
  Call InsertFromExcel(oRs(OrderID).Value)
  oRsX.MoveNext
Loop

Условие при переборе по oRs, а попытка перехода к следующей записи для рекордсета oRsX, который в Вашем скрипте даже не существует. Да и где, собственно, в приведённом коде процедура InsertFromExcel? Вы читаете сообщения об ошибках при запуске скрипта? Если программа подавляет сообщения об ошибках, запускайте скрипт с консоли передавая ей параметры вручную(естественно на тестовой базе). И никаких "On Error GoTo Next" кроме случаев когда это требуется для обработки ошибки в скрипте. Бездумное игнорирование ошибок делает работу скрипта непредсказуемой.

Смотрим далее: работаем с objExcel, выводим значения ячеек в консоль, закрываем эксель... А дальше попытка работать несуществующим рекордсетом(oRsX) закрытого объекта?

Опять не верно:

.Range("R1C1").Value

Если хочется обращаться к ячейки по номерам строки-колонки, то это делается иначе:

.Cells(1, 1).Value

В экселе есть хэлп, запись макросов, отладчик - достаточно много источников информации по работе в VBA. Остальное можно уже искать в MSDN или поиском по интернету. Довольно редко встречаются уникальные, ранее не обсуждавшиеся в сети задачи.

Вот как примерно может выглядеть процедура InsertFromExcel. В неё нужно передавать путь к файлу раскроя. Также в процедуре понадобятся ID заказа(можно передавать в качестве параметра, а можно через заданную вне процедуры переменную OrderID):

Sub InsertFromExcel(file)
  Dim objExcel
  Set objExcel = WScript.CreateObject("Excel.Application")
  Dim sOrderName, sMaterial, sDateIn, sPlateSize, sAmountPlates
  With objExcel
      With .Workbooks.Open(file)
          With .Sheets.Item(1)
            sOrderName = .Cells(1, 1).Value
            sMaterial = .Cells(2, 2).Value
            sDateIn = .Cells(3, 2).Value
            sPlateSize = .Cells(19, 2).Value
            sAmountPlates = .Cells(20, 2).Value
          End With
      End With
      .Quit
  End With
  Set objExcel = Nothing
  oConMDB.Execute "SQL-запрос на вставку/обновление данных"
End Sub

Финальный запрос:

Set oRs = oConMDB.Execute("INSERT INTO [tblDataCutting] " & _
  "(OrderName, Material, DateIn, PlateSize, AmountPlates) " & _
  "VALUES (CStr('" & sOrderName & "'), CStr('" & sMaterial & "'), CDbl('" & sDateIn & "'), CStr('" & sPlateSize & "'), CCur('" & sAmountPlates & "'))")

Насчёт MDB не уверен, но в Trasact-SQL нет таких функций как CStr, CDbl, CCur и т.д. Приведение к нужному типу выполняйте в VB, или используйте Функции CAST и CONVERT (Transact-SQL).

Полагаю дело обстоит так:
Есть заказ (tblOrders). Позиции заказа описываются в tblOrdersProducts (связь с tblOrders по [tblOrders].[ID]). Для позиций заказа не являющихся покупным изделием(условно) существует файл раскроя(видимо для расчёта стоимости затраченного материала, хотя пока это не существенно). Тогда пути к файлам раскроя должны быть в таблице tblOrdersProducts. А в tblDataCutting уже хранится информация из файлов раскроя для тех позиций заказа к которым это применимо. Связь должна быть с tblOrdersProducts по ID заказа и ID позиции в заказе(если бы там было что-то вроде uniqueidentifier для позиции заказа, можно было бы ограничиться им, но в mdb это недоступно).

Не вижу смысла добавлять в tblDataCutting кучу строк содержащих только пути, а потом обновлять эти строки данными из файла раскроя(хотя технически это и реализуемо, скорее всего). Или на одну позицию из заказа может быть несколько файлов раскроя? Тогда, конечно, хранение пути к файлу в таблице с раскроями, пожалуй, логично.

У меня сложилось впечатление что структура БД не продумывалась, а ваяется по ходу дела. Если я прав, то сначала нужно определиться с функционалом и продумать структуру таблиц, включая связи между ними. Если это начальный этап внедрения и есть специалист знающий VBA + SQL, то может даже стоит перейти на более гибкий вариант - MS Access + MS SQL Server(MSDE, Express - бесплатны, ограничения скорее всего окажутся не существенными). Причём Access нужен прежде всего разработчику - на рабочих местах можно обойтись Access Runtime.

' VB Script Document
option explicit
' константы для работы с ADO
Const adDouble = 5, adDate = 7, adCurrency = 6, adBoolean = 11, adVarWChar = 202, adLongVarWChar = 203
Const adUseClient = 3, adOpenStatic = 3, adLockOptimistic = 3, adCmdText = &H1
Const adSchemaTables = 20, adSchemaColumns = 4
 
'1. получаем ID заказа:
Dim oArgs 'объекта для чтения параметров строки запуска файла
Set oArgs = WScript.Arguments 'получение объекта для чтения параметров строки запуска файла

Dim OrderID
OrderID = Trim(Replace(oArgs(0),"/","")) 'trim на всякий пожарный

'2. получаем путь к файлу
Dim oConMDB
Set oConMDB = CreateObject("ADODB.Connection")
'http://www.connectionstrings.com/access
With oConMDB
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .Open "D:\Documents\Склад и торговля\Backups\2012-01-13.mdb"
End With
 
Dim oRs, File
Set oRs = oConMDB.Execute("SELECT [FileCutting] FROM [tblDataCutting] WHERE [OrderID] = [ID] from [qdfOrders]")
Do While Not (oRs.EOF)
  Call InsertFromExcel(oRs(OrderID).Value)
  oRsX.MoveNext
Loop
 
'3. открываем таблицу
Dim oConXLS
Set oConXLS = CreateObject("ADODB.Connection")
'http://www.connectionstrings.com/excel
With oConXLS
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .Properties("Extended Properties").Value = "Excel 8.0;IMEX=1;Hdr=Yes;Mode=Read;"
  .CursorLocation = adUseClient
  .Open File
End With
Sheets("Select * from [Панели для раскроя$]")
Dim sOrderName, sMaterial, sDateIn, sPlateSize, sAmountPlates
sOrderID = OrderID


'4. проходим по записям таблицы и забрасываем данные в MDB:
Option Explicit
Dim objExcel
Set objExcel = WScript.CreateObject("Excel.Application")
 
With objExcel
    With .Workbooks.Open("d:\aScripts\vbs\tmp\xl\РаскройИнфо.xlsx")
        With .Sheets.Item(1)
          wscript.echo .Range("R1C1").Value
          wscript.echo .Range("R2C2").Value
          wscript.echo .Range("R3C2").Value
          wscript.echo .Range("R19C2").Value
          wscript.echo .Range("R20C2").Value
        End With
    End With
    .Quit
End With
Set objExcel = Nothing
Do While Not (oRsX.EOF)
  sOrderName = Range("R1C1").Value
  sMaterial = Range("R2C2").Value
  sDateIn = Range("R3C2").Value
  sPlateSize = Range("R19C2").Value
  sAmountPlates = Range("R20C2").Value
  

  Set oRs = oConMDB.Execute("INSERT INTO [tblDataCutting] " & _
  "(OrderName, Material, DateIn, PlateSize, AmountPlates) " & _
  "VALUES (CStr('" & sOrderName & "'), CStr('" & sMaterial & "'), CDbl('" & sDateIn & "'), CStr('" & sPlateSize & "'), CCur('" & sAmountPlates & "'))")
  oRsX.MoveNext
Loop

В общем колдовал -колдовал, наколдовал такой код, только не пашет..:(

Данный момент происходит точно так же ккак и с файлом сметы

Здесь имеется ввиду несколько типов материала для раскроя(соответственно и несколько файлов раскроя), их просто привязываем к заказу

Я пытаюсь подключиться, но не всегда все могу понять

Пытался разобраться - не понял...:(
а как и куда вписать поля таблицы и путь к файлу раскроя ???

Не очень понял задачу - путь к файлу содержитсЯ в mdb или выбирается вручную оператором(кладовщиком, менеджером)?
В ранее выложенном образце БД путь к файлу содержится в таблице tblDataCutting, в которую предполагается сбрасывать данные - откуда там берётся путь когда там ещё нет материалов? Этот путь должен быть в таблице, в которой перечисляются материалы по данному заказу. Тогда по запросу к этой таблице по ID заказа и ID материала получаем список файлов(путей), которые необходимо импортировать в БД.

Например так::
1. Берёте код из поста #18.
2. Меняете запрос исходя из того где что хранится. В результате нужно будет получить таблицу из одного столбца - ID материала(допустим столбец называется MatID).
3. Вместо:

File = oRs("Notes").Value

выполняем перебор полученных путей:

Do While Not (oRs.EOF)
  Call InsertFromExcel(oRs(MatID).Value)
  oRsX.MoveNext
Loop

где InsertFromExcel это процедура в которую включаем чтение значений из экселевского файла (пример в посте #24). Для каждого .Range("B19").Value(подставляем нужную ячейку вместо B19) вызываем проедуру вставки данных в mdb(процедуру создаём по примеру поста #18, 4-ый этап).

P.S. Интересно решить новую для себя проблему, разобраться с чем-то новым. Подсказать решение, в конце концов, особенно неочевидное для человека незнакомого с этой областью(сам иногда задаю вопросы). Но пережёвывать в пределах одной темы то что в ней уже есть - всякий интерес теряется. NecroTYN, мне кажется, Вам пора уже активно подключиться к решению Ваших задач.

Пытался разобраться - не понял...:(
а как и куда вписать поля таблицы и путь к файлу раскроя ???

Установлен офис 2010, при сохранении файла он открывается автоматически и выбор сохранкеия происходит вручную

У меня установлен офис 2003, и при попытке открыть xlsx с расширением xls он выдаёт ошибку о неверном формате или повреждённом файле. При правильном расширении открывает нормально(правда появляется окошко при конвертации в формат 2003, но оно само закрывается по окончании). Так что если офис 2010 не на всех компьютерах где этот скрипт предполагается использовать, нужно иметь это ввиду.

Значит помимо ID заказа нужно ещё добавлять ID материала:

SELECT [Нужное поле] FROM [Нужная таблица] WHERE [колонка с ID заказа] = [наш ID заказа] AND [колонка с ID материала] = [наш ID материала]

Установлен офис 2010, при сохранении файла он открывается автоматически и выбор сохранкеия происходит вручную

В одном заказе может быть несколько типов материала

Мне еще подсказывают что можно пробоать так:

Sheets("Лист1").Range("A1").Value.

но чет я не добился...

Для такого варианта:
1. На компьютере нужен установленный МС Офис(в случае ADO или разбора XML офис не требуется).
2. Для 2003-го офиса должен быть установлен конвертер файлов 2007-го офиса.
3. Файл должен иметь расширение соответствующее содержимому. В Вашем случае это не XLS, а XLSX.

' VB Script Document
Option Explicit
Dim objExcel
Set objExcel = WScript.CreateObject("Excel.Application")

With objExcel
    With .Workbooks.Open("d:\aScripts\vbs\tmp\xl\РаскройИнфо.xlsx")
        With .Sheets.Item(1)
          wscript.echo .Range("B19").Value
        End With
    End With
    .Quit
End With
Set objExcel = Nothing

источник: поиск по форуму("excel vbscript") => первая найденная тема, последний пост, вторая ссылка => 2-ое сообщение => 7 строк стереть, 1 добавить

Имейте ввиду, что при каждом запуске скрипта будет запускаться Excel. Если комп не сильно мощный, или уже много чего открыто, скрипт может работать не слишком быстро(на моём C2D P8600 @2.4GHz с 4Gb ОЗУ скрипт отрабатывает в среднем за 1.5-1.9 сек).

Это существенно? Если в tblCuttingData есть колонка ID, то в запросе меняется только название поля и название таблицы:

SELECT [Нужное поле] FROM [Нужная таблица] WHERE [колонка с ID] = [наш ID]

Да, это именно так
Мне еще подсказывают что можно пробоать так:

Sheets("Лист1").Range("A1").Value.

но чет я не добился...
...еще в данном случае файл путь к файлу xls  находится в таблице tblCuttingData поле CuttingFile

Например, находим в sheet1.xml соответствующий нод(далее исключительно умозаключения на основе поверхностного анализа :), кто хочет знать Правду, тому путь в MSDN):

<row r="19" spans="1:3" x14ac:dyDescent="0.25">
 <c r="A19" t="s">
  <v>14</v> 
  </c>
 <c r="B19" t="s">
  <v>26</v> 
  </c>
  </row>

Насколько я понял, [t="s"] показывает что содержимое ячейки не число, точнее данные представленны как строка. Тот-же тип "s" идёт для ячейки с датой(которая после конвертирования в Excel2003 имеет общий формат). Если тип не указан, то в тэге v находится значение, если указан - индекс соответствующего нода в sharedStrings(может для нестроковых и не численных данных могут быть и другие хранилища - см. [Content_Types].xml).
Получаем индекс строки - 26.
Открываем sharedStrings.xml, находим 27-ой по счёту(индексы идут от нуля) элемент:

<si>
  <t>2750x1830</t> 
</si>

Бинго :).
Можно, конечно анализировать ещё глубже - находить нужную строку по содержимому первой колонки, и искать соответствующие значения в остальных. Другими словами, писать полноценный парсер для офисного формата :)
С XML особо не работал, но на форуме были примеры работы с XML в vbs(для получения курсов валют с ЕЦБ мне сгодилось, с кое какими добавками из MSDN).

З.Ы. Если я правильно понимаю результаты поверхностного поиска по MSDN, то в отсутствии офиса с этим форматом(XLSX, ) вполне можно работать из .NET. В свете способов запуска импортирования данных(запуск программы по срабатыванию триггера), нет существенной разницы что будет запускаться - vbs или exe. Visual Studio Express бесплатна :)
З.З.Ы. Написал ответ.... Подумал... Нашел [MS-XLSX]: Excel (.xlsx) Extensions to the Office Open XML SpreadsheetML File Format. 291 страница тайного знания на языке оригинала(в PDF документе с водяным знаком "Предварительно", зато свежачёк: "Release: Sunday, January 22, 2012"). И, возможно, потребуются дополнительные источники информации. Пока времени на изучения этого талмуда у меня нет(как и насущной необходимости). Так что тут я пас.

Данные из строки ''заказ'' нужно записать в поле OrderName
Данные из строки ''Материал'' нужно записать в поле Material
Данные из строки ''Дата'' нужно записать в поле DateIn
Данные из строки ''Размер плиты'' нужно записать в поле PlateSize
Данные из строки ''Количество плит материала'' нужно записать в поле AmountPlates