-> Hier kostenlos registrieren
Hallo
kann mir mal bitte jemand weiterhelfen und zwar:
Habe einen umzug von 6 zu vers 7.5 durchgeführt, RT läuft auch ohne probleme.
So aber nun zu meinem eigentlichen problem.
Habe ein script VBS das werte von variablen in eine Acces mdb schreibt.
So bei beim alten pc läuft das ja einwandfrei.
Aber leider beim neuen mit wincc 7.5 leider nicht.
Da ich leider keine ahnung habe von scripts stehe ich leider an dieser stelle an und komme nicht weiter.
Kann mir anhand des scriptes mal wer erklären was bzw oder wo der wurm drinn sein kann?
Es sollte eigentlich die werte im "ChargenDB" (was die .mdb ist) ablegen und immer weiter ergänzen.
Doch leider tut es bei mir nichts beim neuen rechner.
Der "ChargenDB" liegt eigentlich im Ordner:
"C:\Users\xy\Documents\xy\wincproj\xy\ChargenDB\ChargenDB.mdb"
Sub ChargenExport
Dim objConnection
Dim strConnectionString
Dim lngValue
Dim strSQL
Dim objCommand
strConnectionString = "DSN=ChargenDB"
'lngValue = HMIRuntime.Tags("Tag1").Read
strSQL = "INSERT INTO Chargen VALUES ("
strSQL = strSQL & "'" & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Name").Read & "',"
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo1").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo2").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo3").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo4").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo5").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo6").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo7").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo8").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo9").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo10").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo11").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo12").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add2").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add3").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add4").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add5").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add6").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add7").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add8").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add9").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add10").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add11").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add12").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add13").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add14").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add15").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Micro_Dos").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Mischzeit").Read & ","
strSQL = strSQL & "'" & Now() & "'" & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Artikel_Nr").Read & ","
strSQL = strSQL & "'" & Date & "'" & ","
strSQL = strSQL & "'" & Time & "'" & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Reserve").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Reserve1").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Reserve2").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Reserve3").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Reserve4").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Reserve5").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Reserve6").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Reserve7").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Reserve8").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Reserve9").Read & ")"
'HMIRuntime.Trace strSQL
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objCommand = CreateObject("ADODB.Command")
With objCommand
.ActiveConnection = objConnection
.CommandText = strSQL
End With
objCommand.Execute
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
End Sub
Hat BITTE wer eine idee wie ich das ganze wieder zum laufen bekomme?
kann mir mal bitte jemand weiterhelfen und zwar:
Habe einen umzug von 6 zu vers 7.5 durchgeführt, RT läuft auch ohne probleme.
So aber nun zu meinem eigentlichen problem.
Habe ein script VBS das werte von variablen in eine Acces mdb schreibt.
So bei beim alten pc läuft das ja einwandfrei.
Aber leider beim neuen mit wincc 7.5 leider nicht.
Da ich leider keine ahnung habe von scripts stehe ich leider an dieser stelle an und komme nicht weiter.
Kann mir anhand des scriptes mal wer erklären was bzw oder wo der wurm drinn sein kann?
Es sollte eigentlich die werte im "ChargenDB" (was die .mdb ist) ablegen und immer weiter ergänzen.
Doch leider tut es bei mir nichts beim neuen rechner.
Der "ChargenDB" liegt eigentlich im Ordner:
"C:\Users\xy\Documents\xy\wincproj\xy\ChargenDB\ChargenDB.mdb"
Sub ChargenExport
Dim objConnection
Dim strConnectionString
Dim lngValue
Dim strSQL
Dim objCommand
strConnectionString = "DSN=ChargenDB"
'lngValue = HMIRuntime.Tags("Tag1").Read
strSQL = "INSERT INTO Chargen VALUES ("
strSQL = strSQL & "'" & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Name").Read & "',"
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo1").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo2").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo3").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo4").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo5").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo6").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo7").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo8").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo9").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo10").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo11").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Silo12").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add2").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add3").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add4").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add5").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add6").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add7").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add8").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add9").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add10").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add11").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add12").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add13").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add14").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Add15").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Micro_Dos").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Mischzeit").Read & ","
strSQL = strSQL & "'" & Now() & "'" & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Artikel_Nr").Read & ","
strSQL = strSQL & "'" & Date & "'" & ","
strSQL = strSQL & "'" & Time & "'" & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Reserve").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Reserve1").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Reserve2").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Reserve3").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Reserve4").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Reserve5").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Reserve6").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Reserve7").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Reserve8").Read & ","
strSQL = strSQL & HMIRuntime.Tags("S7-Programm(1)/Archiv_Vis.Arv_Reserve9").Read & ")"
'HMIRuntime.Trace strSQL
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objCommand = CreateObject("ADODB.Command")
With objCommand
.ActiveConnection = objConnection
.CommandText = strSQL
End With
objCommand.Execute
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
End Sub
Hat BITTE wer eine idee wie ich das ganze wieder zum laufen bekomme?