listbox particolare!

[Pinco Pallino 2]

CIAO! Io uso questo query sql per cercarew dati nel mio db:

Dim campo As String
Dim valore As String


Private Sub mnuRicCogn_Click()
campo = "cognome"
valore = InputBox$("Inserisci il cognome da cercare:", "Ricerca per cognome")
If valore <> "" Then
Data1.RecordSource = " SELECT * FROM archivio WHERE " & campo & "='" & valore & "' order by nome Asc"
Data1.Refresh
End If
End Sub

Ovviamente associati al campo cognome c'è tutta una serie di campi (nome, via, telefono ecc). usando questo metodo posso visualizzare il tutto in varie textbox che hanno come dataSource l'oggetto DATA1 e come dataField il campo associato!

Io vorrei invece visualizzare la lista di tutti i cognomi trovati (con il rispettivo nome) in una listbox!
Come devo fare?!?!?!

[gege]

Ti puoi aprire un recordset facendo una select solo sui campi cognome e nome. Poi fai un ciclo di questo genere:

do while Recordset.eof=false
list.addnew(recordset!cognome & " " & recordset!nome)
recordset.movenext
loop

in questo modo ti dovrebbe visualizzare nella listbox la lista dei nomi e cognomi insieme.

Ciao.

[Pinco Pallino 2]

ciao scusa il ritardo!
Non ho capito bene,,,,

il fatto è che io non dikiaro nessun recordset...