WinCC WinCC umzug von 6.xx zu 7.5

mike1976

Level-2
Beiträge
113
Reaktionspunkte
2
Zuviel Werbung?
-> 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?
 
Wie lautet denn die Fehlermeldung?

Vermutung: ODBC Datenquelle wurde auf dem neuen Rechner nicht angelegt.
Das machst du über die Windows Systemsteuerung. Wenn der alte Rechner noch verfügbar ist, würde ich mal nachsehen was dort eingerichtet wurde.
 
Hallo,

wollte mal eiin kurzes update geben.
Nein ODBC datenquelle war nicht angelegt. Ja hab zugriff auf den alten XP rechner.
Habe dort dann nachgesehen und mal, so denke ich, die gleichen Quellen angelegt.
Siehe da die .mdb aktualisiert sich. Muss am Abend erst testen ob auch die werte hinterlegt werden, aber voerst tut sich wenigstens irgendwas :)

Aber ganz verstehen tu ich es nicht vom ablauf her.
Im Script oben steht ja ein sql aufruf oder?
Ist dann vom script her so das er es in sql und dann in die .mdb schreibt oder gleich direkt in die .mdb.
Frage nur darum, weil am alten rechner das volume c: voll geschrieben wird mit irgendwelchen ".ldf" und ".mdf" files (nach einem jahr ca.20.000).

Was ich weis bzw. in erfahrung gebracht habe, das beim alten rechner es angeblich parallel in sql und .mdb geschrieben wird.
Mir würde bzw es würde reichen wenn es nur in die .mdb schreibt.
Hoffe ich habe mich nicht zu verwirrt ausgedrückt :-(

Anbei noch fotos wie ich jetzt am neuen pc die ODBC eingerichtet habe:
ODBC 1.jpgODBC 2.jpgODBC 3.jpg


1.000 Dank mal für die unterstützung.
Hoffe bin am richtigen weg.
 
Das WinCC Taglogging und Alarmlogging speichert die Daten in der SQL-Datenbank ab. Diese liegen aber normalerweise im WinCC-Projektverzeichnis.
Du kannst ja mal in den Einstellungen für das Taglogging und Alarmlogging nachsehen, was dort für eine Aufzeichnungsdauer eingestellt ist, oder ob ggf. Archive automatisch ausgelagert werden.
 
Zuviel Werbung?
-> Hier kostenlos registrieren
Hallo,

Update, alles passt perfect, vielen dank nochmal für den tipp mit der odbc.

Noch ein kleines anliegen, hat jemand eine idee wie ich die Bildfenster rahme weg bekomme, habe ein paar aufrufe in der runtime die ein bildfenster aufrufen.

WinCC v6 rahmen.jpgWinCC v7.5 rahmen.jpg

Bei der v6 passt ja noch alles aber bei v7 ????
Finde in WinCC nichts, kann es sein das es eine Windows einstellung ist?
 
Die Einstellung für den Rahmen findest du in den Optionen des Bildfensters. Aber den Rahmen bekommst du soweit ich weiß ich nicht kleiner. Helfen sollte die Aktivierung von "Bildfenster an Bild anpassen" (in ähnlichem Wortlaut).
 
Zurück
Oben