Interazione con un DB e filtro dati tramite ComboBox e CommandButton

[Aneodrea]

Ciao

Sto creando un progetto in vb6..ma non riesco a venire a capo di un intoppo

Ho un DB con 2 tabelle:
Una "anagrafica" (con Nome_Cognome come chiave primaria) e una tabella "trattamenti" (con collegamento uno a molti)

Le tabelle sono composte come segue:

"Anagrafica"
Nome_Cognome
Via
telefono
codice fiscale

"trattamenti"
Nome_Cognome
Tipo trattamento
Pacchetto da
Sedute restanti
Sedute effettuate

Il collegamento uno a molti è perchè una persona deve essere registrata prima sotto "anagrafica" e poi si inserisce N record con tipi trattamenti diversi che sono 6 ma non si possono ripetere

A me serve poter tramite un command di ricerca poter trovare il nome della persona ed elencare in una combo tutti i trattamenti che ha da fare che in base alla scelta della combo cambiano tutti gli altri dati.Ma naturalmente se assegno "tipo trattamento" in una text mi da solo il primo
Un'altro problema è il poter sempre (tramite un command) modificare i 3 campi Pacchetto da,
Sedute restanti e Sedute effettuate..in poche parole devo prendere il valore delle "sedute effettuate" +1, poi sottrarre il totale ricevuto a "pacchetto da" e il risultato riportarlo nel campo "sedute restanti" ma anche questo problema non sono riuscito a risolvere

Sto provando sia con DataEnvironment che con Adodc ma non riesco il modo per poterlo fare

Grazie per la pazienza

Aneodrea

[Aneodrea]

Nessuno sa aiutarmi?

Aneodrea

[EngLab]

Originariamente inviato da Aneodrea
A me serve poter tramite un command di ricerca poter trovare il nome della persona ed elencare in una combo tutti i trattamenti che ha da fare che in base alla scelta della combo cambiano tutti gli altri dati.Ma naturalmente se assegno "tipo trattamento" in una text mi da solo il primo

Ti da solo il primo sicuramente perchè tu punti la lettura del Recordset solo sul primo dato. Giusto?

[Aneodrea]

Esattamente..ma non so come poterlo puntare su tutti i trattamenti che ha una determinata persona..mi potresti aiutare?

Aneodrea

[EngLab]

E' semplice.. Dunque.. Dato un Recordset chiamato recDati e l'array Trattamenti() dove verranno memorizzati i trattamenti:

recDati.MoveFirst 'Punta al primo dato
ReDim Trattamenti (1 To recDati.RecordCount) 'Ridimensiona l'array da 1 a tutti i valori nel Recordset
For i = 1 To recDati.RecordCount 'Da 1 a tutti i valori nel Recordset
Trattamenti(i) = recDati.Fields("[Tipo trattamento]"
recDati.MoveNext
Next i

Ed ecco qui...

[Aneodrea]

Scusa l'inesperienza ma dove questi comandi vanno nella combobox?

e poi da un primo approccio queste istruzioni servono per avere tutti i record del campo trattamenti..invece a me servirebbe avere sulla combo solo i trattamenti che ha una determinata persona..

es..se io ho la lampada faccia e la doccia e tu hai solo il trattamento ristrutturante se cerco il mio nome nella combo deve comparire solo lampada facciale e doccia e se cerco te solo il trattamento ristrutturante..nel mio caso dovro selezionare la voce che mi interessa e di conseguenza il cambio degli altri dati..spero di non essere stato confusionaro

Aneodrea