[VB6] Passare valori campo access a TextBox Multiline

[axsw]

Ciao a tutti, spiego.
Allora io sono già connesso al mio database access ora quello che dovrei fare è questo:
Selezionare ad esempio il campo "Nome", contare i rekord (e questo lo sò fare) poi una volta contati ad esempio se sono 10 dovrei visualizzarli in una texbox multiline in questo modo.
Nella riga 1 il Primo nome, poi a capo nella riga 2 il secondo nome e così fino all'ultimo nome
del campo.
Grazie a tutti.

[oregon]

Devi creare un recordset con una SELECT che selezioni tutti i nomi, scorrerlo dal primo all'ultimo record ed aggiungere i valori alla textbox.

[axsw]

Originariamente inviato da oregon
Devi creare un recordset con una SELECT che selezioni tutti i nomi, scorrerlo dal primo all'ultimo record ed aggiungere i valori alla textbox.

Ciao Oregon un piccolo esempio di codice potresti farmelo?
Grazie 1000

[oregon]

Perche' non prendi spunto dal codice che utilizzi gia' per contare i record? Mostralo ...

[axsw]

Originariamente inviato da oregon
Perche' non prendi spunto dal codice che utilizzi gia' per contare i record? Mostralo ...

Ciao Oregon i record li conto quando carico il form in questo modo (In rosso)

Private Sub Form_Load()
   Call connetti
    Rs.Open "SELECT * FROM Clienti"
     If Rs.EOF Then
        MsgBox "Nessuna Fattura nel database!", vbInformation, "Fatturazione"
     Else
      Rs.MoveFirst
        Do Until Rs.EOF
        list1.AddItem Rs.Fields("nome") & Space(2) & "  F. Nr. " & Rs.Fields("Nfattura")
        Rs.MoveNext
    Loop
   End If
    txtData.Text = Date
    Lab_1.Caption = Rs.RecordCount 
End Sub()

[oregon]

Questa parte di codice

    Do Until Rs.EOF
        list1.AddItem Rs.Fields("nome") & Space(2) & "  F. Nr. " & Rs.Fields("Nfattura")
        Rs.MoveNext
    Loop

che opera su una listbox, lo puoi modificare semplicemente per fare quello che chiedi nella textbox ...

[axsw]

Originariamente inviato da oregon
Questa parte di codice

    Do Until Rs.EOF
        list1.AddItem Rs.Fields("nome") & Space(2) & "  F. Nr. " & Rs.Fields("Nfattura")
        Rs.MoveNext
    Loop

che opera su una listbox, lo puoi modificare semplicemente per fare quello che chiedi nella textbox ...

Non credo oregon così mi carica solo il primo senza andare a capo, ora provo poi ti faccio sapere.

[axsw]

Originariamente inviato da oregon
Questa parte di codice

    Do Until Rs.EOF
        list1.AddItem Rs.Fields("nome") & Space(2) & "  F. Nr. " & Rs.Fields("Nfattura")
        Rs.MoveNext
    Loop

che opera su una listbox, lo puoi modificare semplicemente per fare quello che chiedi nella textbox ...

Difatti non funziona se è questo che dicevi

Do Until Rs.EOF
        txttesto.Text =  Rs.Fields("nome") & Space(2) & "  F. Nr. " & Rs.Fields("Nfattura")
        Rs.MoveNext
    Loop

Secondo me una volta contati i record bisogna creare una matrice tanto io sò che i record non possono essere + di 10
Tipo: TxtTesto.Text = Record(1) & vbCrLf & Record(2) e così via, ma solo che sono annebbiato e non riesco a farlo.

[oregon]

Intendevo cosi' ...

    txttesto.Text =  ""
    Do Until Rs.EOF
        txttesto.Text =  txttesto.Text & Rs.Fields("nome") & vbCrLf
        Rs.MoveNext
    Loop

[axsw]

Originariamente inviato da oregon
Intendevo cosi' ...

    txttesto.Text =  ""
    Do Until Rs.EOF
        txttesto.Text =  txttesto.Text & Rs.Fields("nome") & vbCrLf
        Rs.MoveNext
    Loop

Non funziona