Haw kann mein VB-Skript alle 5 Minuten automatisch ausführen
Ich schreibe ein VB-Skript und muss dieses Skript alle 5 Minuten als Auslöser ausführen
Mein Code lautet wie folgt:
Sub Write_data_record_into_a_table () '///////////////////////////////////////// ///////////////// 'de: Das Skript führt den angegebenen Datensatz in eine Tabelle' ///////////////// /////////////////////////////////////////
'Deklaration lokaler Tags - Deklaration von lokalen Variablen Dim conn, rst, SQL_Table
On Error Resume Next
Set conn = CreateObject ("ADODB.Connection") Set rst = CreateObject ("ADODB.Recordset")
'Datenquelle öffnen - Datenquelle öffnen conn.Open "Provider = MSDASQL; Anfangskatalog =" & SmartTags ("szDatabase") & _ "; DSN = Database_1"
'Fehlerroutine - Fehlerroutine Wenn Err.Number <> 0 Then ShowSystemAlarm "Fehler #" & Err.Number & "" & Err.Description Err.Clear Exit Sub End If
'Datensatz der Tabelle auswählen - Datensatz der Tabelle auswählen SQL_Table = "SELECT * FROM" & SmartTags ("szTableName") & "WHERE Nr =" & SmartTags ("nDat_No")' * = Alle Daten '* = alle Daten
'Schreibt einen Datensatz in eine Tabelle. Set rst = conn.Execute (SQL_Table)
'Fehlerroutine - Fehlerroutine Wenn Err.Number <> 0 Then ShowSystemAlarm "Fehler #" & Err.Number & "" & Err.Description Err.Clear Exit Sub End If
Wenn nicht (rst.EOF und rst.BOF), dann 'Compare, wenn "Dateiende" oder "Dateianfang" vorhanden ist, andernfalls wird der Zeiger auf den ersten Eintrag zurückgesetzt.' Vergleich ob "Dateiende" oder "Begin" von der Datei "ist, wenn nicht der Zeiger auf den Ersten Eintrag zurueckgesetzt ShowSystemAlarm" rst.close Else 'Definition des Datensatzes - Definition des Datensatzes SQL_Table = "INSERT INTO" & SmartTags ("szTableName") & "VALUES ('" & SmartTags ("nDat_No") & _ "", "" & SmartTags (") cur_Date ") &" ',' "& SmartTags (" Cur_time ") & _" ", '" & SmartTags ("nValue_1") &
'Datenquelle schließen - Datenquelle schließen conn.close
Set rst = Nothing Set conn = Nothing End Sub
0 Antworten auf die Frage
Verwandte Probleme
-
3
Wie kann ich eine Verzeichnisstruktur "invertieren"?
-
1
Pausieren Sie alle Aufgaben außer x CPU-intensiven Aufgaben
-
7
Starten Sie den Synergy-Client beim Booten in Mac OS X
-
4
Wie synchronisieren Sie GreaseMonkey-Skripts zwischen Computern?
-
1
Kann ich ein Skript schreiben, das Benutzer automatisch wechselt?
-
6
Guter PowerShell-Leitfaden, der durch fortgeschrittene Verwendung Einstieg leistet
-
3
FTP "PUT" schlägt von der virtuellen Maschine aus, aber nicht vom Host-PC aus: 504 Der Befehl ist fü...
-
1
ksh entspricht perl $! Fehlerursache
-
2
Subskriptionsfehler außerhalb des Bereichs in VBScript-Skript
-
5
crontab, um osx aus dem schlaf zu erwecken