[VB6] Estrarre indice con ComboBox

[vicky]

Allora, il mio problema è questo:
Sto costruendo un programma che si collega ad un db Access.
Tramite query ottengo i valori per riempire una combobox

Do Until rs.EOF
    Me.cmbBox.AddItem rs("Nome")
    rs.MoveNext
   Loop

L'utente seleziona uno di questi valori.
L'indice corrispondente entra a far parte di una seconda query che permette la visualizzazione di uno specifico file immagine.

Domanda: come faccio a reperire IdNome per inserirlo nella seconda query? (ho fatto già vari tentativi che sono andati a vuoto, ho anche provato con un array)

Grazie per qualsiasi suggerimento!

[oregon]

Non ho capito bene, ma intendi

cmbBox.ListIndex

?

[vicky]

Non so se è quello che dici tu perché sto imparando: quello che ti posso dire è che tramite la prima query io estraggo due valori:

Tabella1.IdNome
Tabella1.Nome

Il valore Nome deve andare nella combo così l'utente fa la sua scelta. Per fare la seconda query, però mi serve IdNome perché la tabella che interrogo ha

Tabella2.File
Tabella2.IdNome

dove Tabella1.IdNome=Tabella2.IdNome


E' abbastanza chiaro? Grazie

[oregon]

Ah ... adesso mi e' chiaro ...

Quindi devi scrivere

Do Until rs.EOF
cmbBox.AddItem rs("Nome").Value
cmbBox.ItemData(cmbBox.NewIndex) = rs("IdNome").Value

rs.MoveNext
Loop

per trovare nell'array ItemData il valore dell'IdNome corrispondente.

[vicky]

Scusa se insisto ma nella seconda query cosa devo scrivere per pescare dall'Array ItemData il valore di IdNome?

WHERE IdNome=?

[oregon]

Dopo aver modificato il ciclo come ti ho detto, puoi scrivere

" ... WHERE IdNome=" & CStr(cmbBox.ItemData(cmbBox.ListIndex))

[vicky]

Mi dà errore:

Errore di run-time '381'
Indice della matrice di proprietà non valido

Cosa significa?

[oregon]

Significa che non hai inserito il codice che ti ho proposto nel ciclo ...

[vicky]

L'ho ricontrollato: è identico

Private Sub Form_Load()
    cn.Open strConn
    strSQL = "SELECT DISTINCT Nome,IdNome FROM tabella1"
    rs.Open strSQL, cn
    
    
    
    Do Until rs.EOF
    cmbbox.AddItem rs("Nome").Value
    cmbbox.ItemData(cmbbox.NewIndex) = rs("IdNome").Value

    rs.MoveNext
    Loop

    rs.Close
   
End Sub



Private Sub cmdCerca_Click()

strSQL = "SELECT DISTINCT File FROM tabella2 " & _
" WHERE IdNome='" & CStr(cmbbox.ItemData(cmbbox.ListIndex)) & "'"

rs.Open strSQL, cn
Do Until rs.EOF
    Text1.AddItem rs("File")
    rs.MoveNext
    Loop
    rs.Close


End Sub

??

[oregon]

Che significa

Text1.AddItem

? (AddItem non vale per il Textbox)

Perche' hai messo le virgolette nella query ? IdNome e' un valore numerico ...


Anche se quelli indicati non sono causa dell'errore ...

Quando ti appare l'errore? (subito all'avvio, se fai una ricerca ...)

Qual e' il contenuto del database ?