VB6 - Copiare lista da un combobox un'altra

[Pinco Pallino 2]

Ciao come faccio a copiare una lista di una combobox?

io ho combo1 che riempio caricando dati da database, siccome vorrei ke la mia combo sia STYLE 3 (dropdown list) ma non mi fa caricare dati da database se selezione questo style allora ho creato combo1 che è style 0 (Dropdown combo) la popolo caricando da database e poi vorrei copiare la lista appena creata nella combo2 (che invece è style dropdown list) solo che nn ci riesco...

ho provato con:

combo2.list=combo1.list

Ma nn va!

Mi va bene anke se qualcuno conosce il metodo per caricare i campi da un Database nella combo dropdown list (anzi è anke meglio)

CIAO!

[web@web]

io uso vb.net ma più o meno è so stesso.
1) per copiare i dati:

dim cnt as integer
for cnt = 0 to combo1.items.count
combo2.items.add(combo1.items.item(cnt))
next cnt


2) per caricare i dati direttamente nella combo prova da codice a impostare lo STYLE che ti permette di fare l'operazione e dopo aver caricato i dati reimposta lo STYLE che vuoi...

[Pinco Pallino 2]

il bello è che se uso il componente adodc funge...solo che io navigo via codice il database

[xegallo]

Originariamente inviato da Pinco Pallino 2
il bello è che se uso il componente adodc funge...solo che io navigo via codice il database

io giuro che non ti capisco quasi mai

[Pinco Pallino 2]

Beh se per questo nemmeno io a te! (ma credo ke i motivi siano diversi )

Allora mi spiego meglio!

Io accedo e edito il database tramite ADO e tutto via codice, e così nn mi permette di popolare la combo se lo style è su 2:

es:

do until mioRecordset.EOF
      combo1.Additem mioRecordset("mioCampo")
      mioRecordset.moveNext
      LOOP

Così nn me lo fa fare, (a meno che la combo non abbia lo style impostato su 0)

se invece uso il componente ADO DATA CONTROL e uso il codice di su (con la differenza ke invece ke mioRecordset metto adodc1.recordset) mi popola la combobox anke se è su style 2....

Io di norma non uso il componente perchè poi mi incasino per i salvataggi dei nuovi records (mi da errore, ecc ecc) quindi uso codice!

[xegallo]

non mi risulta che lo style a 2 impedisca l'inserimento

[Pinco Pallino 2]

eppure lo fa...se vuoi ti posto il codice che uso per la connessione!

[xegallo]

Originariamente inviato da Pinco Pallino 2
eppure lo fa...se vuoi ti posto il codice che uso per la connessione!

non serve che lo posti

io per esempio una combo stile 2 la carico normalmente così

Private Sub CaricaCombo()
On Error GoTo OUT

    gs_Sql = ""
    gs_Sql = gs_Sql & "SELECT U.TIPUNIT  " & vbCrLf
    gs_Sql = gs_Sql & "     , U.DESUNIT  " & vbCrLf
    gs_Sql = gs_Sql & "     , A.FLGDFT    " & vbCrLf
    gs_Sql = gs_Sql & "  FROM DEPO.VTBTPUT2 AS U    " & vbCrLf
    gs_Sql = gs_Sql & "     , DEPO.VTBLVUT1 AS A  " & vbCrLf
    gs_Sql = gs_Sql & " WHERE A.TIPUNIT = U.TIPUNIT  " & vbCrLf
    gs_Sql = gs_Sql & "   AND A.PROVUNIT = '" & s_Lavor & "'   " & vbCrLf
    gs_Sql = gs_Sql & "   AND U.CODAPST = " & e_apst & vbCrLf
    gs_Sql = gs_Sql & "ORDER BY A.FLGDFT DESC, U.TIPUNIT  "
    
    Combo1.Clear
    
    Set Rs = OpenRecordset(gs_Sql)
    If Not (Rs.BOF And Rs.EOF) Then
        Do Until Rs.EOF
            Combo1.AddItem Rs!Tipunit & " - " & Rs!Desunit
            Rs.MoveNext
        Loop
    End If
    Rs.Close
    Set Rs = Nothing
Exit Sub
OUT:
    Combo1.Clear
    Call GestErrore(Me.Name & ".CaricaCombo")
End Sub

[Pinco Pallino 2]

Nn ci ho capito nulla! VVoVe:

Io di solito faccio così:

Do Until rsRecordSet.EOF
combo1.AddItem rsRecordSet("categoria")
rsRecordSet.moveNext
Loop

Ma funziona solo con combo su style 0!

[Pinco Pallino 2]

Non ho capito xkè ma ora mi funziona..!!

Avrei un'altra domanda sempre inerente!

Io ho un campo nel database chiamato categoria (Che poi è quello ke carico nella combobox). Li vanno inserite varie categorie a sua scelta.
Ce n'è già una inserita di default ke è TUTTE e che non è possibile eliminare! Come faccio io a metter quel valore di default nella combo? Cioè...non posso usare li LISTINDEX perchè non so quale posizione assumerà dopo le aggiunte dell'utente (è in ordine alfabetico) e non posso usare
combo.text="tutte" perchè su style 2 non me lo fa fare!

Insomma la domanda è:
COME METTO L'ITEM CHE VOGLIO IO VIA CODICE SE NON NE CONOSCO IL LISTINDEX? :master:
Grazie