come chiudere correttamente un db

**DarioMarco** · 04-09-2007, 15:56

salve a tutti, se io chiudo una connessione ad un db con relativo recordset in questo modo:

recordset.close
set recordset = nothing
conn.close
set conn = nothing

mi dovrebbe funzionare, ma mi restituisce questo errore:

Tipo di errore:
ADODB.Recordset (0x800A0E78)
L'operazione non è consentita se l'oggetto è chiuso.

come dovrei fare per rimediare???

**diegoctn** · 04-09-2007, 15:58

Posta un pò il codice....

**optime** · 04-09-2007, 16:04

hai postato quattro righe e un errore. scelgo io quale delle quattro dà l'errore o ce lo dici tu?

**diegoctn** · 04-09-2007, 16:06

Up! Non l'avevo visto..............

**optime** · 04-09-2007, 16:29

1 birra che l'errore lo dà sulla chiusura del recordset (prima riga delle quattro)

**DarioMarco** · 08-09-2007, 21:34

se mi dite quale parte di codice devo postare lo faccio volentieri.

Grazie, ciao.

**Roby_72** · 08-09-2007, 22:35

hai chiuso la connessione o il recordset da qualche altra parte in precedenza.

Roby

**DarioMarco** · 15-09-2007, 20:32

ragazzi, veramente perdonatemi, ma non riuscivo a trovare la pagina col codice in questione ed ho perso un pò di tempo per trovarla, spero che siete ancora interessati al codice, in tal caso lo posto qui in basso.

codice:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>News cancellata con successo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
if session("login") then

percorso = "/cartella/foto/"
id = Request.QueryString("id")

set conn = server.CreateObject("ADODB.Connection")
conn.open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "& server.MapPath("/miodatabase/paginaNews.mdb"))

set recset = server.CreateObject("ADODB.Recordset")
set recset = conn.execute("select * from news where id="&id)


'cancella la foto dal server

set canc = server.CreateObject("Scripting.FileSystemObject")
	canc.DeleteFile(server.MapPath(percorso & recset("foto")))
	

' cancello le altre foto dal server


if recset("altrefoto") <> "" then
ArrLink = Split(recset("altreFoto"),VbCrlf)

	for x = 0 to uBound(ArrLink)
		canc.DeleteFile(Server.MapPath(percorso & ArrLink(x)))
	Next
End if

'cancello il record dal db'
set recset = conn.execute("DELETE from news where id="&id)

' chiusura database e oggetto canc'
set canc = nothing 
'recset.close
'set recset = nothing
'conn.close
'set conn = nothing

Response.Redirect("visionaNews.asp")

else
Response.Redirect("login.asp")
end if
%>








<table width="633" height="144" border="1" align="center" cellpadding="1" bordercolor="#666666" bgcolor="#CCCCCC">
  <tr>
    <td width="623" bordercolor="#333333" bgcolor="#CCCCCC"><div align="center">La News &egrave; stata cancellata con successo!

    </div></td>
  </tr>
  <tr>
    <td bgcolor="#CCCCCC"><div align="center">Clicca qui se non vuoi aspettare oltre o se il browser non ti rimanda alla pagina delle news </div></td>
  </tr>
</table>
</body>
</html>

Come vedete ho dovuto applicare il commento alle righe di chiusura, grazie, ciao.

Discussione: come chiudere correttamente un db

Strumenti discussione

Ricerca discussione

Visualizza

come chiudere correttamente un db

Permessi di invio