Form dinamico e recupero dati

[optime]

ok, allora avevo capito. guarda la mia risposta sopra

[Enrique_Rojas]

Originariamente inviato da optime
se il NAME è A_1350 il record da modificare è 1350. giusto? allora con INSTR cerchi la posizione di "_" e con la MID estrai l'ID da modificare

Scusa Opt, solo un chiarimento:

Nel form ho: name="A_"& Rs("ID") &""

se provo a recuperarlo con: strA = request.form("A")

non stampa nulla, perchè gli manca l' ID come lo recupero?

[optime]

devi fare un ciclo per tutti i campi restituiti da una Request.Form generica

[Enrique_Rojas]

Originariamente inviato da optime
devi fare un ciclo per tutti i campi restituiti da una Request.Form generica

come?

[optime]

rigo, capperini se sei pigro!

http://www.aspcode.it/articoli/72_Re...m-avanzato.htm

[Enrique_Rojas]

Originariamente inviato da optime
rigo, capperini se sei pigro!

http://www.aspcode.it/articoli/72_Re...m-avanzato.htm

Grazie, ho fatto così:

For i = 1 To Request.Form.Count
  Response.write Request.Form.Key(i) & ": " & Request.Form.Item(i) & "

"
Next

ed i valori si recuperano correttamente... ma non ho chiaro come fare ad aggiornare questi valori nella query update...

[optime]

Originariamente inviato da Enrique_Rojas


Grazie, ho fatto così:

For i = 1 To Request.Form.Count
  Response.write Request.Form.Key(i) & ": " & Request.Form.Item(i) & "

"
Next

ed i valori si recuperano correttamente... ma non ho chiaro come fare ad aggiornare questi valori nella query update...

io te l'ho detto come fare. pensaci un pochettino

[Enrique_Rojas]

Originariamente inviato da optime
io te l'ho detto come fare. pensaci un pochettino

Ci sto provando così:

  Response.write Request.Form.Key(i) & ": " & inStr(Request.Form.Item(i), "-") & "

"

Ma restituisce 0 x tutti i campi...

[Enrique_Rojas]

Ho corretto così:

If InStr(Request.Form.Key(i), "-") > 0 Then
        Response.Write Mid(Request.Form.Key(i), 1 , InStr(Request.Form.Key(i), "-")) & "
"
    Else
        Response.Write "Carattere NON presente!
"
    End If

Ma stampa sino al trattino, cioè ignora l'ID...

A-

[Enrique_Rojas]

così:

For i = 1 To Request.Form.Count

Response.Write Request.Form.Key(i) & ": " & Request.Form.Item(i) & "
"
  
    If InStr(Request.Form.Key(i), "-") > 0 Then
        strIDNew = Split(Request.Form.Key(i), "-")
    End If
    
  strSQL = "UPDATE "
  strSQL = strSQL & " COMM "
  strSQL = strSQL & " SET "
  strSQL = strSQL & " A = "& replace(Request.Form.Item(i), ",", ".") &", "
  strSQL = strSQL & " B = "& replace(Request.Form.Item(i), ",", ".") &", "
  strSQL = strSQL & " C = "& replace(Request.Form.Item(i), ",", ".") &" "
  strSQL = strSQL & " WHERE "
  strSQL = strSQL & " ID = "& strIDNew(1)
  objconn.Execute strSQL

   response.write strSQL &"

"
Next

La query di update è sballata:

A-273: 83,13
UPDATE COMM SET A = 83.13, B = 83.13, C = 83.13 WHERE ID = 273

B-273: 332,52
UPDATE COMM SET A = 332.52, B = 332.52, C = 332.52 WHERE ID = 273

C-273: 6,65
UPDATE COMM SET A = 6.65, B = 6.65, C = 6.65 WHERE ID = 273

A-276: 289,85
UPDATE COMM SET A = 289.85, B = 289.85, C = 289.85 WHERE ID = 276

B-276: 57,97
UPDATE COMM SET A = 57.97, B = 57.97, C = 57.97 WHERE ID = 276

C-276: 231,88
UPDATE COMM SET A = 231.88, B = 231.88, C = 231.88 WHERE ID = 276