Skip to Content

Registrieren Anmelden

Industry Online Support

Technical Forum

Navigation

VBScript Daten aus DB/ArrayOfStruct auslesen

Erstellt von: a-d-78 am: 04.12.2014 12:10 (7 Antworten)

Bewertung (0)

Dank 2

8 Einträge

04.12.2014 12:10	Bewerten (0)
a-d-78 Beiträge: 56 Bewertung: (2)	Hallo! Ist es möglich Daten aus einem DB mittels VBScript auszulesen? Die Daten sind als Array [1..10] of Struct in diesem DB abgelegt. Die "STRUCT" besteht aus 10 Einträgen. Ich möchte die Daten einzeln aus diesen DB auslesen und anschließend in eine csv Datei wandeln und nach der Bearbeitung wieder in den DB importieren. Kann mir jemand bei meinem Problem helfen?
a-d-78 Beiträge: 56 Bewertung: (2)
Vorschlag Bedanken Zitat Antwort

04.12.2014 12:18	Bewerten (0)
0_0 Platin-Mitglied Beigetreten: 22.07.2008 Letzter Bes: 14.04.2022 Beiträge: 1884 Bewertung: (174)	RIP
	Zuletzt bearbeitet von: 1test am: 08.06.2016 10:59:52 ~(‾▿‾)~
Vorschlag Bedanken Zitat Antwort
Für diesen Beitrag bedanken sich 1 Benutzer Fleischer

05.12.2014 09:48	Bewerten (0)
a-d-78 Beiträge: 56 Bewertung: (2)	Vielen Dank für die Antwort: Habe das so gelöst, allerdings wird nur der Variablenname in die Tabelle eingetragen. Möchte aber nur die Parameter in die Tabelle eintragen. [code] For i = 1 To 30 'Daten in die Tabelle eintragen Dat_Nr = i rDsl=CStr("PROG_DATEN_AUFTRAG.DATEN[")&(i)& CStr("].ABSCHNITTLÄNGE") ts.WriteLine(Dat_Nr & ";" & CStr(rDsl) & ";" & SmartTags("rWinkel_a_s") & ";" & SmartTags("rWinkel_b_s")) Next [/code] Wenn ich SmartTags(CStr(rDsl)) eintrage bekomme ich eine Fehlermeldung. hier der gesamt Code [code] Sub DB_Daten_Senden_PROG() 'Tip: ' 1. Verwenden Sie die Tastenkombination <CTRL+SPACE> oder <CTRL+I>, um eine Liste aller Objekte und Funktionen zu öffnen ' 2. Schreiben Sie den Code unter Verwendung des HMI Runtime Objekts. ' Beispiel: HmiRuntime.Screens("Screen_1"). ' 3. Verwenden Sie die Tastenkombination <CTRL+J>, um eine Objektreferenz zu erstellen. 'Schreiben Sie den Code ab dieser Position: 'Declaration of local tags - Deklaration von lokalen Variablen Dim fso, f, ts, path, i, j, Dat_Nr Dim stKennung, rVc, rKm, rAnz,rMh, rDsl, rDsw1, rDsw2 'Definition of local tags - Definition von lokalen Variablen i=1 j=1 'Definition of file extension - Definition der Datei-Extension path= "f:\daten_saege.csv" '"\Storage Card USB\daten_saege.csv" 'Error Routine - Fehlerroutine On Error Resume Next 'Create object - Objekt erstellen Set fso = CreateObject("Scripting.FileSystemObject") If Err.Number <> 0 Then ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description Err.Clear Exit Sub End If 'if no file exist a text file will be created – Datei erstellen, wenn keine vorhanden If Not fso.FileExists(path) Then fso.CreateTextFile path End If Set f = fso.GetFile(path) If Err.Number <> 0 Then ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description Err.Clear Exit Sub End If Set ts = f.OpenAsTextStream(2, -2) If Err.Number <> 0 Then ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description Err.Clear Exit Sub End If 'Varialblen zuweisen stKennung=SmartTags("PROG_DATEN_AUFTRAG.PROG_NAME") rVc=SmartTags("PROG_DATEN_AUFTRAG.BANDGESCHWINDIGKEIT") rMh=SmartTags("PROG_DATEN_AUFTRAG.MAT_HÖHE") rKm=SmartTags("PROG_DATEN_AUFTRAG.KÜHLEN") rAnz=SmartTags("PROG_DATEN_AUFTRAG.n_SOLL") 'Write values into the file - Werte in die Datei schreiben ts.WriteLine("Auftrag-Kennung; " & stKennung & ";") 'Auftrag Kennung ts.WriteLine("Materialhöhe [mm]; " & rMh & ";") ts.WriteLine("vc[m/min]; " & rVc & ";") 'Bandgeschwindigkeit in [m/min] ts.WriteLine("Kühlmittel; " & rKm & ";") ts.WriteLine("Stück; " & rAnz & ";") 'Stückzahl ts.WriteLine("") 'leer Zeile ts.WriteLine("") 'leer Zeile ts.WriteLine("") 'leer Zeile 'Kopfzeile Datensatz ts.WriteLine("Datensatz-Nr.:; " & "Länge [mm]; " & "Winkel 1 [°]; " & "Winkel 2 [°]; ") For i = 1 To 30 'Daten in die Tabelle eintragen Dat_Nr = i rDsl=CStr("PROG_DATEN_AUFTRAG.DATEN[")&(i)& CStr("].ABSCHNITTLÄNGE") ts.WriteLine(Dat_Nr & ";" & CStr(rDsl) & ";" & SmartTags("rWinkel_a_s") & ";" & SmartTags("rWinkel_b_s")) Next If Err.Number <> 0 Then ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description Err.Clear Exit Sub End If 'Close file - Datei schließen ts.Close Set ts = Nothing Set f = Nothing Set fso = Nothing ShowSystemAlarm "Storage of the data was successful!" '// EOS ///////////////////////////////////////////////////////// End Sub [/code]
a-d-78 Beiträge: 56 Bewertung: (2)
Vorschlag Bedanken Zitat Antwort

