[NecroTYN]

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

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

[ferget]

запускать нужно bat-файл

название vbs-файла должно быть makedir
или измените bat

Код:

 CreatFolders.VBS tblOrders.Address tblMain.Client tblOrdersProducts.Product

[NecroTYN]

Изменил название VBS получились следующие результаты

[amel27]

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

[NecroTYN]

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

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

[amel27]

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

знатоки SQL в другой ветке (см.пост #2)
тем более, что движок БД до сих пор неизвестен

[NecroTYN]

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

(СУБД 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

[NecroTYN]

Блин парни, дак вы мне тоже не поможете ???

[amel27]

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

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

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

за скрипт спасибо (пусть будет)
но пользы от него мало - по описанным выше причинам

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

а чего не хотите писать в профильную ветку?..
навскидку привести код триггера на SQL не готов - смогу скопипастить с сервера только завтра
если есть установленный MS SQL Server - смотрите BOL (SQL Server Books Online)

[NecroTYN]

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

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