Fare un Insert + Update contemporaneamente

[Partisan75]

Salve, a tutti vorrei chiedervi per cortesia un aiuto.
Con una parte del codice genero ed inserisco nella tabella A in maniera random 100 codici promozionali.

Contemporaneamente voglio fare l'UPDATE della tabella B con gli stessi 100 codici ma ogni codice diverso deve riempire la cella dei 100 record gia esistenti.

Che funzione si usa? al momento riesco solo a fare l'update per i 100 record della tabella B ma tutti con 1 solo codice, quindi codice uguale per tutti.
Grazie in anticipo
F

[Vincent.Zeno]

per il quesito esposto non c'è "una funzione", è una questione procedurale

[mexican]

Crei un array contenente i codici poi la cicli e per ogni item dell'array fai una insert ed un update.

[Partisan75]

sarebbe stato bello avere un'indicazione su che direzione procedere...
Grazie lo stesso

[Partisan75]

ok grazie mi studio le array, ora forse ho capito come procedere,
grazie ancora

[Partisan75]

tralasciando per un momento il resto del codice... il metodo da seguire sarebbe questo?
Non mi restituisce nessun errore però non mi fa l'inserimento nel db..
dove sbaglio?


Dim ListaSpesa(4)
ListaSpesa(0) = "pane"
ListaSpesa(1) = "zucchero"
ListaSpesa(2) = "pasta"
ListaSpesa(3) = "vino"

For i = 0 to UBound(ListaSpesa)


'scrivo la query per aggiornare il codice
SQLmailing = " UPDATE USERS SET USE_CODICE_SCONTO = '" & ListaSpesa(i) & "' "
Set RSmailing = Connmailing.Execute(SQLmailing)

Next

[mexican]

tralasciando per un momento il resto del codice... il metodo da seguire sarebbe questo?
Non mi restituisce nessun errore però non mi fa l'inserimento nel db..
dove sbaglio?


Dim ListaSpesa(4)
ListaSpesa(0) = "pane"
ListaSpesa(1) = "zucchero"
ListaSpesa(2) = "pasta"
ListaSpesa(3) = "vino"

For i = 0 to UBound(ListaSpesa)


'scrivo la query per aggiornare il codice
SQLmailing = " UPDATE USERS SET USE_CODICE_SCONTO = '" & ListaSpesa(i) & "' "
Set RSmailing = Connmailing.Execute(SQLmailing)

Next

se fai un
Response.Write(ListaSpesa(i) & "<br/>)

ti scrive correttamente il risultato?

[Partisan75]

nel tuo codice mancano le virgolette comunque la rispsota è si:

pane
zucchero
pasta
vino

quindi perche non inserisce?

se faccio una prova così inserisce:

SQLmailing = " UPDATE USERS SET USE_CODICE_SCONTO = 'ListaSpesa(i)' "
ovviamente però non cambia la variabile ma inserisce la stringa: ListaSpesa(i)

[Partisan75]

se faccio così , cioè Dim ListaSpesa(3), inserisce ma inserisce dapperttutto vino


Dim ListaSpesa(3)
ListaSpesa(0) = "pane"
ListaSpesa(1) = "zucchero"
ListaSpesa(2) = "pasta"
ListaSpesa(3) = "vino"

For i = 0 to UBound(ListaSpesa)


'scrivo la query per aggiornare il codice
SQLmailing = " UPDATE USERS SET USE_CODICE_SCONTO = '" & ListaSpesa(i) & "' "
Set RSmailing = Connmailing.Execute(SQLmailing)

[Roby_72]

La UPDATE richiede una WHERE... altrimenti esegue 4 volte la query aggiornando tutti i record ed ovviamente "rimane" solo l'ultimo ovvero "vino".

Roby