Как я могу выполнить мой VB скрипт каждые 5 минут автоматически

340
Trivendra Rajput

Я пишу скрипт 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
Вы пробовали посмотреть на `schtasks.exe`: https://docs.microsoft.com/en-us/windows/desktop/TaskSchd/schtasks Mark 5 лет назад 2
@ Марк - напиши ответ на этот вопрос ... это правильный способ сделать это. Kinnectus 5 лет назад 0
Спасибо @Kinnectus. Это дубликат https://superuser.com/questions/80291/run-script-on-windows-every-n-minutes/1379409#1379409 Mark 5 лет назад 0
Возможный дубликат [Запускать скрипт в Windows каждые n минут] (https://superuser.com/questions/80291/run-script-on-windows-every-n-minutes) Mark 5 лет назад 2

0 ответов на вопрос

Похожие вопросы