Hallo,

ich habe folgendes Problem:

Ich schreibe mit einem VB-Script unter WinCC 6.2 SP2 in eine SQL-Datenbank. Das funktioniert auch soweit, ich möchte aber zusätzlich überprüfen, ob das Schreiben in die Tabelle erfolgreich war.
Dazu habe ich den Tip bekommen, daß ich das Renturnvalue der Anweisung auswerten soll, das klappt aber leider nicht so. Ich bekomme immer NULL zurück.

Hier der Quellcode:

[code]
adInteger = 3
adParamReturnValue = 4
...
strSQL ="INSERT INTO ..."
objCommand.CommandText = strSQL
Set objParam = objCommand.CreateParameter ("return_value",adInteger,adParamReturnValue)
objCommand.Parameters.Append objParam
objCommand.Execute ,,128
SqlState = objCommand.Parameters("return_value").Value

HMIRuntime.Trace "SQL State = ->"& objCommand.Parameters(0) & "<-" & objCommand.Parameters("return_value").Value & vbNewLine & vbNewLine
If (SqlState <> 0) Then
SqlFehler = True
End If

[/code]

Ich bin für jede Hilfe Dankbar!!

Hallo,

leider hat die ADO-Schnittstelle einige Fehler und VBS dazu.

Lt. MS müsste es funktionieren, wenn man beim Connection-Object das Attribut CursorLocation auf adUseServer setzt. Aber eben nur "müsste"...

Aber ich kann dir ein paar Vorschläge machen.

1. Man kann vom SQL-Server aus via OLE eine WinCC-Variable beschreiben. In der SQL-Doku ist da beschreiben, wie es geht und ich habe es auch schon mal ausprobiert.
Über einen Trigger in der Datenbank könnte man so eine Rückmeldung erzeugen.
Oder man ruft anstelle des Statements eine StoredProcedure auf.
Aber das Beispiel habe ich gerade nicht greifbar.

2. Ändert man die Daten über eine Stored Procedure, kann man auch eine LogTabelle anlegen, die immer nur den zuletzt manipulierten Datensatz enthält. Diesen Satz kann man mit SELECT zurückladen nach WinCC

3. Man kann mit "SELECT count(*) ..." die Anzahl Datensätze vor und nach dem INSERT vergleichen. Das tut aber dann nur beim INSERT- oder DELETE-Statement. Bei entsprechend großer Datenmenge wird es irgendwann langsam.

4. Man ruft statt eine Stored Procedure eine Stored Function auf, die einen Wert zurückgibt.
Allerdings ist der Funktionsumfang in Funktionen ziemlich begrenzt.

5. Lt. ADO-Dokumentationkann man der Execute-Methode des Command-Objektes noch einen Parameter "RecordsAffected" mit auf den Weg geben, zumindest wenn man über eineStored Procedure geht.

Hier der Auszug aus der Doku:

Execute Method (ADO Command)

Executes the query, SQL statement, or stored procedure specified in the CommandText or CommandStream property.

Syntax
For a Recordset-returning Command:

Set recordset = command.Execute( RecordsAffected, Parameters, Options )
For a non–recordset-returning Command:

command.Execute RecordsAffected, Parameters, Options

Return Value
Returns a Recordset object reference, a stream, or Nothing.

Parameters
RecordsAffected
Optional. A Long variable to which the provider returns the number of records that the operation affected. The RecordsAffected parameter applies only for action queries or stored procedures. RecordsAffected does not return the number of records returned by a result-returning query or stored procedure. To obtain this information, use the RecordCount property. The Execute method will not return the correct information when used with adAsyncExecute, simply because when a command is executed asynchronously, the number of records affected may not yet be known at the time the method returns.

Parameters
Optional. A Variant array of parameter values used in conjunction with the input string or stream specified in CommandText or CommandStream. (Output parameters will not return correct values when passed in this argument.)

Options
Optional. A Long value that indicates how the provider should evaluate the CommandText or the CommandStream property of the Command object. Can be a bitmask value made using CommandTypeEnum and/or ExecuteOptionEnum values. For example, you could use adCmdText and adExecuteNoRecords in combination if you want to have ADO evaluate the value of the CommandText property as text, and indicate that the command should discard and not return any records that might be generated when the command text executes.

Notes Use the ExecuteOptionEnum value adExecuteNoRecords to improve performance by minimizing internal processing.
If adExecuteStream was specified, the options adAsyncFetch and adAsynchFetchNonBlocking are ignored.
Do not use the CommandTypeEnum values of adCmdFile or adCmdTableDirect with Execute. These values can only be used as options with the Open and Requery methods of a Recordset.

mfg

Cookie