[VB6] Applicare un ciclo

martedì 10 ottobre 2006 - 22.07

Incantatore Profilo | Newbie

Ciao a tutti , per prima cosa complimenti per il sito !

Arriviamo al mio problema :

Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

cosi però ovviamente appena trova la data che ho inserito nella text1 si ferma e mi aggiunge il nome in listview!

il mio problema è che se io ho la stessa data tipo 03/01/2006 Sia carlo e luca. mi aggiunge solo carlo.

come faccio a far aggiungere sia carlo e luca, mi hanno detto tramite un ciclo , mi aiutate per favore grazie

Slave Profilo | Junior Member

Set rs = db.OpenRecordset("SELECT * FROM pagamenti WHERE gennaio1 = '" & Text1.Text & "'", dbOpenSnapshot)

do while not rs.eof
If Not rs.EOF And Not rs.BOF And rs("gennaio") = "0" Then
ListView1.ListItems.Add , , rs("nome") + vbCrLf + "Data: " + Text1.Text, , 1

End If
rs.movenext
loop
Sono solo uno sballato in un mondo di sballati....

Incantatore Profilo | Newbie

grazie tante per la risposta ... visto che questo lavoro lo devo fare per 12 mesi:

come risolvo ? o devo fare

Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

ect...


o ce una stringa per farlo con 1 sola riga!


grazie tanto per l'aiuto

Slave Profilo | Junior Member

ma scusa eh...se devi farlo con tutti i mesi..non mettere il WHERE no???
lascia cosi:

Set rs = db.OpenRecordset("SELECT * FROM pagamenti")
Sono solo uno sballato in un mondo di sballati....

Incantatore Profilo | Newbie

mettendo cosi mi controlla tutti i record sotto un recordset? cioè mi rispecchia quel
= text1.text


grazie per la risposta intanto provo

Incantatore Profilo | Newbie

facendo cosi fa quello che dico io

Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

ma va a finire per le lunghe , ce un metodo per abbrevviare o va bene cosi?

ciao e grazie per l'aiuto
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5