05.12.2014 10:18	Bewerten (0)
0_0 Platin-Mitglied Beigetreten: 22.07.2008 Letzter Bes: 14.04.2022 Beiträge: 1884 Bewertung: (174)	RIP
	Zuletzt bearbeitet von: 1test am: 08.06.2016 11:00:03 ~(‾▿‾)~
Vorschlag Bedanken Zitat Antwort

08.12.2014 11:10	Bewerten (0)
a-d-78 Beiträge: 56 Bewertung: (2)	Ich kriegs nicht hin Habe unterschiedliche Möglichkeiten ausprobiert leider erfolgslos. z.B. [code] Dim rDsl, i For i = 1 To 30 rDsl = "PROG_DATEN_AUFTRAG.DATEN["& i &"].ABSCHNITT" ts.WriteLine(i & ";" & Smarttags(rDsl)) Next [/code] bekomme immer eine Fehlermeldung Ist es überhaupt möglich Daten aus einer Strucktur (in der SPS) mittels Script auszulesen?
a-d-78 Beiträge: 56 Bewertung: (2)
Vorschlag Bedanken Zitat Antwort

11.12.2014 16:48	Bewerten (0)
mm76 Gold-Mitglied Beigetreten: 15.10.2007 Letzter Bes: 22.10.2024 Beiträge: 842 Bewertung: (89)	Hallo, bei einem Array (z.B. SPS_varARRAY[1..15] OF Int) muss der Code so aussehen: [code]Dim int_var(15) Dim i For i = 0 To 14 int_var(i) = SmartTags("SPS_var") (i) Next [/code] Dann kannst du mit der internen Variable weiter arbeiten. Arrays werden intern immer von 0 weg adressiert. Bei deinem Struct müsste es mit 0 und 29 funktionieren. [code] Dim rDsl, i For i = 0 To 29 rDsl = "PROG_DATEN_AUFTRAG.DATEN["& i &"].ABSCHNITT" ts.WriteLine(i & ";" & Smarttags(rDsl)) Next [/code] Mit einem Struct habe ich es aber noch nie gemacht. Viel Erfolg MM
	Zuletzt bearbeitet von: mm76 am: 11.12.2014 16:58 Zuletzt bearbeitet von: mm76 am: 11.12.2014 16:55
Vorschlag Bedanken Zitat Antwort
Für diesen Beitrag bedanken sich 1 Benutzer Marini232

12.01.2015 08:24	Bewerten (0)
Prof. Frink Platin-Mitglied Beigetreten: 05.07.2013 Letzter Bes: 01.11.2024 Beiträge: 3116 Bewertung: (514)	a-d-78 bekomme immer eine Fehlermeldung Welche Fehlermeldung bekommst du denn?
	Pi is exactly three! All you have to do is think of things which people need but which don’t exist yet.
Vorschlag Bedanken Zitat Antwort

02.07.2015 09:47	Bewerten (0)
Min_Moderator Platin-Mitglied Beigetreten: 03.09.2014 Letzter Bes: 13.03.2019 Beiträge: 4766 Bewertung: (122)	Neue Frage von hoha wurde in ein separates Thema mit der Überschrift Mit VBScript Elemente eines Array of UDT auslesen gesplittet. Gruß Min_Moderator

Vorschlag Bedanken Zitat Antwort

|

Teile diese Seite:

Teile diese Seite auf...

Folgen Sie uns auf