hola gente tengo un problemita....a ver si alguien sabe como ayudarme
tengo en una dll escrita en vb6 el siguiente codigo que recibe un string y devuelve el recordset
Public Function Execute(varCMD) As ADODB.Recordset
errorMessage = ""
Dim objResult
Errors.Clear
'Set objResult = Server.CreateObject("ADODB.Recordset")
On Error Resume Next
Set objResult = New ADODB.Recordset
objResult.CursorType = adOpenForwardOnly
objResult.LockType = adLockReadOnly
If TypeName(varCMD) = "Command" Then
Set varCMD.ActiveConnection = objConnection
Set objResult.Source = varCMD
LastSQL = varCMD.CommandText
Else
Set objResult.ActiveConnection = objConnection
objResult.Source = varCMD
LastSQL = varCMD
End If
'fabian --------
Dim sTarea
sTarea = ""
If InStr(1, LastSQL, "insert ", vbTextCompare) > 0 Then sTarea = "Creación"
If InStr(1, LastSQL, "UPDATE ", vbTextCompare) > 0 Then sTarea = "Modificación"
If InStr(1, LastSQL, "delete ", vbTextCompare) > 0 Then sTarea = "Eliminación"
'si es diferente que una consulta.
If InStr(1, LastSQL, "select ", vbTextCompare) < 1 Then
objConnection.Execute "insert into logs (ID_Usuario,Tipo,Tarea,descripcion) values ('" & sess_UserID & "' , '" & sTarea & "','System' , '" & Replace(LastSQL, "'", "''") & "')"
End If
'--------------------
'On Error Resume Next
objResult.Open
Errors.AddError CCProcessError(objConnection)
On Error GoTo 0
If Err.Number <> 0 Then
errorMessage = Err.Number & " - " & Err.Description
End If
Set Execute = objResult
End Function
luego esta funcion es accedida desde una pagina asp
Set RecordSet = Connection.Execute(SQL)
pero cuando intento ver algunas propiedades del recordset como por ejemplo
Result = NOT RecordSet.EOF
o
RecordSet.Close
me devuelve el siguiente error
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'Recordset.EOF'
sin embargo puedo acceder a los datos contenidos en el recordset.
si a alguien se le ocurre cual puede ser el error le estaria agradecido.
ya me fije q las versiones de ado fueran las mismas por las dudas.
