[VB6]: Associare dati addizionali a elementi di una ListBox

[Jupy64]

Originariamente inviato da Veronica80
Sulla riga


rsrecordset.open

è un po come se cercassi di mettere una stringa in un campo che ha come formato quello numerico...

:master: posta la parte di codice che relativa all'open, compresa la query che usi per estrapolare i dati..

[vonkranz]

Originariamente inviato da Veronica80
Ciao ho un piccolo problema con una listbox!

Allora....io popolo la listbox con i nomi delle aziende di una tabella di un database access.

E nella lista appaiono tutti i nomi in ordine alfabetico.

Io vorrei che cliccando sul nome si apra la scheda dell'azienda (dove ci son tutti i dati).

Solo che la chiave primaria del record è il campo contatore "IDAZIENDA" mentre io popolo la listbox col campo "NomeAzienda"....come faccio a fare la SELECT ???

GRAZIE

dopo il click (o nell'evento click della list box) dovresti creare un nuovo recordset con la query

"SELECT * FROM [nome tabella delle aziende] WHERE [NomeAzienda] = '" & trim(List1.ItemData(List1.ListIndex)) & "'"

edit:

oppure filtra il recordset che hai usato per riempire la list box:

rsRecordset.Filter = "NomeAzienda = '" & List1.ItemData(List1.ListIndex) & "'"

per annullare il filtro, basta mettere rsRecordset.Filter=""

[Jupy64]

Originariamente inviato da vonkranz

"SELECT * FROM [nome tabella delle aziende] WHERE [NomeAzienda] = '" & trim(List1.ItemData(List1.ListIndex)) & "'"

edit:

oppure filtra il recordset che hai usato per riempire la list box:

rsRecordset.Filter = "NomeAzienda = '" & List1.ItemData(List1.ListIndex) & "'"

per annullare il filtro, basta mettere rsRecordset.Filter=""

Ciao, veramente, da come ha impostato la discussione, in ItemData c'è il codice dell'azienda e non il nome (altrimenti nemmeno avrebbe funzionato l'assegnazione alla proprietà ItemData con un dato stringa). Pertanto gli esempi che gli hai postato non vanno bene, la condizione deve essere verificata sul codice dell'azienda.
Ma probabilmente il suo problema non era questo..dato l'errore che ha manifestato..bisogna vedere il suo codice...

[vonkranz]

Originariamente inviato da Jupy64
Ciao, veramente, da come ha impostato la discussione, in ItemData c'è il codice dell'azienda e non il nome (altrimenti nemmeno avrebbe funzionato l'assegnazione alla proprietà ItemData con un dato stringa). Pertanto gli esempi che gli hai postato non vanno bene, la condizione deve essere verificata sul codice dell'azienda.
Ma probabilmente il suo problema non era questo..dato l'errore che ha manifestato..bisogna vedere il suo codice...

chiedo venia, la prop. da usare nn e' (List1.ItemData(List1.ListIndex)) ma List1.List(List1.ListIndex) sia per la SELECT... che per la prop. FILTER.

[Boolean]

Originariamente inviato da vonkranz
chiedo venia, la prop. da usare nn e' (List1.ItemData(List1.ListIndex)) ma List1.List(List1.ListIndex) sia per la SELECT... che per la prop. FILTER.

si, certo...
capisco che sia inusuale, trattandosi di aziende, ma in caso di omonimia?
la ItemData è stata creata proprio per mantenere una relazione con i dati provenienti dal DB, secondo me non ha senso cercare il nome dell'azienda, bisogna cercare il suo numero identificativo *univoco*

sono totalmente d'accordo con Jupy sul fatto che sia necessario il codice utilizzato, e che manifesta l'errore.

Boolean

[vonkranz]

Originariamente inviato da Boolean
si, certo...
capisco che sia inusuale, trattandosi di aziende, ma in caso di omonimia?
la ItemData è stata creata proprio per mantenere una relazione con i dati provenienti dal DB, secondo me non ha senso cercare il nome dell'azienda, bisogna cercare il suo numero identificativo *univoco*

sono totalmente d'accordo con Jupy sul fatto che sia necessario il codice utilizzato, e che manifesta l'errore.

Boolean

allora basa il FILTER su:
rsRecordset.Filter = "idAzienda = " & cstr(List1.ItemData(List1.ListIndex))

tenendo conto che Jet non e' molto elastico sui campi contatore e quindi un recordset basato una SELECT su quel campo non so' che problemi puo dare.
In caso di omonimia il recordset (filtrato o creato con la select) genera 2 (o piu') record. A questo punto l'unicivocita' dovrebbe essere mantenuta anche nella visualizzazione

Cmq bastava collegare la listbox al recordset, e al click visualizzare il record del recordset stesso (dal momento che il puntatore e' dinamico la listbox lo aggiorna per i fatti suoi), ma dal codice postato pare nn sia stato fatto cosi'.

personalmente penso che questo "problema" abbia piu' di una soluzione (come quasi tutti quelli legati alla programmazione)