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

15 votes192 views5 answers
Show tables in oracle
SQL
15 votes213 views3 answers
Create table with primary key auto increment in sql
SQL
11 votes148 views2 answers
Oracle all source
SQL
0 vote148 views1 answer
Ajouter une contrainte de clé étrangère sql
SQL
2 votes156 views2 answers
Useradd postgres
SQL
0 vote163 views1 answer
T sql return on letters only
SQL
0 vote146 views1 answer
How to check which sp is running in sql server
SQL
0 vote161 views1 answer
Print orcale
SQL
-1 vote160 views1 answer
How to create foreign key in sql server management studio
SQL
0 vote186 views1 answer
Mssql find deadlocks
SQL