-> Hier kostenlos registrieren
Hallo,
ich bräuchte zu folgendem Problem fachkundigen Rat:
Ich versuche gerade über eine ODBC Datenquelle Daten aus einer Access Datenbank zu lesen (mit SQL Abfrage) und in ProTool Variable zu schreiben. Das momentane Script (VBS von PTPro) sieht folgendermaßen aus:
'Daten aus MS Access lesen via VBScript (über ODBC)
'Beispiel (durch Projektspez. Einträge ergänzen!)
'Verwendete Variablen
Dim OCon, OCom, ORec, StrProv, StrSQL
'Providerangabe und SQL-Befehl
StrProv = "Provider=MSDASQL;DSN=HMI_Anbindung;UID=;PWD=;"
StrSQL = "SELECT * FROM ProdData WHERE FilterNr="& EF_Filter_Read
'Verbindungsaufbau zur Datenbank
Set OCon = CreateObject("ADODB.Connection")
OCon.ConnectionString = StrProv
OCon.Open
'Datensatzhandling
Set ORec = CreateObject("ADODB.Recordset")
Set OCom = CreateObject("ADODB.Command")
OCom.ActiveConnection = OCon
OCom.CommandText = StrSQL
Set ORec = OCom.Execute 'Diese Zeile macht Probleme
'Übergabe an PTP Variable
With ORec
AF_Laenge_Read = .fields("Laenge")
AF_Breite_Read = .fields("Breite")
.Close
End With
Set OCom = Nothing
Ocon.Close
Set ORec = Nothing
Set OCon = Nothing
Wenn ich das Script starte meckert er das in oben markierter Zeile zu wenige Parameter übergeben wurden. Ich vermute das liegt daran das die gewählte Methode (Execute) auch gleichzeitig ein VBS Befehl ist.
Kann mir jemand bei der Lösung des Problems auf die Sprünge helfen?
ich bräuchte zu folgendem Problem fachkundigen Rat:
Ich versuche gerade über eine ODBC Datenquelle Daten aus einer Access Datenbank zu lesen (mit SQL Abfrage) und in ProTool Variable zu schreiben. Das momentane Script (VBS von PTPro) sieht folgendermaßen aus:
'Daten aus MS Access lesen via VBScript (über ODBC)
'Beispiel (durch Projektspez. Einträge ergänzen!)
'Verwendete Variablen
Dim OCon, OCom, ORec, StrProv, StrSQL
'Providerangabe und SQL-Befehl
StrProv = "Provider=MSDASQL;DSN=HMI_Anbindung;UID=;PWD=;"
StrSQL = "SELECT * FROM ProdData WHERE FilterNr="& EF_Filter_Read
'Verbindungsaufbau zur Datenbank
Set OCon = CreateObject("ADODB.Connection")
OCon.ConnectionString = StrProv
OCon.Open
'Datensatzhandling
Set ORec = CreateObject("ADODB.Recordset")
Set OCom = CreateObject("ADODB.Command")
OCom.ActiveConnection = OCon
OCom.CommandText = StrSQL
Set ORec = OCom.Execute 'Diese Zeile macht Probleme'Übergabe an PTP Variable
With ORec
AF_Laenge_Read = .fields("Laenge")
AF_Breite_Read = .fields("Breite")
.Close
End With
Set OCom = Nothing
Ocon.Close
Set ORec = Nothing
Set OCon = Nothing
Wenn ich das Script starte meckert er das in oben markierter Zeile zu wenige Parameter übergeben wurden. Ich vermute das liegt daran das die gewählte Methode (Execute) auch gleichzeitig ein VBS Befehl ist.
Kann mir jemand bei der Lösung des Problems auf die Sprünge helfen?
