[VB6] Estrarre indice con ComboBox

[Luke(BI)]

Ciao io avrei fatto in una maniera più semplice prova questa
ricorda inoltre di settare la priprietà style su "2 - dropdownlist"

Private Sub Form_Load()
cn.Open strConn
strSQL = "SELECT DISTINCT Nome,IdNome FROM tabella1"
rs.Open strSQL, cn



Do Until rs.EOF
cmbbox.AddItem rs("Nome").Value & space(150) & rs("idNome").Value


rs.MoveNext
Loop

rs.Close

End Sub



Private Sub cmdCerca_Click()

strSQL = "SELECT DISTINCT File FROM tabella2 " & _
" WHERE IdNome='" & mid(cmbbox,150) & "'"

rs.Open strSQL, cn
Do Until rs.EOF
Text1.AddItem rs("File")
rs.MoveNext
Loop
rs.Close


End Sub

fammi sapere ciauuuuuu

[Jupy64]

Originariamente inviato da Luke(BI)
Ciao io avrei fatto in una maniera più semplice prova questa
ricorda inoltre di settare la priprietà style su "2 - dropdownlist"

Private Sub Form_Load()
cn.Open strConn
strSQL = "SELECT DISTINCT Nome,IdNome FROM tabella1"
rs.Open strSQL, cn



Do Until rs.EOF
cmbbox.AddItem rs("Nome").Value & space(150) & rs("idNome").Value


rs.MoveNext
Loop

rs.Close

End Sub



Private Sub cmdCerca_Click()

strSQL = "SELECT DISTINCT File FROM tabella2 " & _
" WHERE IdNome='" & mid(cmbbox,150) & "'"

rs.Open strSQL, cn
Do Until rs.EOF
Text1.AddItem rs("File")
rs.MoveNext
Loop
rs.Close


End Sub

fammi sapere ciauuuuuu

Oddio.. io penso che le cose più semplici, dove possibile, siano quelle di usare gli oggetti che si hanno e le loro proprietà. In questo caso la comboBox ha il bellissimo metodo ItemData che funge proprio a quello che serve a vicky senza ricorrere a sotterfugi come la concatenazione di stringe e la scomposizione quando servono..che porta via più tempo che altro!

[Jupy64]

Originariamente inviato da vicky
Ciao, ti ringrazio perché continui ad aiutarmi.
Io ho inserito il tuo ultimo codice ma ottengo un errore che si ferma a questa riga:

 Image1(I).Picture = LoadPicture(pathImage & rs!NomeFile & ".bmp")

Il testo dell'errore è:

Errore di run-time '3021':

Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.

??

Ciao, quel problema è dovuto dal fatto che il recorset non contiene niente.. e guardando bene, effettivamente la testa del ciclo è sbagliata, in quanto il ciclo While entra sempre per vero.
Pertanto la condizione del ciclo riscrivila cosi:
Do While Not rs.EOF

[vicky]

Non so più che fare, adesso mi dà errore la stringa:

Load Image1(I)

L'errore è:

Errore di run-time '13':
Tipo non corrispondente.

Prima avevo inserito:

Dim I As Integer

perché mi diceva variabile non definita.

???

[Jupy64]

ehm.. bhe si.. io ho omesso la dichiarazione delle variabili.. ma è scontato (soprattutto se si usa l'opzione Option Explicit) farlo (almeno per me)..
Ma tu hai inserito un oggetto Image sulla tua form e si chiama Image1???
e ricordati che all'oggeto image che inserisci nella form, alla proprietà Index devi mettere zero.

[oregon]

Scusa vicky, non te la prendere, ma tu sai programmare in VB?

Perche' non puoi affrontare la scrittura di un programma simile senza le basi ...

Non fraintendere, il mio vuole essere un consiglio ...

Perche' non ti fermi un attimo e studi da un libro di programmazione di base di VB ? Sicuramente recupereresti il tempo impiegato nello studio con un numero minore di problemi e di dubbi ...

[vicky]

Hai ragione. Di libri ne ho due : uno che spiega come costruire i gestionali e l'altro è il Balena (un volumone) ma sinceramente ho capito che se io non mi metto a fare qualcosa di pratico che mi serve veramente provando a programmarlo in vb6 non imparo nulla. E' grazie ha questi continui tentativi (ci dedico molte ore) che alla fine capirò qualcosa, non studiando a memoria i metodi e le proprietà. Mi rendo conto che sono una "rottura" per chi incappa nei miei post, ma potete anche ignorarli perché non mi offendo.

[oregon]

No, non sei una rottura ...

Ma stai sbagliando approccio ...

Non devi imparare a memoria ... non devi usare il forum come se fosse un libro ...

Se hai un dubbio, cerca nel libro e prova quanto c'e' scritto ...
Vai avanti al prossimo punto cosi' ...

Solo se ti blocchi per una notte intera, chiedi nel forum indicando cosa hai "imparato" dal libro e cosa non ha funzionato ...

E soprattutto ... lavora su un progetto semplice, lavora sui singoli componenti, sui metodi e proprieta' di base che devi conoscere "a menadito" ...!

Ciao