[VB] Problema accodamento record

[lelle]

Buongiorno a tutti, stamattina mi è capitato fra capo e collo un problemino niente male.
Vengo al dunque.
Ho una query con due campi:
Campo1: Categoria
Campo2: Incrementa

Dovrei fare la seguente cosa:
Leggere il Valore Incrementa, se questo è zero passo al record successivo. Se incrementa è >0 devo effettuare un ciclo che prende Il valore (tipo testo) Categoria e me lo va ad incollare in una tabella denominata appoggio tante volte quant'è il valore incrementa.
Faccio un esempio .

Questo è il risultato della query:
---------------------------------
|CATEGORIA|INCREMENTA |
---------------------------------
|Categoria1| 2 |
---------------------------------
|Categoria2| 0 |
---------------------------------
|Categoria3| 3 |
----------------------------------

Quello che voglio Controlla Incrementa, è >0? Si è 2 allora accoda Categoria 1 alla Tabella appoggio per due volte, vai al record successivo, Incrementa è zero passa al terzo, Incrementa è 3 quindi accodi ad appoggio il testo Categoria3 per tre volte

Tabella appoggio
-----------
|CATEGORIA|
-----------
|CAtegoria1|
------------
|CAtegoria1|
------------
|CAtegoria3|
------------
------------
|CAtegoria3|
------------
------------
|CAtegoria3|
------------

Mi potete aiutare a realizzare questa cosa, esiste altro modo?
Grazie
Lelle

[Johnny_Depp]

esiste il forum specifico per il Visual Basic.

[cik]

apri due recordset, uno sulla query (recset1) e l'altro sulla tabella appoggio (recset2).
poi con un while scorri tutti i record di recset1 e all'interno del ciclo metti un'altro ciclo dove aggiungi i record alla tabella appoggio

While not recset1.eof
  for i=0 to recset1!Incrementa
    with recset2
      .add
      !categoria=recset1!Categoria
      .update
    end with
  next i
  recset1.movenext
wend