VBscript und ADO - 3704-Betrieb ist nicht zulässig, wenn das Objekt geschlossen ist

Diese Funktion fügt eine Zeile in eine SQL-Datenbank und zurückgeben muss, die Identitäts-Nummer erstellt:

Function WriteDatabase(backupTypeID, numImages, folderSize, success, errorMessage, strLogFileName)

    On Error Resume Next
    err.clear
    Set objConnection = CreateObject("ADODB.Connection")
    Set objRecordSet = CreateObject("ADODB.Recordset")
    objConnection.Open "Provider=SQLOLEDB;Data Source=x.x.x.x;Initial Catalog=DB;User ID=sa;Password=xxxxxx"
    sqlquery = "INSERT INTO tblImageCopies (BackupCopyDate, BackupCopyTypeID, NumImages, ImagesFolderSize, Success, ErrorMessage) VALUES (GETDATE(), " & backupTypeID & ", " & numImages & ", " & folderSize & ", " & success & ", " & errorMessage & "); SELECT scope_identity() AS ImageCopyID;" 
    objRecordSet.Open sqlquery,objConnection
    objRecordSet.MoveFirst
    WriteDatabase = objRecordSet("ImageCopyID")
    objRecordSet.Close
    objConnection.Close
    If err.number <> 0 Then
        WriteLog "Error writing to the EHN database - " & err.number & " " & err.description, strLogFileName
    End If

End Function

Erfolgreich fügt die Zeile ein, aber ich bekomme die Fehlermeldung '3704 Operation ist nicht zulässig, wenn das Objekt geschlossen ist.', wenn er versucht, die Rückkehr der id-Nummer im Datensatz. Wenn ich das ausführen der sql-Abfrage direkt auf dem server, es funktioniert. Jemand in der Lage zu helfen?

InformationsquelleAutor VBscripter | 2009-11-10

  1. 6

    Ich das gleiche tun (sehr ähnlich jedenfalls). Ich glaube, dass es zwei Sätze von Ergebnissen kommen zurück, eine für das EINFÜGEN und dann noch für die WÄHLEN Sie. Versuchen Sie anrufen objRecordSet.NextRecordset().

    Vielen Dank Brian. Können Sie bitte beraten, wo genau sollte ich objRecordSet.NextRecordSet()? Ich habe versucht, ein paar Plätze, aber es ist immer noch erroring, ich glaube, du bist auf dem richtigen Weg tho.
    Ok es herausgefunden, ich hatte zu entfernen objRecordset.MoveFirst und ersetzen Sie es mit Set objRecordSet2 = objRecordSet.NextRecordset(), ändern Sie dann die Rücklaufleitung zum WriteDatabase = objRecordSet2("ImageCopyID"). Ich hatte auch zu entfernen objRecordset.In der Nähe ist. Als erste Anweisung in meinen compound-Anweisung nicht wieder alle Zeilen (eine INSERT-Anweisung), objRecordset wird automatisch geschlossen und kann nicht wieder geschlossen werden, damit die den Fehler generiert hat.
    Hilfreiche Tipps hier über die Verwendung NextRecordset und wie zu erkennen, öffnen von recordsets.

    InformationsquelleAutor Brian

  2. 5

    Verwenden Sie "SET NOCOUNT ON;" am Anfang der Abfrage

    InformationsquelleAutor Olya

  3. 1

    Erhielt ich den genauen Fehler, und schaffte es aufzuspüren, um eine PRINT-Anweisung, die ich verlassen hatte in meiner SQL Server, die gespeicherte Prozedur. Einmal kommentierte ich die PRINT-Anweisung das Recordset zurückgegeben, die Ergebnisse ohne Fehler.

    InformationsquelleAutor Michael Melio

Schreibe einen Kommentar