Fare un Insert + Update contemporaneamente

[Partisan75]

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

Roby

Grazie mille, ma se metto un semplice WHERE come faccio a farmi aggiornare un codice diverso per ogni record?
greazie ancora

[mexican]

Il numero dei record è lo stesso dei codici?

[Partisan75]

per ora si, poi vediamo come migliorare il codice...
Grazie

[mexican]

per ora si, poi vediamo come migliorare il codice...
Grazie

Allora potresti fare un ciclo nel ciclo
Onestamente in asp classic il codice non mi viene in mente non lo uso da oltre 8 anni

[Partisan75]

Allora potresti fare un ciclo nel ciclo
Onestamente in asp classic il codice non mi viene in mente non lo uso da oltre 8 anni

Devo fare una cosa del genere vero?

                RSCarrello.MoveFirst
                K = 0
                Do while Not RSCarrello.EOF
                    MancaProdotto = False
                    If MancanoProdotti Then
                        For I = 0 To UBound(ProdottiMancanti, 2)
                            If ProdottiMancanti(0, I) = RSCarrello("IDProdotto") Then
                                SQL = " UPDATE Carrello Set Quantita = " & ProdottiMancanti(1, I) & " WHERE IDProdotto = " & ProdottiMancanti(0, I) & " AND IDSessione = '" & SessionID & "' "
                                Set RS = Conn.Execute(SQL)
                                K = K + 1
                                Mancanti = Mancanti & "&id" & K & "=" & ProdottiMancanti(0, I) & "&quantita" & K & "=" & RSCarrello("Quantita")
                            End If
                        Next
                    End If
                    RSCarrello.MoveNext
                Loop

Ma che signifdica
ProdottiMancanti(1, I)
e
ProdottiMancanti(0, I)
?
Grazie

[mexican]

Devo fare una cosa del genere vero?

                RSCarrello.MoveFirst
                K = 0
                Do while Not RSCarrello.EOF
                    MancaProdotto = False
                    If MancanoProdotti Then
                        For I = 0 To UBound(ProdottiMancanti, 2)
                            If ProdottiMancanti(0, I) = RSCarrello("IDProdotto") Then
                                SQL = " UPDATE Carrello Set Quantita = " & ProdottiMancanti(1, I) & " WHERE IDProdotto = " & ProdottiMancanti(0, I) & " AND IDSessione = '" & SessionID & "' "
                                Set RS = Conn.Execute(SQL)
                                K = K + 1
                                Mancanti = Mancanti & "&id" & K & "=" & ProdottiMancanti(0, I) & "&quantita" & K & "=" & RSCarrello("Quantita")
                            End If
                        Next
                    End If
                    RSCarrello.MoveNext
                Loop

Ma che signifdica
ProdottiMancanti(1, I)
e
ProdottiMancanti(0, I)
?
Grazie

Ma che signifdica
ProdottiMancanti(1, I)
e
ProdottiMancanti(0, I)
?

Credo siano due funzioni ... che torneranno un valore in base ai parametri passati.

[Partisan75]

Scusate prova a mettere ogni valore in un array ma il response write mi stampa sempre e solo lo stesso valore. Dove sbaglio?



'Adesso ciclo su tutto il recordset, e metto ogni valore in un array
SQLpromo="SELECT valore FROM promo WHERE nomepromo = 'PROVA' "
Set rspromo = Conn.Execute(SQLpromo)


'dichiaro l'array con dimensione pari a num_promo
Dim array_promos()
redim array_promos(num_promo)

contatore=0
Do while not rspromo.EOF
array_promos(contatore)=rspromo("valore")

contatore=contatore+1
rspromo.MoveNext
Response.Write(array_promos(0) & "<br/>")

Loop

[mexican]

Scusate prova a mettere ogni valore in un array ma il response write mi stampa sempre e solo lo stesso valore. Dove sbaglio?



'Adesso ciclo su tutto il recordset, e metto ogni valore in un array
SQLpromo="SELECT valore FROM promo WHERE nomepromo = 'PROVA' "
Set rspromo = Conn.Execute(SQLpromo)


'dichiaro l'array con dimensione pari a num_promo
Dim array_promos()
redim array_promos(num_promo)

contatore=0
Do while not rspromo.EOF
array_promos(contatore)=rspromo("valore")

contatore=contatore+1
rspromo.MoveNext
Response.Write(array_promos(0) & "<br/>")

Loop

Response.Write(array_promos(contatore) & "<br/>")
se stampi Response.Write(array_promos(0) & "<br/>") stampa sempre la posizione 0

[Partisan75]

grazie ancora, ci sono quasi, riesco a fare l'update ma devo solo annidare la seconda array per passare la seconda varaibile nella parte in grassetto:


SQLmailing = " UPDATE USERS SET USE_CODICE_SCONTO = '" & (array_promos(i)) & "' WHERE USE_ID = '" & (array_promos2(i)) & "' "

Cioè se stampo a video la prima array tutto ok, se faccio l'update con WHERE USE_ID = 1 ovviamente mi aggiorna solo il primo e sto cercando quindi di fare il secondo array ma non ci riesco.

mi dite per cortesia solo come si annidano le 2 array?

perche mi restituisce sempre : Variabile di controllo del ciclo 'for' non valida

Grazie

[mexican]

grazie ancora, ci sono quasi, riesco a fare l'update ma devo solo annidare la seconda array per passare la seconda varaibile nella parte in grassetto:


SQLmailing = " UPDATE USERS SET USE_CODICE_SCONTO = '" & (array_promos(i)) & "' WHERE USE_ID = '" & (array_promos2(i)) & "' "

Cioè se stampo a video la prima array tutto ok, se faccio l'update con WHERE USE_ID = 1 ovviamente mi aggiorna solo il primo e sto cercando quindi di fare il secondo array ma non ci riesco.

mi dite per cortesia solo come si annidano le 2 array?

perche mi restituisce sempre : Variabile di controllo del ciclo 'for' non valida

Grazie

for i = 0 to 10

for y = 0 to 100

next

NEXT