OBJETOS CLOSE
Estou tentando fechar um recordset e não consigo, alguém sabe o porque?
Dim rsPendenteTmp As New ADODB.Recordset
rsPendenteTmp.Open "DELETE * From tblPendente WHERE CoDPendente IN (SELECT TOP 250 CoDPendente FROM tblPendente ORDER BY CoDPendente);", cnUsuario, adOpenKeyset, adLockOptimistic
rsPendenteTmp.Close
Dim rsPendenteTmp As New ADODB.Recordset
rsPendenteTmp.Open "DELETE * From tblPendente WHERE CoDPendente IN (SELECT TOP 250 CoDPendente FROM tblPendente ORDER BY CoDPendente);", cnUsuario, adOpenKeyset, adLockOptimistic
rsPendenteTmp.Close
Rene,
O metodo OPEN deveria ser utilizado somente por SELECTs !
Para excluir registros utilize o metodo EXECUTE, o DELETE não ira retornar nada para um recordset !
Dim rsPendenteTmp As New ADODB.Command
rsPendenteTmp.Execute "DELETE FROM tblPendente WHERE CoDPendente IN (SELECT TOP 250 CoDPendente FROM tblPendente ORDER BY CoDPendente);"
rsPendenteTmp.Close
Tópico encerrado , respostas não são mais permitidas