necessario oggetto in una semplice query...

[Silcrinf]

Ciao a tutti.
Ho una pagina ASP che mi deve fare questa banalissima query, ma *orca vacca mi dà errore!
Il codice è questo:

<%Dim objConnTessera, strsqlTessera, objRSTessera, numero_socio

strsqlTessera="SELECT top 1 tessera.numero FROM tessera ORDER BY tessera.numero DESC;"

Set objConnTessera = Server.CreateObject("ADODB.Connection")
objConnTessera.Open strConnClub
Set objRSTessera = Server.CreateObject("ADODB.Recordset")

objRSTessera.CursorLocation = adUseClient
set objRSTessera = objConnTessera.Execute(strsqlTessera)
numero_socio = objRSTessera("numero") + 1
objRSTessera.Close
Set objRSTessera = Nothing
%>

e l'errore che mi dà è questo:

Errore di run-time di Microsoft VBScript error '800a01a8'

Necessario oggetto: ''

iscrizione_nome.asp, line 51

dove la linea 51 è "Set objRSTessera = Nothing".

Ho fatto decine di volte query del genere, ma è la prima volta che mi dà questo errore.

Premetto che prima di questa query, ne ho un'altra che però ha variabili diverse e pesca dati diversi da altre tabelle, quindi credo sia ininfluente (almeno spero!) :master:

Grazie mille per l'aiuto!

[nat99]

un appunto... usare i tag code...

cmq sembra strano che nella distruzione dell'oggetto si verifichi l'errore....

[Sypher]

Originariamente inviato da nat99
un appunto... usare i tag code...

cmq sembra strano che nella distruzione dell'oggetto si verifichi l'errore....

si anche per me è strano...fa una bella cosa commenta la riga in cui distruggi l'oggetto per il momento...secondo me ti da errore lo stesso...

[nat99]

Originariamente inviato da Sypher
si anche per me è strano...fa una bella cosa commenta la riga in cui distruggi l'oggetto per il momento...secondo me ti da errore lo stesso...

caro sypher ma nn eri in OT a commentare passere e scommesse??

[Sypher]

Originariamente inviato da nat99
caro sypher ma nn eri in OT a commentare passere e scommesse??

ma quando mai? ci deve essere un errore

[Silcrinf]

<%Dim objConnTessera, strsqlTessera, objRSTessera, numero_socio 

strsqlTessera="SELECT top 1 tessera.numero FROM tessera ORDER BY tessera.numero DESC;" 

Set objConnTessera = Server.CreateObject("ADODB.Connection") 
objConnTessera.Open strConnClub 
Set objRSTessera = Server.CreateObject("ADODB.Recordset") 

objRSTessera.CursorLocation = adUseClient 
set objRSTessera = objConnTessera.Execute(strsqlTessera) 
numero_socio = objRSTessera("numero") + 1 
'objRSTessera.Close 
'Set objRSTessera = Nothing 
%>

ho remmato la chiusura del recordset e ora l'errore (sempre lo stesso), non chiedetemi perchè, lo dà qui:

objConnTessera.Open strConnClub

[nat99]

che db usi?

[Silcrinf]

Access 97 che io ho aperto con Office 2003 e aggiornato di conseguenza (altrimenti non potevo nemmeno modificare mezzo campo).

ti allego anche il codice della stringa di connessione:

strConnClub = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/private/database/club2.mdb")%>

[nat99]

convertito al 4.0... prova con 3.51
office2003 ricordo che dava problemi... prova a creare ex-novo il db... con altro nome naturalmente

[Silcrinf]

allora, ho modificato qualche comando della query precedente (che evidentemente qualche infleunza strana l'aveva) e adesso non mi dà più errore sulla query precedente, ma su quella successiva.

io arrivo infatti ad avere una variabile (numero_socio).
devo pertanto aggiornare la tabella con questo nuovo valore.

	Dim objConnAggTessera, strsqlAggTessera
	strsqlAggTessera="UPDATE tessera SET tessera.numero = "&numero_socio&";"
	objConnAggTessera.Open strConnClub
	Set objConnAggTessera = Server.CreateObject("ADODB.Connection")
	Set objRSAggTessera = Server.CreateObject("ADODB.Recordset")

	set objRSAggTessera = objConnAggTessera.Execute(strsqlAggTessera)
	
	objRSAggTessera.Close  
	Set objRSAggTessera = Nothing

l'errore ("Errore di run-time di Microsoft VBScript error '800a01a8'

Necessario oggetto: '' ") me lo dà alla riga:

objConnAggTessera.Open strConnClub

perchè?
Grazie ancora della tua disponibilità!