Connessione ADO e ciclo

[cla80]

Non capisco perchè al clic del pulsante command1_click, non mi fa visualizzare sulla textbox, tutti i campi.

Es.
tabella: tblAree
campo: Descrizione
------- CIAO
------- MIAO
------- PIPPO

Ecco il codice qui sotto dovrebbe ciclarmi i nomi ogni volta che premo il commandbutton, perchè non lo fa????

Private Sub Command1_Click()
Call ADOconnetti
End Sub
Private Sub ADOconnetti()
Dim sql As String
Dim i As Integer
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Darsena;Data Source=2000PROF\ALPHATEAM"
rs.CursorLocation = adUseClient
rs.ActiveConnection = cn
rs.Open "select * from tblAree"
Do Until rs.EOF
   Text1.Text = rs!Descrizione
   rs.MoveNext
Loop
i = 0
Do While rs.EOF
rs.MoveLast
i = rs!idAree
Loop
rs.Close
Set rs = Nothing
End Sub

Aiutoo??????

[optime]

perche' ogni volta rimpiazzi il contenuto della textbox con l'ultimo valore letto. se li vuoi tutti devi accodare (textbox.text = txtbox.text & valore & vbCrLf)

[cla80]

cioè cosa devo aggiungere???

[optime]

scusa, ma te l'ho pure scritto! ho usato altri nomi, ma non ci vuole molto a trasformare il tuo codice, che diventa

Text1.Text = Text1.Text & rs!Descrizione & vbCrLf

cos'e' che non capisci?

[Markho]

Do Until rs.EOF
   Text1.Text = rs!Descrizione 
   rs.MoveNext
Loop

dovresti sostituire la parte in neretto con

   Text1.Text = Text1.Text & " " & vbCrLf & " " & rs!Descrizione

altrimenti ogni ciclo ti cancella le assegnazioni procedenti, metre così le accodi........

[cla80]

non funziona ! stesso risultato di prima

[xegallo]

ma la textbox è multiline????

[cla80]

ma non è possibile far si che ogni volta che clicco sul commandbutton, mi visualizza il record successivo??

???
(si è multiline)

[xegallo]

Originariamente inviato da cla80
ma non è possibile far si che ogni volta che clicco sul commandbutton, mi visualizza il record successivo??

???
(si è multiline)

si ma allora hai sbagliato quasi tutto

[cla80]

...Puoi aiutarmi, a cambiare il mio codice???

Ora che ti ho trovato in forum, puoi darmi una mano??
grazie immensamente.

Sei forte comunque.