mertens2
Level-2
- Beiträge
- 283
- Reaktionspunkte
- 2
-> Hier kostenlos registrieren
Hallo,
muss für ein Projekt von WinCC aus einige Variablen in eine SQL-Datenbank schreiben. Auf dem Rechner ist SQL-Server schon installiert. Habe eine Tabelle angelegt und ein Skript (Habe ich aus Siemens-Support-Seite) angelegt. Skript läuft ohne Fehlermeldung, zumindestens sehe ich keine. Unter WinCCflex läuft der Spass. Datenquelle habe ich angelegt.
Hier mein Skript:
Sub procedure1
Dim conn, rst, sql_table
Set conn=CreateObject("adodb.connection")
Set rst=CreateObject("adodb.recordset")
HMIRuntime.Tags("writecounter").write 24
conn.Open "Provider=MSDASQL;DSN=SQL_QSDaten" 'DSN= Name der ODBC-Datenbank
sql_table="INSERT INTO DL_QSDaten VALUES (55,33,66,33')"
Set rst=conn.execute(sql_table)
conn.close
Set rst = Nothing
Set conn=Nothing
End Sub
Hat jemand eine Idee? Oder sowas mit einem Skript schonmal gemacht?
muss für ein Projekt von WinCC aus einige Variablen in eine SQL-Datenbank schreiben. Auf dem Rechner ist SQL-Server schon installiert. Habe eine Tabelle angelegt und ein Skript (Habe ich aus Siemens-Support-Seite) angelegt. Skript läuft ohne Fehlermeldung, zumindestens sehe ich keine. Unter WinCCflex läuft der Spass. Datenquelle habe ich angelegt.
Hier mein Skript:
Sub procedure1
Dim conn, rst, sql_table
Set conn=CreateObject("adodb.connection")
Set rst=CreateObject("adodb.recordset")
HMIRuntime.Tags("writecounter").write 24
conn.Open "Provider=MSDASQL;DSN=SQL_QSDaten" 'DSN= Name der ODBC-Datenbank
sql_table="INSERT INTO DL_QSDaten VALUES (55,33,66,33')"
Set rst=conn.execute(sql_table)
conn.close
Set rst = Nothing
Set conn=Nothing
End Sub
Hat jemand eine Idee? Oder sowas mit einem Skript schonmal gemacht?