Tweet
Guten Tag,
Ich habe ein VBScript geschrieben welches mir die Werte v1-v7 in eine Tabelle innerhalb der SQL-Datebank schreibt.
Wenn v2-v7 den Wert "1" hat funktioniert das Skript einwandfrei.
Bei v2-v7 = "11" bekomme ich einen Arithmetischen Überlaufer. Die Variablen in der SQL-Datenbank sind numeric!
Wo liegt mein Fehler?
Ich habe ein VBScript geschrieben welches mir die Werte v1-v7 in eine Tabelle innerhalb der SQL-Datebank schreibt.
Wenn v2-v7 den Wert "1" hat funktioniert das Skript einwandfrei.
Bei v2-v7 = "11" bekomme ich einen Arithmetischen Überlaufer. Die Variablen in der SQL-Datenbank sind numeric!
Code:
numeric Numerische Datentypen mit fester Genauigkeit und fester Anzahl von Dezimalstellen. numeric[(p[, s])] Zahlen mit fester Genauigkeit und mit fester Anzahl von Dezimalstellen. Bei maximaler Genauigkeit befinden sich die gültigen Werte in einem Bereich von - 10^38 +1 bis 10^38 - 1.
Code:
'VBSCript
Dim conn, rst, dbname, tblname
Dim SQL_Table1
Dim dbpath
Dim V1, V2, V3, V4, V5, V6, V7
V1 = "2012/07/12 00:00:00"
V2 = "11"
V3 = "11"
V4 = "11"
V5 = "11"
V6 = "11"
V7 = "11"
Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
dbname = "DEST_Parameter"
tblname = "Max_Min"
dbpath = "[" & dbname & "].dbo." & tblname
'---------------------------------------
'Open data source - Datenquelle öffnen
conn.Open "Provider=MSDASQL;DSN=WinCCFlex_to_SQL"
'---------------------------------------
'Select data record of the table - Datensatz der Tabelle auswählen
SQL_Table1 = "INSERT INTO " & dbpath & " ([Timestamp],[TICA±4001_Max],[TICA±4001_Min],[QISA+4001_Max],[QISA+4001_Min],[QISA+4002_Max],[QISA+4002_Min]) VALUES ('" & V1 & "' , '" & V2 & "' , '" & V3 & "' , '" & V4 & "', '" & V5 & "', '" & V6 & "', '" & V7 & "')"
'Writes a data record into a table
Set rst = conn.Execute(SQL_Table1)
'---------------------------------------
'Close data source - Datenquelle schließen
conn.close
Set rst = Nothing
Set conn = Nothing
Comment