OBJETOS CLOSE

USUARIO.EXCLUIDOS 14/04/2004 11:42:50
#20498
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
USUARIO.EXCLUIDOS 14/04/2004 11:59:31
#20507
Resposta escolhida

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