[VB6] Copia dati da tabella a tabella con ciclo

[den87]

ciao a tutti.. spero d aver azzeccato titolo e sezione.
spiego il mio problema.

ho una tabella di nome "valori" in access con i rispettivi campi: x, y, z
ora se voglio aggiungere del testo passato per una textbox nel campo della tabella scrivo il seguente codice:

rs.Open "tabella", db
rs.AddNew
rs("x") = Text1.Text
rs.Update


tutto fila liscio.
il mio problema è questo..
tramite checkbox io voglio che in automatico a tutti e i campi, quindi x,y,z, (in questo caso 3, ma deve esser dinamico ) venga assegnato il valore di text1 , se essa è checcata (quindi vale 1), come da esempio precedente.
dovrei sicuramente fare un ciclo che faccia una query al db inizialmente, chiedendo ad quanti e quali sono i campi della tabella e poi eseguire il resto.
il problema è che riesco a realizzare la query ma non son pratico di cicli in vb6.
chiedo una mano. ringrazio anticipatamente!

[gibra]

Originariamente inviato da den87
tramite checkbox io voglio che in automatico a tutti e i campi, quindi x,y,z, (in questo caso 3, ma deve esser dinamico ) venga assegnato il valore di text1 , se essa è checcata (quindi vale 1), come da esempio precedente.

Molto semplice:

    rs.Open "tabella", db
    rs.AddNew
    rs("x") = Text1.Text 
    If Check1.Value = vbChecked Then
        rs("y").Value = Text1.Text
        rs("z").Value = Text1.Text
    End If
    rs.Update

[den87]

ciao gibra e grazie per l'aiuto. mi sono espresso male come temevo... provo a riformulare il tutto in maniera piu chiara!.

allora ho una tabella "persone" che contiene 1 solo campo chiamato "nome".

in campo "nome" ho un numero x di utenti registrati.
ora voglio far questo.

un altra tabella chiamata "persone2" , sempre con campo "nome".

io voglio far si che tramite un ciclo, in tabella "persone2" (la seconda tabella in pratica), nel campo "nome" mi salvi il risultato di questa query:

"selezionami tutti i nomi della tabella persone" ossia "select nomi from persone".

una cosa del genere..

INIZIO CICLO CON QUERY

rs.Open "persone2", db
rs.AddNew
rs("nome") = 'risultato della query
rs.Update

RI-CICLA...

fine ciclo

[Grumpy]

Originariamente inviato da den87
provo a riformulare il tutto in maniera piu chiara!.

Temo che tu non ci sia riuscito. Per esempio, cosa significa...

Originariamente inviato da den87
in campo "nome" ho un numero x di utenti registrati.

E anche ...

Originariamente inviato da den87
io voglio far si che tramite un ciclo, in tabella "persone2" (la seconda tabella in pratica), nel campo "nome" mi salvi il risultato di questa query:...

Prova ad esporre il problema limitandoti a dire cosa vuoi fare e perché lo vuoi fare lasciando perdere "cicli" e "query".

[den87]

semplicemente mi serve un codice che copia i dati dal campo di tabella a al campo di tabella b.

[Grumpy]

Ecco.
Non c'è bisogno di nessun ciclo. Basta una query di inserimento.

INSERT INTO Tabella2 Select Nome FROM Tabella1

[den87]

aspetta! scusa la mia ignoranza...
allora
devo mettere i dati del campo "x" di tabella 1 nel campo "y" di tabella 2.
non so se la query che hai formulato faccia al caso mio...

[Grumpy]

Originariamente inviato da den87
non so se la query che hai formulato faccia al caso mio...

e chi dovrebbe saperlo?