sql - sua - error 3704 en tiempo de ejecucion vb6

VBscript y ADO-3704 La operación no está permitida cuando el objeto está cerrado

Question

Esta función inserta una fila en una base de datos SQL y necesita devolver el número de identidad creado:

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

Inserta con éxito la fila, pero aparece el mensaje de error ''3704 La operación no está permitida cuando el objeto está cerrado.'' cuando intenta devolver el número de identidad en el conjunto de registros. Cuando ejecuto esta consulta sql directamente en el servidor, funciona. ¿Alguien capaz de ayudar?

Answer 1

Hago lo mismo (muy parecido de todos modos). Creo que hay dos conjuntos de resultados que regresan, uno para INSERT y otro para SELECT. Intenta llamar a objRecordSet.NextRecordset ().

Answer 2

Use "SET NOCOUNT ON" al comienzo de su consulta

Answer 3

Recibí el error exacto y logré rastrearlo hasta una declaración PRINT que me quedaba en mi procedimiento almacenado de SQL Server. Una vez que comencé la declaración PRINT, el conjunto de registros devolvió los resultados sin error.