[vb6] dataGrid + Form

[beppenet]

ciao raga...sono al 4°giorno di utilizzo di VB6...quindi abbiate pazienza! :tongue:



come da figura, ho un dataGrid a sinistra e un form a destra che
vorrei popolare dopo aver cercato un nome; la ricerca è una semplice select con like, ma io vorrei che nel DataGrid comparissero tutti i
record trovati visualizzando solo 2 campi della TB, mentre nel form comparisse il recordset trovato con tutti i campi della TB....
...poi magari cliccando sui vari record del dataGrid dovrebbe ovviamente cambiare il contenuto del Form a destra!

ho provato utilizzando SHAPE così:

rs.Open "SHAPE {select IdCliente, DenominazioneCliente, referente, note from cliente where DenominazioneCliente like " & testo1 & "} AS tanto APPEND ({select IdCliente, DenominazioneCliente from cliente where DenominazioneCliente like " & testo1 & "} AS poco) AS poco", cn, adOpenStatic, adLockOptimistic

quando faccio: Set DataGrid1.DataSource = rs("poco").UnderlyingValue lui mi restituisce nel DataGrid solo la prima occorrenza e non tutte quelle trovate!

:master: come fo...oppure sto esagerando??

[ciro78]

senti non so se posso aiutari ma il fatto è che non ho capito niente

[beppenet]

vorrei solo che nel dtaGrid visualizzasse 2 campi e nel form 3 o 4 campi ! e che dalla ricerca il dataGrid si popolasse di tutte le occorenze trovate!

ti posto il mio codice:

testo1 = "'%" & TxtFndCliente.Text & "%'"

   
    'definizione della query
query = "SHAPE {select IdCliente, DenominazioneCliente, referente, note from cliente where DenominazioneCliente like " & testo1 & " } AS tanto APPEND ({select IdCliente, DenominazioneCliente from cliente where DenominazioneCliente like " & testo1 & " } AS poco RELATE IdCliente TO IdCliente) AS poco"
    
   
    rs.Open query, cn, adOpenStatic, adLockOptimistic
      
    'visualizza rs nel form
    Set txtDesCliente.DataSource = rs
        txtDesCliente.DataField = "DenominazioneCliente"
    Set txtRef.DataSource = rs
        txtRef.DataField = "referente"
    Set txtNoteCliente.DataSource = rs
        txtNoteCliente.DataField = "note"
        
    'visualizza rs nel datagrid
    Set DataGrid1.DataSource = rs("poco").UnderlyingValue

[beppenet]

la cosa funzionerebbe così:

come vedi nel DataGrid ho solo 2 campi mentre nel Form 3...solo che il DataGrid si ferma alla prima occorrenza!

[ciro78]

ma per popolorae il datagrid di tutti gli elelemti devi usare un ciclo se no è chiaro che ti prende solo il primo perchè tu non gli dici di fare il resto!

[beppenet]

mi faresti un esempio?... :quipy: chiedo troppo he??

[ciro78]

beh l'esempio è complesso

io faccio in genere così

I = 2
do while not recset.eof

carico tabella o flex grid

i=i+1
recset.movenext
loop

recset è il recordset ovviamente
spero di esserti stato utile

[beppenet]

:metallica ok...provo subito !

grazie !