Scrivere i risultati di una tabella...

[globalspace]

tramite un search il programma dovrebbe scrivere in un TEXT i vari risultati che ha trovato (essendo la ricerca formata da un LIKE)...uso questo codice :

With Data1
While Not .Recordset.EOF
If UCase(.Recordset("Cognome")) Like "*" & UCase(NomeDaCercare) & "*" Then
Dim TitoloTrovato As String
TitoloTrovato = .Recordset("Cognome")
risTITOLO1.Text = TitoloTrovato
Found = True
.UpdateControls
End If
.Recordset.MoveNext


Wend

peccato che me ne scriva solo uno...
se ad esempio scrivo "e" come campo di ricerca mi scrive il primo o l'ultimo (non so) titolo che trova con "e" e non tutti...dove sbaglio?
io vengo da programmini fatti così con ASP e HTML e mi SEMBRA che il codice sia giusto ... forse sbaglio e nn devo utilizzare il CAMPO TEXTBOX...ma cosa dovrei usare allora?


ciao e grazie

[ladyBlu]

semplicemente... ogni volta che assegni alla textbox "risTITOLO1" il valore della variabile "TitoloTrovato" non mantieni ciò che avevi scritto fino a quel momento.
Modifica il codice così (vedi riga in rosso):

With Data1 

  While Not .Recordset.EOF 

    If UCase(.Recordset("Cognome")) Like "*" & _
                 UCase(NomeDaCercare)  & "*" Then 

       Dim TitoloTrovato As String 
       TitoloTrovato = .Recordset("Cognome") 
       risTITOLO1.Text = risTITOLO1.Text & vbNewLine & TitoloTrovato 
       Found = True 
       .UpdateControls 

    End If 

   .Recordset.MoveNext 

  Wend 

End With

[globalspace]

:metallica

GRAZIE FUNZIONA ORA!!

nella TEXTBOX viene così ora :

Microsoft Visual Studio 6.0 || Mafia ||

cosa sono queste " || " ? :master:

e se posso .. sai per caso come posso mettere a capo i risultati? c'è un comando?

grazie ancora

[globalspace]

mm ora vedo che in teoria la funzione per andare a capo dovrebbe essere svolta da vbNewLine...eppure mi mette || ... mmm che strano...

[globalspace]

Originariamente inviato da globalspace
mm ora vedo che in teoria la funzione per andare a capo dovrebbe essere svolta da vbNewLine...eppure mi mette || ... mmm che strano...

ho risolto!!! :quote:

bastava mettere TRUE su MULTILINE !!


scusatemi ma sto muovendo i primi passi con vb :mavieni:

[ladyBlu]

Originariamente inviato da globalspace
ho risolto!!! :quote:

bastava mettere TRUE su MULTILINE !!


scusatemi ma sto muovendo i primi passi con vb :mavieni:

cavoli, ti sei autorisposto per 3 volte...
Cmq, si... bastava mettere True sulla proprietà Multiline, avevo dimenticato di scrivertelo


Ah, qualora lo spazio della textbox non fosse sufficiente per contenere tutto il testo, devi assegnare alla proprietà ScrollBar il valore Vertical

[globalspace]

Originariamente inviato da ladyBlu
cavoli, ti sei autorisposto per 3 volte...
Cmq, si... bastava mettere True sulla proprietà Multiline, avevo dimenticato di scrivertelo


Ah, qualora lo spazio della textbox non fosse sufficiente per contenere tutto il testo, devi assegnare alla proprietà ScrollBar il valore Vertical

grazie mille per l'aiuto!
posso chiederti un altra cosetta?

questo mio programmino ora come ora è INUTILE...eh eh ..
faccio cerca..mi trova i risultati...me li scrive...poi se faccio CERCA e scrivo di nuovo un risultato che è già stato trovato (e quindi è scritto nella TEXTBOX) mi fa NESSUN RISULTATO...se faccio una ricerca con un altro nome che nn è già stato scritto me lo aggiunge alla lista...
quindi ho pensato che OGNI VOLTA che faccio click sul pulsante cerca il programmino deve AGGIORNARE...REFRESHARE la TEXTBOX eliminando i risultati che potrebbero esserci...
che funzione devo usare?

ho provato a fare rsTITOLO.Refresh .. ma nn fa nulla

ciaooo

[ladyBlu]

Originariamente inviato da globalspace
grazie mille per l'aiuto!
posso chiederti un altra cosetta?

questo mio programmino ora come ora è INUTILE...eh eh ..
faccio cerca..mi trova i risultati...me li scrive...poi se faccio CERCA e scrivo di nuovo un risultato che è già stato trovato (e quindi è scritto nella TEXTBOX) mi fa NESSUN RISULTATO...se faccio una ricerca con un altro nome che nn è già stato scritto me lo aggiunge alla lista...
quindi ho pensato che OGNI VOLTA che faccio click sul pulsante cerca il programmino deve AGGIORNARE...REFRESHARE la TEXTBOX eliminando i risultati che potrebbero esserci...
che funzione devo usare?

ho provato a fare rsTITOLO.Refresh .. ma nn fa nulla

ciaooo

Se ho ben capito, vuoi cencellare qualsiasi cosa sia scritta nella text prima di iniziare una nuova ricerca per evitare che ti si confondano i risultati.
Quindi ti basta scrivere nel codice dell'evento Click del bottone Cerca:

Sub cmdCerca_Click()
   rsTITOLO.Text = ""
   'qui fai la ricerca
End Sub

in questo modo elimini qualsiasi cosa è scritta nella textbox.

[globalspace]

esatto..
fatto..


però

faccio una ricerca con "a"
-mi trova i risultati..me li scrive...

faccio una ricerca subito dopo con "b"
-mi cancella i vecchi risultati appena clicco...
-NESSUN TITOLO TROVATO!

faccio una ricerca subito dopo con "b" di nuovo
-mi cancella i vecchi risultati appena clicco...
-MI TROVA i risultati che PRIMA NON MI AVEVA TROVATO :master:

e così di seguito...
se faccio un altra ricerca NON TROVA
se ne faccio subito un altra MI TROVA

e così...

[ladyBlu]

posta il codice che utilizzi per cercare e quello che usi per scrivere, così vediamo dove sta il problema