Hallo Forum,
mithilfe einer SPS rufe ich bestimmte Daten ab, die ich in eine SQL Datenbank speichern möchte. Dazu möchte ich VBS und die Funktion der Variablenarchivierung von WinCC nutzen, aber beides funktioniert nicht so recht. Bei dem VBS könnte es sein, dass ich mich etwas zu sehr auf VB bei Microsoft orientiert habe.
(Zu VBS) Hier ist der Code den ich bisher verwendet habe:
Fehlermeldung: [ODBC Driver Manager] Der Datenquellenname wurde nicht gefunden, und es wurde kein Standardtreiber angegeben [11196]
Bei dem Variablenarchiv bin ich nicht so recht sicher, warum es nicht funktioniert. Ich habe eine ODBC-Datenquelle erstellt. Bei WinCC ein Archiv hinzugefügt, mit einigen Archivvariablen die zyklisch erfasst werden und eine Verknüpfung zu meiner SPS haben.
Hat jemand eine Idee wo etwa die Probleme liegen?
Gruß
Chat
mithilfe einer SPS rufe ich bestimmte Daten ab, die ich in eine SQL Datenbank speichern möchte. Dazu möchte ich VBS und die Funktion der Variablenarchivierung von WinCC nutzen, aber beides funktioniert nicht so recht. Bei dem VBS könnte es sein, dass ich mich etwas zu sehr auf VB bei Microsoft orientiert habe.
(Zu VBS) Hier ist der Code den ich bisher verwendet habe:
Code:
Sub Write_in_DT_LED()
'Declaration of local tags - Deklaration von lokalen Variablen
Dim conn, rst, SQL_Table, Datum
On Error Resume Next
Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
Datum = Date()
'Open data source
conn.Open "Provider=MSDASQL;Data Source=E71C7-013972\VISUALISIERUNG;Initial Catalog=Fernwartung_GVPI;User ID=SA;Password=Av-54Ge48.S47;Connect Timeout=1500;Encrypt=False;TrustServerCertificate=False;" '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
'Close data connection - Datenverbindung schließen
conn.Close
Set conn = Nothing
Set rst = Nothing
Exit Sub
End If
'Definition of data record - Definition des Datensatzes
SQL_Table = "INSERT INTO Prozesswarnungen VALUES ('1' , " & Datum & _
"' , '" & CStr(SmartTags("EineVariable")) & "')"
'Insert the data record to the table - Datensatz in die Tabelle hinzufügen
Set rst = conn.Execute(SQL_Table)
'Close data source - Datenquelle schließen
conn.close
Set rst = Nothing
Set conn = Nothing
End SubBei dem Variablenarchiv bin ich nicht so recht sicher, warum es nicht funktioniert. Ich habe eine ODBC-Datenquelle erstellt. Bei WinCC ein Archiv hinzugefügt, mit einigen Archivvariablen die zyklisch erfasst werden und eine Verknüpfung zu meiner SPS haben.
Hat jemand eine Idee wo etwa die Probleme liegen?
Gruß
Chat