[vb6] Data1 & Combo.addItem come?

[x69asterix]

Ciao a tutti,
come posso fare a popolare una combo1? con AddItem, allora praticamente quello ke voglio fare è far popolare la combo con tutti i nomi presente nel db, il combo lo ho associato ad un controllo data1 collegata ad una tabella.mdb con tutti i nomi presenti nel db, xò è kiaro ke se navigo con data1, la combo mi fà vedere un nome alla volta, invece a me serve vederli tutti dentro.

[axsw]

lascia perdere la combo1 fai così
io uso un listBox ma con un comboBox non dovrebbe cambiare nulla

Option Explicit
Dim mydata As Database
Dim myrecord As Recordset

Private Sub Form_Load()
  Set mydata = OpenDatabase(App.Path + "\" + "tuodatabase.mdb")
    Set myrecord = mydata.OpenRecordset("tuatabella")
     If myrecord.EOF Then
    MsgBox "Nessun nome nel database di questo Sistema", vbInformation, "nomedeltuoprogramma"
     Else
     myrecord.MoveFirst
        Do Until myrecord.EOF
        combo1.AddItem myrecord.Fields("tuocampo")
        myrecord.MoveNext
    Loop
   End If
    mydata.Close

Probabilmente ti serve anche fare un refresh di caselle di testo quando l'utente fà click nel combo1 e si fà così

Private Sub combo1_Click()
    On Error Resume Next
        Set mydata = OpenDatabase(App.Path + "\" + "tuodatabase.mdb")
        Set myrecord = mydata.OpenRecordset("tuatabella")
        myrecord.MoveFirst
        Do Until myrecord.EOF
            If combo1.Text = myrecordc!tuocampo Then
' Da quì in poi ci sono textBox che uso io, tu cambiale con le tue
                txtnomec.Text = myrecordc!nome
                txtforc.Text = myrecordc!fornitore
                txtcodc.Text = myrecordc!cod
                txtfiniturac.Text = myrecordc!finitura
                txtnotec.Text = myrecordc!misure
                txtprc.Text = myrecordc!prezzo
                txtdatac.Text = myrecordc!Data
                txtscontoC.Text = myrecordc!sconto
                End If
            myrecord.MoveNext
        Loop
 End Sub

Ciao.

[x69asterix]

Ciao,
ma in questo modo, all'apertura del form mi dovrei già trovare la combo popolata senza fare nessuna operazione?

[axsw]

Esatto invece se non vuoi popolare col form onload
taglia il codice e incollalo dove preferisci.
Ciao.

[x69asterix]

ok,
+ tardi mi metto a lavoro, ancora una delucidazione x quanto riguarda:
myrecord
mydata
ti riferisci a Data1.

[axsw]

No non mi riferisco al Data1
In pratica con quel codice fai a meno del data1.

Fai attenzione ho commesso un errore quì
If combo1.Text = myrecordc!tuocampo Then
If combo1.Text = myrecord!tuocampo Then
Quello rosso è sbagliato c'è una "c" di troppo

[x69asterix]

Originariamente inviato da axsw
No non mi riferisco al Data1
In pratica con quel codice fai a meno del data1.

Fai attenzione ho commesso un errore quì
If combo1.Text = myrecordc!tuocampo Then
If combo1.Text = myrecord!tuocampo Then
Quello rosso è sbagliato c'è una "c" di troppo

ok, complimenti funziona!
esiste un modo x allungare la finestra del combo?
non sò se hai letto i miei post un pò + giù, ho difficoltà a creare un report di selezione, mi spiego, il report li creo con DataEnvironment1 e DataReport1, xò oltre il lavoraccio ke c'è da fare mi fa vedere tutti i miei record, esiste un modo x selezionarli x reparto?, poi toglimi una curiosità visto ke con access i report sono belli e pronti esiste un modo di richiamarli?