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

[amel27]

Цитата ferget:



выложите bat и vbs файлы

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

Вот выкладываю

[NecroTYN]

Сделал файл VBS, скопировал туда вышеприведенные коды, выдает такую

Uploaded with

ImageShack.us

[ferget]

вот это надо в bat-файл





Код:

Код: Выделить всё

MakeDir.VBS qdfOrders.Address qdfMain.Client tblOrdersProducts.Product

[NecroTYN]

гм... а при чем тут BAT?.. запуск должен производиться средствами СУБД

хотя, если движок сервера БД MSSQL, для запуска скриптов из SQL можно использовать

xp_cmdshell

[ferget]

Цитата amel27:



гм... а при чем тут BAT?.. запуск должен производиться средствами СУБД

хотя, если движок сервера БД MSSQL, для запуска скриптов из SQL можно использовать xp_cmdshell

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

вот я и прошу помощи у знающих

[ferget]

Цитата NecroTYN:



прошу помощи у знающих

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

знатоки SQL в другой ветке (см.пост #2)

тем более, что движок БД до сих пор неизвестен

[NecroTYN]

Цитата amel27:



тем более, что движок БД до сих пор неизвестен

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

(СУБД MS Access или MS SQL Server)

вот родной скрипт для примера:

Код:

Код: Выделить всё

'данный код предназначен для демонстрационных целей
'вы можете писать на языке VBScript любые скрипты
'выполнение данного файла можно связать с нажатием пользовательской кнопки,
'которую можно добавить на панель инструментов любой таблицы или с помощью триггеров
Dim sDbPath 'путь к файлу БД
Dim sDateFrom 'дата от
Dim sDateTo 'дата до
Dim sMark 'метка, чтобы пометить записи для каких-то последующих целей
sDbPath = InputBox("Укажите путь к файлу .mdb", "Выбор файла", "DemoDatabase.mdb")
If sDbPath > "" Then
  sDateFrom = InputBox("Введите дату от, пример 31.12.2005", "Дата от")
  If Trim(sDateFrom) > "" then
    sDateTo = InputBox("Введите дату до, пример 31.12.2006", "Дата до")
    If Trim(sDateTo) > "" then
      sMark = InputBox("Введите метку", "Метка")
      If Trim(sMark) > "" Then
        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 sAbsDateFrom, sAbsDateTo 'даты в абсолютном формате
	'sAbsDateFrom = Mid(sDateFrom, 7, 4) & "-" & Mid(sDateFrom, 4, 2) & "-" & Left(sDateFrom, 2) '"31.12.2005" -> "20051231"
	'sAbsDateTo = Mid(sDateTo, 7, 4) & "-" & Mid(sDateTo, 4, 2) & "-" & Left(sDateTo, 2) '"31.12.2006" -> "20061231"
	sAbsDateFrom = Mid(sDateFrom, 4, 2) & "/" & Left(sDateFrom, 2) & "/" & MID(sDateFrom, 7) '"31.12.2005" -> "20051231"
	sAbsDateTo = Mid(sDateTo, 4, 2) & "/" & Left(sDateTo, 2) & "/" & MID(sDateTo, 7) '"31.12.2005" -> "20051231"
	Dim sSql 'SQL инструкция
	sSql = "UPDATE tblMain SET Notes='" & sMark & "' WHERE AddTime > #" & sAbsDateFrom & "# AND AddTime < #" & sAbsDateTo & "#" 'формируем SQL инструкцию
	If MsgBox("Будет выполнена следующая SQL инструкция:" & vbCr & vbCr & sSql & vbCr & vbCr & "Продолжить?", vbYesNo+vbQuestion, "Подтверждение") = vbYes Then 'подтверждение
	  Con.Execute sSql 'выполняем SQL инструкцию, которая изменяет данные в таблице
	  If Err.Number = 0 Then
	    MsgBox "Обновление таблицы прошло успешно.", vbInformation, "Ура!!!"
	  End If
	End If
	Con.Close 'закрываем Connection
	Set Con = Nothing 'очищаем переменную
      End If
    End If
  End If
End if

[amel27]

гм... а при чем тут BAT?.. запуск должен производиться средствами СУБД

хотя, если движок сервера БД MSSQL, для запуска скриптов из SQL можно использовать

xp_cmdshell

[NecroTYN]

Цитата NecroTYN:



СУБД MS Access или MS SQL Server

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

триггеры будут работать только на MS SQL Server


Цитата NecroTYN:



вот родной скрипт для примера:

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

за скрипт спасибо (пусть будет)

но пользы от него мало - по описанным выше причинам


Цитата NecroTYN:



дак вы мне тоже не поможете ???

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

а чего не хотите писать в профильную ветку?..

навскидку привести код триггера на SQL не готов - смогу скопипастить с сервера только завтра

если есть установленный MS SQL Server - смотрите BOL (SQL Server Books Online)

[amel27]

Цитата amel27:



навскидку привести код триггера на SQL не готов

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

да в том то и дело что триггер писать не надо,нужно написать файл-скрипт .VBS, который будет создавать папки в файловой системе, основываясь на переданные в него параметры.

Далее нужно задать "триггер"(имеется ввиду не сам тригер,а форма через которую он задается) на добавление на таблицу "Заказы", но в качестве команды указать не SQL-инструкцию, а запуск данного файла.