Newsgroup: it.comp.lang.visual-basic
Titolo: Non mi sono spiegato forse....allora

ho un db con dei campi codice e descrizione.
ho dei controlli combobox che ho chiamato combo1 e che visualizzano il
codice, ho anche delle textbox che devono visualizzare la descrizione
associata al codice che vado a selezionare nella combo.
io ho fatto in questo modo:
Private Sub Combo1_LostFocus(Index As Integer)
Dim cmd As QueryDef
 Text1.Item(Index).Text = "SELECT Descrizione From Prodotti WHERE (Codice
='" & Combo1(Index).Text & "')"
End Sub
Private Sub Form_Load()
'Imposta i valori per la VscrollBar
VScr.LargeChange = 30
VScr.SmallChange = 10
VScr.Max = 2700
VScr.Min = 0
  Dim db As Connection
  Set db = New Connection
  'apro la connessione con la fonte di dati
  db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=C:\\stella.mdb;"
  'creo l'oggetto recordset
  Dim rs As Recordset
  Set rs = New Recordset
  rs.Open "select Codice,Descrizione,Note from Prodotti", db, adOpenStatic,
adLockOptimistic
'Indica lo stato della connessione con un msg nella barra di stato
If db.State = adStateOpen Then
    fMainForm.sbStatusBar.Panels(1).Text = "Stato: Connesso al Database"
Else
    fMainForm.sbStatusBar.Panels(1).Text = "Stato: Non connessione al
Database"
End If
' dichiaro una variabile contatore per popolare la matrice delle comboBox
Dim i As Variant
'Aggiungo i valori nelle 12 ComboBox
For i = 0 To 11
'legge i valori dal campo codice e li mette in Combo1
Do While Not rs.EOF
Combo1.Item(i).AddItem rs.Fields("Codice").Value
rs.MoveNext
Loop
' Ripristino l'oggetto recordset
rs.MoveFirst
'fine inserimento
Next i
ora il mio problema è che quando la combo perde il focus la textbox deve
visualizzare il campo associato al codice articolo.
es.
codice 1   descriz. insalata
codice 2  descriz. melanzane
codice 3  descriz. peperoni
se nella combo scelgo  2 nella text box mi deve comparire melanzana
a me invece compare il valore della combox che ho selezionato con tutta la
query
Scusate se mi sono dilungato ma mi sto scimunendo.

codice 3  descriz. peperoni
Be' qui il text box non ti serve piu'.
Se poi ti devi recuperare il codice corrispondente al prodotto selezionato:
rs.MoveFirst 
rs.Move Combo1.ListIndex
mioCodice = rs!Codice
zac ! automagicamente(*) ecco il codice cercato ;-)
ciao, hal
(*) espressione rubata sfrontatamente ad *Alessandro*

a proposito: la prossima volta cerca di usare un subject decente !
(leggiti il manifesto del newsgroup su 
http://it-lang-vb.net/
)
ciao, hal

Non so se tu ti sia spiegato bene prima, cmq con questo topic certo cominci
male...
Leggi
[!] Titolazione messaggi - Come creare un topic
Mio post di non molto tempo fa replicato oggi in
Re: Ci sa come si fa e' un GENIO!!
Potrebbe esserti di aiuto per trovare aiuto...
Personalmente i topic senza senso (aiutooo, !!! et similia) li CASSO a
prescindere.
Ciaotutti,
Alessandro

che fai, gli assegni il testo della query invece del risultato ?
Infatti nella mia risposta gli avevo tolto il (index), che non ci va
:)
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro RomagnoloŽ, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-VI --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD