[VB6]: Listview1 e Listview2

[vr-claudio]

Ciao ragazzi,
scusate se il titolo non sembra chiarissimo ma non sapevo come intitolare questo post...
Inizio subito nel descrivervi come mi connetto ad una tabella.mdb ad una ListView:

Set conn = New ADODB.Connection
With conn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & "C:\ORDINI SINGOLI\ORDINI.mdb"
.Mode = adModeRead
.Open
End With

Set rs = New ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT DISTINCT NOME_AZIENDA FROM Ordini_Eseguiti"

rs.Open strSQL, conn, adOpenKeyset, adLockReadOnly
Call CaricaListView(rs)

...e fin tutto ok.
Cliccando su di un nome delle Aziende caricate, vorrei che si caricassero tutti gli ordini effettuati da quell'Azienda in un'altra ListView2
Come posso fare?
Grazie vr-claudio

[gibra]

Fai più o meno la stessa cosa, ovvero una query che carichi gli Ordini_Eseguiti impostando la condizione WHERE sul nome dell'azienda grazie all'evento ItemClick del Listview1 ricavi il nome dell'azienda

Dim sAzienda As String
sAzienda = "'" & Replace(Item.Text ,"'","''") & "'"
strSQL = "SELECT * FROM Ordini_Eseguiti WHERE NOME_AZIENDA =" & sAzienda

P.S. 1
vr-claudio, non sei nuovo del forum e dovresti sapere che il codice va formattato usando il pulsante # !!! Giusto?

P.S. 2
Anche se il tuo codice mostra così, spero bene che tu non apra una connessione locale ogni volta che popoli il ListView?

[vr-claudio]

Ciao Gibra,
hai perfettamente ragione in merito alla formattazione del codice.
Grazie mille l'aiuto

PS2: Per quanto riguarda la connessione locale la faccio solamente una volta, era solo per far capire il codice che utlizzo

grazie ancora