Connessione chiusa o non valida in questo contesto

[wegawhite]

Buona domenica.

Non capisco perchè questo codice restituisca quest'errore:

Tipo di errore:
ADODB.Recordset (0x800A0E7D)
Connessione chiusa o non valida in questo contesto. Impossibile utilizzarla per eseguire l'operazione.

Set objconn = Server.CreateObject("ADODB.Connection")
objconn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=x;USER=x;PASSWORD=x;OPTION=3;"


Sub ShowCats()
	
	    Set objShowCatRS = Server.CreateObject("ADODB.Recordset")
		strShowCatSQL = "Select * From tbl_Categories"
		objShowCatRS.Open strShowCatSQL, objConn

		Do While Not objShowCatRS.EOF
			For Each itmCat In objShowCatRS.Fields
				If itmCat.Name = "Name" Then
					Response.Write itmCat.Value & "
"
				End If
			Next
			objShowCatRS.MoveNext
		Loop

		objShowCatRS.Close
		Set objShowCatRS = Nothing

	End Sub

Sapete aiutarmi?

[optime]

sarebbe carino che tu indicassi la riga che ti dà errore... e comunque, fai tutto quel giro per leggere la sola colonna "name"?

[Ugly Mau]

Se apri la connessione fuori della sub è meglio che la chiudi fuori della sub.


oaiC

[wegawhite]

Originariamente inviato da optime
sarebbe carino che tu indicassi la riga che ti dà errore... e comunque, fai tutto quel giro per leggere la sola colonna "name"?

objShowCatRS.Open strShowCatSQL, objConn

[optime]

ovviamente il codice che tu hai postato non è tutto... sicuro che tra l'apertura e la call della sub non ci sia qualcosa che chiude la connessione?

[Ugly Mau]

Set objconn = Server.CreateObject("ADODB.Connection")
objconn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=x;USER=x;PASSWOR D=x;OPTION=3;"


Sub ShowCats()

Set objShowCatRS = Server.CreateObject("ADODB.Recordset")
strShowCatSQL = "Select * From tbl_Categories"
objShowCatRS.Open strShowCatSQL, objConn

Do While Not objShowCatRS.EOF
For Each itmCat In objShowCatRS.Fields
If itmCat.Name = "Name" Then
Response.Write itmCat.Value & "
"
End If
Next
objShowCatRS.MoveNext
Loop
objShowCatRS.Close

End Sub


Set objShowCatRS = Nothing


Prova così


Piccola rettifica

[wegawhite]

Grazie adesso funziona con il suggerimento di Ugly Mau.

[Ugly Mau]

Attenzione anche a quello che ti detto optime, non chiudere la connessione prima di usare la Sub altrimenti avrai lo stesso problema....

[santino83]

qualcuno mi spieghi il suggerimento di ugly mau che proprio non lo capisco

[Ugly Mau]

Originariamente inviato da santino83
qualcuno mi spieghi il suggerimento di ugly mau che proprio non lo capisco

Quale parte?