[VB6] DataReport: errore "Indice non compreso nell'intervallo"

[nadia79]

Ciao a tutti,
ho un errore sul pulsante di stampa questo è il codice:

' Creo un recordset per l'interrogazione del DB
Dim rsestrattoCliTot As ADODB.Recordset


Set rsestrattoCliTot = cn.Execute("SELECT * FROM CLIENTI")

While Not rsestrattoCliTot.EOF
    ' Ricavo il numero di record totali
    totCli = rsestrattoCliTot.RecordCount
    
Set DataReport2.DataSource = rsestrattoCliTot

DataReport2.Sections(4).Controls.Item("testo1").Caption = rsestrattoCliTot("NOME")

DataReport2.Show


    rsestrattoCliTot.MoveNext
Wend

L'errore è:

Errore di runtime '9' - Indice non compreso nell'intervallo

Eppure non vedo perchè non debba funzionare... è la prima volta che uso il Datareport

[Boolean]

Ciao Nadia79

beh, credo che ci sia un po' di confusione...

per stampare il contenuto di un recordset non è necessario ciclare tutti i record, basta assegnare il recordset al DataSource del DataReport, in pratica:

Dim rsestrattoCliTot As ADODB.Recordset

Set rsestrattoCliTot = cn.Execute("SELECT * FROM CLIENTI")
Set DataReport2.DataSource = rsestrattoCliTot
DataReport2.Sections(4).Controls("testo1").DataField = "NOME"
DataReport2.Show

per quanto riguarda il tuo errore di run-time, credo che il problema fosse

...Controls.Item("testo1")...

se metti Item, devi specificare un indice numerico, mentre se togli Item e passi il nome del controllo a Controls (come nel codice che ti ho postato) dovrebbe andare

Boolean

[alka]

A quale versione di Visual Basic ci stiamo riferendo?

E' obbligatorio indicare il linguaggio nel titolo, come da Regolamento.

Inoltre, esorto come sempre a non rispondere fino a quando non si è comunque certi del linguaggio di riferimento, in linea generale, per evitare il rischio di fornire risposte che poi sono da scartare.

Ciao!

[nadia79]

Grazie Boolean per la risposta ora la provo e ti faccio sapere!

Scusami Alka, hai ragione... però dopo ore che stavo studiando i Datareport me ne sono completamente dimenticata di specificare il linguaggio (VB6)...