Newsgroup: it.comp.lang.visual-basic
Titolo: [?] VB6 ERRORE nell'errore

Ciao...
ho una routine che mi da errore, che normalmente intercetto e rimando con
...
on error goto ErroreTrovato
...
il problema è che qui nell'ErroreTrovato mi si crea un altro errore:
[...]
exit sub
ERRORETROVATO:
msgbox "TROVATO ERRORE"
    RstA.Close
    RstB.Close
end sub
qui dentro mi si crea un altro errore.
In pratica errore nell'errore che non so come prendere:
"3219 metodo close dell'oggetto recordset non riuscito"
nella chiusura Rst
Come potrei risolvere? Mi scuso per l'eventuale banalità ma proprio non lo 
so!
GRAZIE per qualche consiglio!
Anto.
----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeeds.com
 The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= East/West-Coast Server Farms - Total Privacy via Encryption =---

 end sub
Se usi ADO puoi semplicemente fare così:
if RstA.State = adStateOpen then rstA.Close
if RstB.State = adStateOpen then rstB.Close

 if RstB.State = adStateOpen then rstB.Close
TANKS!!! provo subito!
ciao


 if RstB.State = adStateOpen then rstB.Close
Niente, mi si blocca ancora con il solito errore 3219
accidentaccio...


Non è che magari va alla trovaerrore di un'altra subroutine???

 end sub
beppe



Si! E la causa del problema qual'č?
Forse č meglio che ApipApip posti anche la parte di codice che viene
prima, che ci dica che db usa e qual'č il primo errore che si
verifica.
E cmq. giusto per prova, prima di RstX.Close metterei un
RstX.CancelUpdate ... anche se questo rimedio dovrebbe risolvere un
errore con lo stesso numero ma messaggio diverso.
Ciao!

 Ciao!
la causa dell'errore la verificherebbe semplicemente con un
ErroreTrovato:
	msgbox "Trovato errore" & vbnewline & err.number & _
		& "  " & err.description
a me pareva che il problema fosse nell'intercettare l'errore all'interno 
della routine di gestione dell'errore stesso, poichè la descrizione 
dell'errore che ApipApip riporta riguarda proprio l'operazione di 
chiusura di recordset all'interno della gestione di errore, 
probabilmente perchè uno dei due non è stato creato o aperto.
beppe

probabilmente perchè uno dei due non è stato creato o aperto.
Penso che in questo caso l'errore sarebbe diverso da quello che ha
riportato (se il recordset non è aperto ... operazione non consentita
se l'oggetto è chiuso), ecco perchè è meglio vedere cosa succede
prima.
Ciao!


Sarebbe interessante sapere qual č la descrizione dell'errore.
Ciao
-- 
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 Non è che magari va alla trovaerrore di un'altra subroutine???
 sto verificando, mi era appunto venuto il dubbio...
beh ho comunque recuperato la correzione per quel tipo di errore ma se 
dovesse risuccedere con qualche cosa di simile... classica figuraccia... 
:-)))
cerco cerco.. so cosa causa l'errore e sto analizzando.
Un campo NULL non accettato da un database access2000... creato da un CAMPO 
da 10chr con il tentativo di inserire un record da 11caratteri...
L'importate e che ho trovato la causa per analizzare passo passo...
ACC...&%/&*"*##
Non lo ricordo più: quando fermo il programma come si faceva ad andare 
avanti passo passo (alla linea successiva) senza spostare la freccetta col 
mouse?... qui sto sclerando... l'età ultimamente mi fa brutti scherzi!
Grazie
ciao


 Non è che magari va alla trovaerrore di un'altra subroutine???
sto verificando, mi era appunto venuto il dubbio...
beh ho comunque recuperato la correzione per quel tipo di errore ma se
dovesse risuccedere con qualche cosa di simile... classica figuraccia...
:-)))
cerco cerco.. so cosa causa l'errore e sto analizzando.
Un campo "NULL" non accettato da un database access2000... creato da un 
CAMPO
da 10chr con il tentativo di inserire un record da 11caratteri...
L'importate e che ho trovato la causa per analizzare passo passo...
ciao
