ritornare un recordset da una classe

[Alethesnake]

ciao,
sto scrivendo una classe per l'impaginazione dei records, ed ho bisogno di un consiglio su come farmi ritornare i risultati.

la classe ha un metodo get per ottenere la connessione tipo
set connessioneDellaClasse = connessionePassata

all'interno della classe ho due variabili private connessioneDellaClasse e recordsetDellaClasse (rs).

quello che vi chiedo è:
come faccio a ritornare questo recordset alla pagina dove viene istanziata la classe?

per il momento ho una serie di metodi del tipo:

public function Field(campo)
   Field = rs(campo)
end function

public function MoveNext()
   MoveNext = rs.MoveNext()
end function

public function EOF()
   EOF = rs.EOF
end funciton

'ecc ecc per i metodi del recordset che mi possono tornare utili

che richiamo con:

..
if not oggettoDellaClasse.EOF then
   oggettoDellaClasse.Field("nomeCampoDb")
end if
...

è la cosa migliore da fare in questo caso o c'è di meglio?

[Alethesnake]

up

[Baol74]

Non ho capito la domanda.
Intanto un appunto Rs.Movenext non è una funzione

Io la scriverei così:

Public Sub MoveNext()
	On error resume next
	Rs.MoveNext()
	on erro goto 0
End Function

[Alethesnake]

Originariamente inviato da Baol74
Non ho capito la domanda.
Intanto un appunto Rs.Movenext non è una funzione

Io la scriverei così:

Public Sub MoveNext()
	On error resume next
	Rs.MoveNext()
	on erro goto 0
End Function

Grazie per l'appunto, effettivamente non ci avevo pensato.
per quel che riguarda la mia domanda, volevo sapere se per ottenere i valori del recordset posso fare una property get del recordset (e se ha senso farlo) per poi assegnarla con:

set rs = oggettoClasse.getRecordsetClasse

o se conviene invece implementare tutti i metodi del recordset a partire da:

public function Field(campo)
   Field = rs(campo)
end function

come ho fatto ora.

grazie per l'aiuto

[Baol74]

Io solitamente faccio una cosa del genere

Class cRecordset
	Public Record

	Public Default Property Get Fields(Name)
		Fields = Record.Fields(name)
	end Property

	Public Property Let Fields(Name,Value)
		Record.Fields(name).value = Value
	end Property
.
.
.

Record è accessibile direttamente (il tuo rs)

Dim oRs,Rs
Set oRs = new cRecordset
'Immagina apertura connessione ect..

'Di seguito ti indico delle istruzioni valide
Response.Write oRs("ID")
Response.Write oRs.Fields("ID")

'Assegnazione dell'oggeto
Set Rs=oRs.Record

Non so se ho risposto alla tua domanda.

In ogni caso mi sembra che tu debba centrare meglio l'analisi dell'oggetto e capire come questo possa essere usato in un contesto reale...

[Alethesnake]

direi che hai centrato la mia domanda, ti ringrazio molto, alla prossima