Wincc 7.4 to sql stackoverflow

Sub Create_new_table ()
Dim conn, rst, SQL_Table, name

On Error Resume Next

Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
name =Year(Date) & "_" & Month(Date) & "_" & Day(Date)
'Open data source - Datenquelle öffnen
conn.Open "Provider=MSDASQL;DSN=Database" 'DSN= Name of the ODBC database - DSN= Name der ODBC-Datenbank

'Error routine - Fehlerroutine
If Err.Number <> 0 Then
    ShowSystemAlarm "Error #" & Err.Number & " " & Err.Description
    Err.Clear
    Set conn = Nothing
    Exit Sub
End If


' FORMING TABLE
SQL_Table = "CREATE TABLE Paster_TT43_" & name & "(" &_
        "Signal NVARCHAR(30) ," &_
        "Date NVARCHAR(30) ," &_
        "Time NVARCHAR(30) ," &_
        "Value NVARCHAR(30)  )"
Set rst = conn.Execute(SQL_Table)

' There are more tables to create there is one for example
'Error routine - Fehlerroutine 
If Err.Number <> 0 Then
    ShowSystemAlarm "Error #" & Err.Number & " " & Err.Description
    Err.Clear
    'Close data source - Datenquelle schließen
    conn.close
    Set conn = Nothing
    Set rst = Nothing
    Exit Sub
End If

'Close data source - Datenquelle schließen
conn.close

Set rst = Nothing
Set conn = Nothing

End Sub

Source: stackoverflow.com

Similar codes

0 vote312 views1 answer
T-sql conditional order by multiple columns
SQL
5 votes333 views2 answers
Postgre insert select
SQL
10 votes328 views1 answer
Oracle object dependencies
SQL
0 vote314 views2 answers
How to see table associated with a schema in sql
SQL
0 vote335 views1 answer
Incorrect string value: '\xC4\x81ne' for column
SQL
0 vote310 views1 answer
Back up stored procedures mysql
SQL
0 vote317 views1 answer
Sql server remove 0 from left
SQL
1 vote316 views1 answer
Check message id sql server
SQL
0 vote318 views1 answer
Add colum date in sql
SQL
7 votes289 views6 answers
Code: 'er_not_supported_auth_mode', errno: 1251, sqlmessage: 'client does not support authentication protocol requested by server; consider upgrading mysql client', sqlstate: '08004', fatal: true
SQL