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.         'System message, if the database table already exist from the current month
23.                 If Err.Number <> 0 Then
24.                         ShowSystemAlarm Message_Text_01
25.                 End If
26.         SmartTags("SQL_DataBase\RuntimeStart") = True                                  
27. End If
28.  
29. 'Clear memory
30. Set rst = Nothing
31. Set conn = Nothing