Dim RuntimeStart, conn, rst, SQL, TabName, Variable_Day, Variable_Month, Variable_Year, Variable_Hour

 

Set conn = CreateObject("ADODB.Connection")

Set rst = CreateObject("ADODB.Recordset")

 

conn.Open "Provider=MSDASQL;DSN=WinCCflexible"

 

If (Day(Now)=1) = True And (Hour(Now)=0) = True Then  

        SQL = "CREATE DATABASE Data_Logs_" & Year(Now) & "_" & Month(Now)

        Set rst = conn.execute(SQL)

End If

 

SmartTags("Day_Old") = DateAdd("d", -1, Now)

Variable_Day = Day(SmartTags("Day_Old"))

Variable_Month = Month(SmartTags("Day_Old"))

Variable_Year = Year(SmartTags("Day_Old"))

Variable_Hour = Hour(SmartTags("Day_Old"))

 

TabName = "[Data_Logs_" & Variable_Year & "_" & Variable_Month & "].dbo."

TabName = TabName & "Data_Logs_" & Variable_Year & "_" & Variable_Month & "_" & Variable_Day

 

SQL = "SELECT * INTO " & TabName & " FROM Data_Logs0 WHERE TimeString >= '"& CDate(Variable_Day & "." & Variable_Month & "." & Variable_Year & " " & "0:0") & "' And TimeString <= '"& CDate(Variable_Day & "-" & Variable_Month & "-" & Variable_Year & " " & "23:59") & "'"

 

Set rst = conn.execute(SQL)

 

SQL = "DELETE FROM Data_Logs0 WHERE TimeString >= '"& CDate(Variable_Day & "." & Variable_Month & "." & Variable_Year & " " & "0:0") & "' And TimeString <= '"& CDate(Variable_Day & "." & Variable_Month & "." & Variable_Year & " " & "23:59") & "'"

 

Set rst = conn.execute(SQL)

 

conn.Close

 

Set rst = Nothing

Set conn = Nothing