VBS/WSH/JS - [решено] Автоматическое создание папок из полей таблицы c помощью VBS

NecroTYN · Отправлено: **09:10, 06-07-2011** | #41

amel27,
Спасибо, все заработало

NecroTYN · Отправлено: **20:24, 10-07-2011** | #42

ВСЕМ Привет!!!

Цитата amel27:

P.S. критерий разделения услуг/товара в топике не раскрыт »

Раскрываю критерий разделения услуг/товара:
Все товары и услуги находятся в таблице tblOrdersProducts и делятся на категории - товары и услуги (поле ProductsCategoryCalc), так вот, нужно сделать выборку чтобы папки не создавались на категорию "УСЛУГИ"

amel27 · Отправлено: **07:45, 11-07-2011** | #43

Цитата NecroTYN:

поле ProductsCategoryCalc »

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

NecroTYN · Отправлено: **10:19, 11-07-2011** | #44

Цитата amel27:

Нет такого поля в таблице tblOrdersProducts »

Цитата amel27:

а суффикс CALC говорит о том, что это поле (скорее всего) рассчетное »

это то все правильно говорите, я его сам туда назначил из таблицы tblProducts, так не получится ????

NecroTYN · Отправлено: **10:48, 11-07-2011** | #45

Цитата amel27:

Нет такого поля в таблице tblOrdersProducts »

...Ну а если путем перечисления "услуг" -- их всего то 5...

amel27 · Отправлено: **11:05, 11-07-2011** | #46

Цитата NecroTYN:

я его сам туда назначил из таблицы tblProducts, так не получится ???? »

Цитата NecroTYN:

а если путем перечисления "услуг" -- их всего то 5... »

да мне в общем-то всё равно - вам решать, можно и по наименованию сравнить... только ни один из этих способов не является идеальным, так что сначала взвесьте все "за" и "против", с расчетом "на перспективу"

NecroTYN · Отправлено: **11:08, 11-07-2011** | #47

Цитата amel27:

только ни один из этих способов не является идеальным »

а какой есть идеальный ???

Цитата amel27:

так что сначала взвесьте все "за" и "против", с расчетом "на перспективу" »

...ну а ВЫ что посоветуете ???

Хотя наверное по категории будет всетаки лучше, потому что услуг может и добавиться

amel27 · Отправлено: **12:34, 11-07-2011** | #48

Цитата NecroTYN:

какой есть идеальный ??? »

нормализованный, когда в таблицах стоит ID из справочника (tblProducts), а не имя

Цитата NecroTYN:

а ВЫ что посоветуете ??? »

Ваша база данных, вам и решать...

вариант с именем, имя продукта должно быть уникальным и присутствовать в справочнике:

Код:

Dim sDbPath 'путь к файлу БД
sDbPath = CreateObject("Wscript.Shell").SpecialFolders("MyDocuments") & "\Учет клиентов\DemoDatabase.mdb"

Dim Con 'объект Connection
Set Con = CreateObject("ADODB.Connection") 'создание объекта Connection
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDbPath & ";Persist Security Info=False" 'открываем соединение с базой данных

Dim sSql 'SQL инструкция
sSql = "SELECT Top 1 p.ProductType FROM tblOrdersProducts op,tblProducts p WHERE op.Product=p.ProductName AND op.ID="& Mid(WScript.Arguments(0),2)
Set oRec = Con.Execute(sSql)  'выполняем SQL инструкцию
If oRec.EOF Then WScript.Quit 'если продукта нет в справочнике, то выход

sType = oRec.Fields(0).Value  'тип товара
If Left(sType,6)="Услуга" Then WScript.Quit 'если Услуга, то выход

sSql = "SELECT o.Address,m.Client,op.Product FROM tblOrdersProducts op,tblOrders o,tblMain m WHERE m.ID=o.ClientID AND o.ID=op.OrderID AND op.ID="& Mid(WScript.Arguments(0),2)
Set oRec = Con.Execute(sSql)  'выполняем SQL инструкцию

Dim FSO 'объект FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")

Dim strPath 'путь к папке
strPath="C:\Documents"
If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath)
strPath=strPath & "\Заказы"
If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath)
strPath=strPath &"\"& Replace(oRec.Fields(0).Value,"""","")
If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath)
strPath=strPath &"\"& Replace(oRec.Fields(1).Value,"""","")
If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath)
strPath=strPath &"\"& Replace(oRec.Fields(2).Value,"""","")
If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath)

Con.Close 'закрываем Connection
Set Con = Nothing 'очищаем переменную

P.S. Сравнение идет с учетом регистра: "Услуга"<>"УСЛУГА"

Iska · Отправлено: **16:52, 11-07-2011** | #49

Цитата NecroTYN:

а какой есть идеальный ??? »

Идеальных не бывает. На практике обычно считается достаточным, если таблицы базы нормализованы в соответствии с нормальной форме Бойса — Кодда.

Цитата amel27:

нормализованный, »

Поставил бы три благодарности, кабы можно было.

NecroTYN · Отправлено: **18:32, 11-07-2011** | #50

---------------------------
Windows Script Host
---------------------------
Сценарий: C:\Program Files (x86)\ClientsCount\makedir.vbs
Строка: 9
Символ: 1
Ошибка: Индекс выходит за пределы допустимого диапазона
Код: 800A0009
Источник: Ошибка выполнения Microsoft VBScript

---------------------------
ОК
---------------------------