[VB6] ComboBox e DB

[Poker32]

ciao,

ho un problema con una combobox,

vorrei riempirla con dei valori di un bd, e questo riesco a farlo.
il problema è che vorrei poter associare a ogni valore della combobox un secondo campo del db.

cioè:

il campo che leggo e che viene visualizzato nel db è:
utente

quando si selezionerà un utente dalla combobox dovrei poter avere a disposizione oltre al campo utente anche il campo id collegato all'utente selezionato.

mi date una mano?

Ciao, Poker32!

[allejo]

Supponiamo che il tuo db è composto dai 2 campi

id e nome

nella combo dovresti aggiungere questi due campi.Cioè

combo.additem  db!nome & space(100) & db!id

così hai il campo id un pò invisibile.

Quando selezioni una combo dovresti estrarre solo il valore id

code_id=right(combo.text,10)

e così hai il valore dell'id selezionato

[Poker32]

ok,
ma non esiste una funzione della combo che permetta di salvare automaticamente l'id e poi restituirlo in base al nome selezionato?

[ladyBlu]

Originariamente inviato da Poker32
ok,
ma non esiste una funzione della combo che permetta di salvare automaticamente l'id e poi restituirlo in base al nome selezionato?

Per fare questa cosa dovresti utilizzare l'oggetto DataCombo che si lega automaticamente alle colonne del database specificate.
Questo oggetto lo trovi in:
Menù Progetto --> Componenti --> Microsoft DataList Control 6.0

[allejo]

Originariamente inviato da Poker32
ok,
ma non esiste una funzione della combo che permetta di salvare automaticamente l'id e poi restituirlo in base al nome selezionato?

Spiegati meglio!

Non va bene come ho postato?
Così selezionando la combo puoi estrarre il valore id facendo

code_id=right(combo.text,10)

[Poker32]

come si utilizza?

mi puoi dire come realizzare questa operazione?

[ladyBlu]

Originariamente inviato da Poker32
come si utilizza?

mi puoi dire come realizzare questa operazione?

Se la tua domanda era rivolta a me, eccoti un esempio.
In un form inserisci un DataCombo e un CommandButton.
Dichiara una variabile adoConn e apri la connessione al tuo db.
Sull'evento Click del bottone scrivi questo codice:

Private Sub Command1_Click()
  Dim adoRs As New ADODB.Recordset
  Dim strSql As String

  strSql = "Select * from NomeTabella"
  Set adoRs = adoConn.Execute(strSql)
        
  Set DataCombo1.RowSource = adoRs
  DataCombo1.BoundColumn = "ID"   'campo ID da nascondere
  DataCombo1.ListField = "Valore" ' campo da visualizzare
  DataCombo1.Refresh
End Sub

[Poker32]

ok,
questo serve per creare e caricare la list,

ma per risalire al valore dell'id corrisp al nome visualizzato come si fa?

[ladyBlu]

Originariamente inviato da Poker32
ok,
questo serve per creare e caricare la list,

ma per risalire al valore dell'id corrisp al nome visualizzato come si fa?

devi usare l'evento Change e leggere il valore contenuto in BoundText.
Tieni presente che il valore restituito è una stringa.

[Poker32]

ok, funziona benissimo

grazie