1. 'Beim erstmaligen Runtime Start eine Datenbank Tabelle anlegen
2. 'One-time at runtime start, create a new database table
3.  
4. Dim RuntimeStart, conn, rst, SQL, TabName, Message_Text_01
5.  
6. 'Verbindung zur Datenbank herstellen
7. 'Building up connection to the database
8. Set conn = CreateObject("ADODB.Connection")
9. Set rst = CreateObject("ADODB.Recordset")
10.  
11. 'DSN = Name der ODBC-Datenbank 
12. 'DSN = Name of the ODBC database       
13. conn.Open "Provider=MSDASQL;DSN=WinCCflexible"
14.  
15. 'Festlegen des Meldetextes, in diesem Beispiel in deutsch
16. 'Set the Message text, in this sample in german
17. Message_Text_01 = "Baza Danych istnieje" ' "Database table already exist"
18.  
19. 'Fehlerbehandlung
20. 'Error handling
21. On Error Resume Next
22. Err.Clear
23.  
24. 'Einmalig beim Runtime Start eine Datenbank Tabelle mit dem aktuellen Monatsdatum erstellen
25. 'Set the database table name at runtime start with the current name of the month
26. If SmartTags("SQL_DataBase\RuntimeStart") = False Then
27.         SQL = "CREATE DATABASE Data_Logs_" & Year(Now) & "_" & Month(Now)
28.         Set rst = conn.execute(SQL)
29.                 'Systemmeldung wenn bereits Datenbank Tabelle von aktuellen Monat vorhanden ist
30.                 'System message, if the database table already exist from the current month
31.                 If Err.Number <> 0 Then
32.                         ShowSystemAlarm Message_Text_01
33.                 End If
34.         SmartTags("SQL_DataBase\RuntimeStart") = True                                  
35. End If
36.  
37. 'Speicher wieder freigeben
38. 'Clear memory
39. Set rst = Nothing
40. Set conn = Nothing