Newsgroup: it.lavoro.professioni.webmaster
Titolo: Errore Visual Basic : AIUTO !!

adErrObjectClosed
      0x800A0E78
     L'operazione richiesta dall'applicazione non è consentita se l'oggetto
è chiuso.
Quando vado a fare l' UPDATE di un database remoto come descritto nel sito
di Sirri Moreno ( Il Sito Comune dei militanti del newsgroup
it.comp.lang.visual-basic (
http://www.it-lang-vb.net
) ) mi viene dato l'
errore 3704.
Qualcuno può spiegarmi per favore come fare ad eliminarlo o almeno cosa è
che lo provoca ??
E' un errore lato client o sulla pagina ASP sul server ?????
Di seguito riporto il codice incriminato :
Ecco il codice del lato server
<!--#include File="adovbs.inc"-->
<%
' Autore: Sirri Moreno (
si...@morenosoft.com
)
' Ultima revisione: 04/04/2001
'
' Questo componente appartiene ad uno dei due esempi pratici dell'articolo
' "Gestione di un DataBase Remoto" pubblicato su:
' - Moreno Sirri VB Site (
http://www.msvbsite.net
)
' - Il Sito Comune dei militanti del newsgroup it.comp.lang.visual-basic
(
http://www.it-lang-vb.net
)
'
' Il codice è di libero utilizzo tranne in applicazioni
' commerciali, per le quali è richiesto il consenso
' dell'autore.
' Questo progetto può esser liberamente ridistribuito a
' patto che contenga tutti i files indicati nel file Leggimi.txt
'
' Per una descrizione dettagliata del progetto si legga il
' relativo articolo.
Dim rs
Dim stm
Dim conn
On Error Resume Next
Set rs = Server.CreateObject("ADODB.Recordset")
Set stm = Server.CreateObject("ADODB.Stream")
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};dbq=" &
Server.MapPath("example.mdb")
conn.CursorLocation = adUseClient
conn.Open
With rs
.CursorLocation = adUseClient
.Open Request
.ActiveConnection = conn
.UpdateBatch
End With
If Err Then
Response.ContentType = "text/xml"
Response.Write Err.Source & vbCrLf & Err.Description & vbCrLf & "Codice: " &
Err.Number
End If
stm.Close
rs.Close
Set stm = Nothing
Set rs = Nothing
%>
E questo quello del lato client
Private Sub cmdUpdate_Click()
    Dim stm As ADODB.Stream
    Dim xml As MSXML.XMLHTTPRequest
    Set xml = New MSXML.XMLHTTPRequest
    Set stm = New ADODB.Stream
    rs.Save stm, adPersistXML
    xml.Open "POST", RemotePath & "Update.asp", False
    xml.send stm.ReadText
    If xml.responseText <> "" Then MsgBox Right(xml.responseText,
Len(xml.responseText) - InStr(xml.responseText, vbCrLf) - 1), vbCritical,
Left(xml.responseText, InStr(xml.responseText, vbCrLf) - 1)
End Sub
--
....Principe....
---------------------------------------------
www.principe101.net
CAMPIONI D'ITALIA 2000/2001
<<La Roma non si discute....SI AMA !>>
<<La Roma non ha mai pianto la Roma mai non piangerà
perché piange il debole i forti non piangono mai >>
CPU OFFICIAL MEMBERS 
www.cpugroup.org
Principe, membro ORGOGLIOSO dell' Impero Giallorosso.
Webmaster di 
http://www.trefontane.com
 
http://www.principe101.net
 
http://www.principe101.com
 
http://www.cpugroup.org
UIN ICQ 33646792
prin...@principe101.net
leonardo...@chitignano.it

 ' Autore: Sirri Moreno (
si...@morenosoft.com
)
[cut]
Penso che il migliore per darti un consiglio sia ..... Sirri Moreno
(
si...@morenosoft.com
) visto che il codice è suo.
ciao
--
Kappa
kappa**nospam**@
webngo.net
www.webngo.net