Как я могу выполнить мой VB скрипт каждые 5 минут автоматически
Я пишу скрипт VB, и мне нужно запускать этот скрипт как триггер каждые 5 минут
Мой код выглядит следующим образом:
Sub Write_data_record_into_a_table () '///////////////////////////////////////////////// /////////////////// 'ru: скрипт записывает указанную запись данных в таблицу' ///////////////// ///////////////////////////////////////////////
'Объявление локальных тегов - Декларация фон локаленя Переменный Dim conn, первый, SQL_Table
При ошибке возобновить следующее
Установите conn = CreateObject ("ADODB.Connection"). Установите rst = CreateObject ("ADODB.Recordset").
'Открытый источник данных - Datenquelle öffnen conn.Open "Provider = MSDASQL; Initial Catalog =" & SmartTags ("szDatabase") & _ "; DSN = Database_1"
'Ошибка процедуры - Fehler Рутина, если Err.Number <> 0, то ShowSystemAlarm "Error #" & Err.Number & "" & Err.Description Err.Clear Выход Sub End If, если
'Выберите запись данных таблицы - Datensatz der Tabelle auswählen SQL_Table = "SELECT * FROM" & SmartTags ("szTableName") & "WHERE Nr =" & SmartTags ("nDat_No")' * = Alle Daten '* = все данные
'Записывает запись данных в таблицу Set rst = conn.Execute (SQL_Table)
'Ошибка процедуры - Fehler Рутина, если Err.Number <> 0, то ShowSystemAlarm "Error #" & Err.Number & "" & Err.Description Err.Clear Выход Sub End If, если
Если нет (rst.EOF и rst.BOF), то «Сравнить, если существует« Конец файла »или« Начало файла », если нет, указатель будет сброшен до первой записи» Vergleich ob «Конец файла» или «Начало» файла "ist, wenn nicht wird der Zeiger auf den Ersten Eintrag zurueckgesetzt ShowSystemAlarm" Номер данных уже существует! " rst.close Остальное 'Определение записи данных - определение даты DateSatzes SQL_Table = "INSERT INTO" & SmartTags ("szTableName") & "VALUES ('" & SmartTags ("nDat_No") & _ "','" & SmartTags (" cur_Date ") &" ',' "& SmartTags (" Cur_time ") & _" ',' "& SmartTags (" nValue_1 ") &
'Закрыть источник данных - Datenquelle schließen conn.close
Установить rst = Ничего Установить conn = Ничего End Sub
0 ответов на вопрос
Похожие вопросы
-
3
Как я могу "инвертировать" структуру каталогов?
-
1
Приостановить все, кроме x задач, интенсивно использующих процессор
-
7
Запустить синергетический клиент при загрузке в Mac OS X
-
-
4
Как синхронизировать скрипты GreaseMonkey между компьютерами?
-
1
Могу ли я написать скрипт, который будет автоматически переключать пользователей?
-
6
Хорошее руководство по PowerShell, начало работы с более продвинутым использованием
-
3
Сбой FTP «PUT» на виртуальной машине, но не на хост-ПК: 504 Команда не реализована для этого парамет...
-
1
ksh эквивалент perl $! причина ошибки
-
2
Ошибка индекса вне диапазона в сценарии VBScript
-
5
crontab разбудить osx из сна