[VB6] e active report

[raffaeu]

Ciao nel mio programmino ho costruito un active report, ma mi succede che quando creo il recordset, ne vedo solo il primo.
Posto il codice della sub che popola cosi capite:

Private Sub ActiveReport_ReportStart()
connetti
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    'costruisco la query
    Dim qry2 As String
    
    qry2 = "SELECT * FROM Clienti "
    rs.Open qry2, CN, adOpenStatic, adLockOptimistic
    If rs.RecordCount > 0 Then
        With rptClienti
        .lblNome.Caption = rs!Cli_nome
        .lblCognome = rs!Cli_cognome
        .lblCell = rs!Cli_cell
        .lblCivico = rs!Cli_civico
        .lblFax = rs!Cli_fax
        .lblIndirizzo = rs!Cli_indirizzo
        .lblPaese = rs!Cli_paese
        .lblProvincia = rs!Cli_provincia
        .lblStato = rs!Cli_stato
        .lblTelefono = rs!Cli_telefono
        End With
    End If
    rs.Close
    Set rs = Nothing
    Disconnetti
End Sub

le label si popolano, ma solo una volta, devo costruire un loop, ma come?

[amodio]

nn fai prima ad usare gli oggetti che ti mette a disposizione?
come l'oggetto ado o dao
molto comodi e semplici

facendo cosi' ti complichi solo la vita

[raffaeu]

si infatti faro' cosi' anche perchè ero abituato con crystal e mo co sto active report, mmmm mi manca un sacco di roba..

[amodio]

vabbeh manca la roba
ma almeno nn ti da erore nell'installazione!!!!!

poi è semplice da usare -->e costa poco

[raffaeu]

amodio, come darti torto?

Hai visto che adesso con net in teoria si va di XML e addio ADO?
Io ho i miei dubbi ...
Comunque buon lavoro!

[amodio]

Originariamente inviato da raffaeu
amodio, come darti torto?

Hai visto che adesso con net in teoria si va di XML e addio ADO?
Io ho i miei dubbi ...
Comunque buon lavoro!

macche è solo molto + stabile e trasferibile di sistema

ma guarda che con ado ci puoi fare tante cose
nn ti preoccupare

[ale500]

+ stabile si ma anche nettamente + lento

[amodio]

mah nn mi pare
hai fatto dei test in proposito?

per confrontarli?

[scoppato]

ma sbaglio o tutto questo:

If rs.RecordCount > 0 Then
With rptClienti
.lblNome.Caption = rs!Cli_nome
.lblCognome = rs!Cli_cognome
.lblCell = rs!Cli_cell
.lblCivico = rs!Cli_civico
.lblFax = rs!Cli_fax
.lblIndirizzo = rs!Cli_indirizzo
.lblPaese = rs!Cli_paese
.lblProvincia = rs!Cli_provincia
.lblStato = rs!Cli_stato
.lblTelefono = rs!Cli_telefono
End With
End If

deve essere inserito nel seguente ciclo:

while not rs.EOF

.... codice per il report

rs.movenext()
wend
Mi sbaglio?

[amodio]

secondo me no
nn ti crea righe nuove ma te le aggiorna....
xche nn usi il'oggetto ado?

basta che lo porti sulla parte dettagli del report
e immetti solo la strigna di connessione al database
(solo la connessione)

con il pulsante in alto aggiorni pre visualizzare i campi a video
che ti compaiono sula sinistra
e di li' li sposti nel report