[VB 6] 2 Combo=>2 connessioni?

[Fado84]

salve ragazzi, ho 2 o + datacombo in un form, se voglio connetterle a tabelle differenti di uno stesso db simultaneamente come faccio?
ho provato a sfuttare gli eventi tipo click,.. ma facendo così si connette ogni volta che clicco e non va bene..

grazie mile!!

[b.lory]

la connessione cn è una connessione a livello pubblica

Dim rsspese As ADODB.Recordset      ' creo oggetto x db spese
Dim rsmillesimi As ADODB.Recordset  ' creo oggetto x db millesimi
Set rscategoria = New ADODB.Recordset
Set rsmillesimi = New ADODB.Recordset
rscategoria.Open sql_categoria, cn, adOpenKeyset, adLockOptimistic, adCmdText
rsmillesimi.Open sql_millesimi, cn, adOpenKeyset, adLockOptimistic, adCmdText

Function riempi_categoria()
On Error GoTo errore

If rscategoria.RecordCount >= 1 Then
    rscategoria.MoveFirst
    cmbcategoria.Clear
    Do Until rscategoria.EOF
    cmbcategoria.AddItem rscategoria("desc_cat")
    cmbcategoria.ItemData(cmbcategoria.newIndex) = rscategoria!ID
    rscategoria.MoveNext
    Loop
End If
'    rscategoria.Close
Exit Function
errore:
    MsgBox "Errore n. " & Err.number & ": " & Err.Description
    
End Function

Function riempi_tabella()
On Error GoTo errore

If rsmillesimi.RecordCount >= 1 Then
    rsmillesimi.MoveFirst
    cmbtabella.Clear
    cmbtabella.AddItem ""
    Do Until rsmillesimi.EOF
    cmbtabella.AddItem rsmillesimi("desc_mill")
    cmbtabella.ItemData(cmbtabella.newIndex) = rsmillesimi!ID
    rsmillesimi.MoveNext
    Loop
End If
 '   rsmillesimi.Close
Exit Function
errore:
    MsgBox "Errore n. " & Err.number & ": " & Err.Description

End Function

spero che ti vada bene come esempio
Ciao

[Fado84]

Ho provato.. ma sbaglio qualcosa..

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\Italia.mdb"
Dim RsData2 As ADODB.Recordset
Dim sql As String
sql = "SELECT * FROM Prodotti ORDER BY Prodotti"
Set RsData2 = New ADODB.Recordset
RsData2.Open sql, Adodc1, adOpenKeyset, adLockOptimistic, adCmdText
Set DataCombo2.RowSource = RsData2
DataCombo2.ListField = "Prodotti"

grazie!

[b.lory]

Set DataCombo2.RowSource = RsData2
DataCombo2.ListField = "Prodotti"

.... :master: .. non capisco cosa ti servono queste 2 righe di codice.
una volta che hai creato l'oggetto connection e il recordset
ti basta prendere l'esempio che ti ho postato e adattarlo alla tua necessita.. es:

If RsData2 .RecordCount >= 1 Then
    RsData2 .MoveFirst
    DataCombo2.Clear
    Do Until RsData2 .EOF
    DataCombo2.AddItem RsData2 ("Prodotti")
    DataCombo2.ItemData(DataCombo2.newIndex) = RsData2!ID 
    RsData2 .MoveNext
    Loop
End If

quello in rosso gli passo il campo contatore id per avere un collegamento corretto !!!
ciao

[Fado84]

con quelle 2 righe li, io mi carico la datacombo senza nessun ciclo

[b.lory]

... si ok.. !!! ma non hai nemmeno nessun controllo aggiuntivo su quello che vuoi caricare
!!!!!
Ciao

[Fado84]

quindi se uso 2 o più combo l'unico modo per caricarle è esuguire un ciclo? non si può più usare rowsource e listfield?

[b.lory]

:master: .... ma sinceramente io ho sempre usato il metodo che ti ho descritto in precedenza e mi sono sempre trovato bene !!! Sia x quanto riguarda un maggiore controllo nell'inserimento della combo sia quando devi rilevare un'altra relazione quando l'utente seleziona una voce dalla combo !!!!(ItemData).
e sinceramente non capisco che duppio tu possa avere x utilizzare un ciclo !!!!
(chiaramnte se deve caricare 5000 records gli puoi dare un range)
ciao

[Fado84]

ma passandogli una query mi trovavo meglio nel senso che mi tirava fuori quello che volevo..
cmq adesso mi faccio il ciclo..

[b.lory]

..... ma la query la passi ugualmente !!!!
poi il ciclo lo utilizzi x avere un maggiore controllo !!!