60 messaggi dal 13 febbraio 2002
salve a tutti.
sto provando a far girare uno script che:
1)al primo accesso apre un recordset e salva il suo contenuto in file xml,
2)al secondo accesso apre un recordset con source il file xml
e modifica alcuni dati, inserendo anche un nuovo record,
3) al terzo accasso, apro il recordset con source il file xml e poi, passando la connessione al database di partenza, aggiorno il database con i dati contenuti nel file.

il primo ed il secondo punto vengono svolti con estrema precisione, il terzo invece no!!!!!!!!!! qualcuno (andrea palmatè in testa) sa come mai???????????????
ecco lo script che uso:

<%

if request("ciccio")="" or request("ciccio")=0 then

'apertura della connessione e del recordset
set connetti=server.createobject ("ADODB.Connection")
connetti.connectionstring="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("../abbigliamento.mdb") & ";"
connetti.open

Set record =server.CreateObject("ADODB.Recordset")
'stringa sql........................
strSQLAuthors = "SELECT * FROM prodotti1"
'il cursore viene impostato lato client
record.cursorlocation = aduseclient
record.Open strSQLAuthors, connetti, adOpenstatic, adLockbatchoptimistic


'stampa del nome nel dtatabase
Response.Write(record("nome"))


file="c:\" & session.SessionID & ".xml"
'salvataggio del recordset in un file xml
record.Save file, adPersistxml

'close and free
record.Close
set record=nothing
connetti.Close
set connetti=nothing
Response.Write("<br><br><a href=saverecord1.asp?ciccio=1>Vai</a>")

end if

if Request("ciccio")=1 then

file="c:\" & session.SessionID & ".xml"
'apertura recordset
Set record =server.CreateObject("ADODB.Recordset")
record.CursorLocation=aduseclient
record.cursortype=adopenstatic
record.locktype=adlockbatchoptimistic
record.Open file, "Provider=MSPersist ;"

'cambio del nome
record("nome")="evvai"

'aggiunta nuovo record
record.addnew
record("id_prodotto")=9999
record("nome")="franco"
record("categoria")="impiegato"

record.updatebatch

'cancello il file presente su disco e lo ricreo
set fso=server.CreateObject("Scripting.FileSystemObject")
set d=fso.GetFile(file)
d.delete()
record.movefirst
'salvataggio del recordset
record.save file, adpersistxml
record.close

'riapro il recordset per vedere che le modifiche siano satae prese
record.CursorLocation=aduseserver
'record.locktype=adlockreadonly
record.Open file, "Provider=MSPersist ;"
do until record.EOF
Response.Write(record("id_prodotto") & "<br>" & record("nome") & "<br>" & record("categoria") & "<br>")
record.movenext
loop
'close and free
record.close
set record=nothing
Response.Write("<br><br><a href=saverecord1.asp?ciccio=2>Vai</a>")

end if

if request("ciccio")=2 then

file="c:\" & session.SessionID & ".xml"

'apertura della connessione e del recordset
set connetti=server.createobject ("ADODB.Connection")
connetti.connectionstring="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("../abbigliamento.mdb") & ";"
connetti.open
Set record =server.CreateObject("ADODB.Recordset")


record.cursorlocation=aduseclient

record.locktype=adlockbatchoptimistic

record.open file, "Provider=MSPersist ;", adopenstatic


'passaggio della connessione del recordset al database
record.activeconnection = connetti

'update del database
record.updatebatch' adAffectAll

'chiusura del recordset
record.close

'apertura del database per vedere le modifiche

record.open "select* from prodotti1 ;", connetti, adopenforwardonly, adlockreadonly

do until record.EOF
Response.Write("<br>" & record("id_prodotto") & "<br>" & record("nome") & "<br>" & record("categoria"))
record.movenext
loop

record.close
set record=nothing
connetti.close
set connetti=nothing

'cancellazione file
set fso=server.CreateObject("Scripting.FileSystemObject")
set d=fso.GetFile(file)
d.delete()

Response.Write("<br><br><a href=saverecord1.asp?ciccio=0>Vai</a>")
end if



%>

ps: il file me lo salva sul server e va bene, ma volessi salvarlo sul client come posso fare????idee???


grazie mille vaargard

60 messaggi dal 13 febbraio 2002
up!!!

(perdonatemi ma non ci dormo la notte!!eheheheheh)
ciao vaargard

60 messaggi dal 13 febbraio 2002
allora proprio nessuno che sappia risolvere sto problema vero????????????

ok rinuncio.............ciao vaargard

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.