Newsgroup: it.comp.lang.visual-basic
Titolo: [?] caricamento datagrid

 wrote in message
news:001401bf54c6$1ca61f10$1c00...@spico.it...
Analizzando il tuo codice (senza provarlo) e l'errore ottenuto
salta all'occhio che usi un controllo che non ha il numero di righe
necessario per inserirci i records. Il DBGrid non ti permette di aggiungere
dinamicamente le righe. Se
useresti
Ahi, ahi ! se USASSI
un grid tipo MSFlexGrid (disponibile
nei components standard di VB6) oltre a tutte le funzionalità DB potresti
utilizzare il suo metodo.AddItem  o se proprio vuoi .Rows = .Rows + 1
Se
utilizzeresti
Ahi, ahi ! se UTILIZZASSI
un MSFlexGrid il codice sarebbe :
If EL.EOF = False And EL.BOF = False Then
        EL.MoveFirst
            If Not EL.EOF Then
            riga=0
                Do Until EL.EOF
                    DataGrid1.AddItem  EL!nconto
                    ' O in alternativa
                    ' DataGrid1.Rows = DataGrid1.Rows + 1 ' Aggiungi una
riga
                    ' DataGrid1.Row = DataGrid1.Rows - 1     ' ti posizioni
sull'ultima riga appena aggiunta
                    ' DataGrid1.Text = EL!nconto
                    EL.MoveNext
                Loop
                    EL.Close
            End If
' Mancava
End if
Mi chiedo, però, perchè scollegarlo dal controllo ADO ?

come si carica una datagrid (scollegato da controllo ado) con un ciclo do?
allego del codice ma credo che sia 100% shit in quanto mi ritorna un errore
gruppo di righe non disponibile
  If EL.EOF = False And EL.BOF = False Then
        EL.MoveFirst
            If Not EL.EOF Then
            riga=0
                Do Until EL.EOF
                    riga = riga + 1
                    DataGrid1.Row = riga
                    DataGrid1.Columns(0).Text = EL!nconto
                    EL.MoveNext
                Loop
                    EL.Close
            End If
grazie mille

Che sappia io, il datagrid non funziona in modo Unbound, ma potrei
sbagliare.
Io per poter usare la funzione Unbound ho dovuto acquistare TrueDbGrid
Ciao
Sergio




Analizzando il tuo codice (senza provarlo) e 
l'errore ottenuto 


salta all'occhio che usi un 
controllo che non 
ha il 
numero di righe


necessario per inserirci i records. Il DBGrid 
non ti permette di aggiungere


dinamicamente le righe. Se useresti un grid 
tipo MSFlexGrid (disponibile


nei components standard di VB6) oltre a tutte le 
funzionalità DB potresti 


utilizzare il suo metodo
.AddItem
  
o se proprio vuoi 
.Rows = .Rows + 1 


Se utilizzeresti un MSFlexGrid il codice sarebbe : 



 


If EL.EOF = False And EL.BOF = False 
Then
        
EL.MoveFirst
            
If Not EL.EOF 
Then
            
riga=0
                
Do Until EL.EOF


                    DataGrid1.AddItem  
EL!nconto


                    
' O in alternativa 


        
            ' DataGrid1.Rows = 
DataGrid1.Rows + 1 ' Aggiungi una riga


        
            ' DataGrid1.Row = 
DataGrid1.Rows - 1     ' ti posizioni sull'ultima riga 
appena aggiunta 


        
            ' DataGrid1.Text = 
EL!nconto 


 


                    

EL.MoveNext
                
Loop
                    
EL.Close
            
End If








Grazie per le correzioni, questo si chiama lavoro 
di squadra !