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