il ciclo for..nn ricordo

[Drocchia]

ciao ragazzi devo fare un ciclo for che mi controlli ogni cambo di una database..il mio problema è questo..

For i=1 to COME FACCIO A DIRLI FINO ALLA FINE DEL DB??!!!

io ho provato con Recordset.EOF ma nn va!!!

Un altra domanda..come si fa a terminare durante l'esecuzione un ciclo for??!!

Ciao e Grazie

[ladyBlu]

per terminare un ciclo di botto inserisci EXIT FOR

per scorrere un db, sei sicuro che con EOF non funziona???
:master:

Recordset.MoveFirst
Do Until Recordset.EOF 
   'qui leggi i campi che ti interessano
   Recordset.MoveNext
Loop

scusa, ma così deve funzionare per forza...

[DarCas]

Originariamente inviato da ladyBlu
per terminare un ciclo di botto inserisci EXIT FOR

per scorrere un db, sei sicuro che con EOF non funziona???
:master:

Recordset.MoveFirst
Do Until Recordset.EOF 
   'qui leggi i campi che ti interessano
   Recordset.MoveNext
Loop

scusa, ma così deve funzionare per forza...

Sostituisci RS a Recordset (rs.EOF, rs.MoveNext)

[ladyBlu]

Originariamente inviato da DarCas
Sostituisci RS a Recordset (rs.EOF, rs.MoveNext)

già, hai ragione...

[debbelandia]

lui ha detto un for

anche se è meglio il loop ...

cmq


for x=0 to rs.recordcount
rs.movenext
next

[Drocchia]

ah era exit e nn end!!

cmq il eof nn va io faccio così:

   For i = 1 To dbClienti.Recordset.EOF
   dbClienti.Recordset.MoveNext
   If txtDitta.Text = NomeDaCercare Then
   MsgBox "trovato"
   Exit For
   End If

   Next i

e nn scorre cosa che dovrebbe fare!!

[Drocchia]

ok grazie

[ladyBlu]

scrivi così:

dbClienti.RS.MoveFirst
For i = 1 To dbClienti.RS.RecordCount
   If txtDitta.Text = NomeDaCercare Then
      MsgBox "trovato"
      Exit For
   End If
   dbClienti.RS.MoveNext
Next i

come aveva detto già debbelandia;
ma secondo me ti conviene usare un ciclo di do:

dbClienti.RS.MoveFirst
Do Until dbClienti.RS.EOF 
   If txtDitta.Text = NomeDaCercare Then
      MsgBox "trovato"
      Exit For
   End If
   Recordset.MoveNext
Loop

[Drocchia]

ok grazie

volevo dire che ho risolto quello è un codice che mi permette di ricercare dei nominati all'interno di un db.....c'enerabo tanti in rete ma nessuno faceva al mio caso questo si!!

'Ricerca un nome all'interno dell'agenda.
    Dim i As Integer
    Dim NomeDaCercare As String
    'chiede l'inserimento della ditta
    NomeDaCercare = InputBox$("Immettere la ditta da ricercare:", "Ricerca nell'agenda")
    dbClienti.Recordset.MoveFirst
'inizia la ricerca
For i = 1 To dbClienti.Recordset.RecordCount
    dbClienti.Recordset.MoveNext
    If txtDitta.Text = NomeDaCercare Then
        MsgBox "Ditta Trovata", vbInformation, Me.Caption
        Exit For
    End If
    If i = dbClienti.Recordset.RecordCount Then
        dbClienti.Recordset.MoveFirst
        MsgBox "Ditta non trovata", vbExclamation, Me.Caption
    End If
Next i

Grazie Ancora