Query Update su condizione

[ubbicom]

Ciao a tutti.

Questa è una query UPDATE che aggiorna i cambi A, B, C e D a secondo se la variabile associata è maggiore di 0:

      sql = "UPDATE List SET "
      
      if strA > 0 then      
         sql = sql & " A = '" & strA & "' "
      end if

      if strB > 0 then      
         sql = sql & " , B = '" & strB & "' "
      end if

      if strC > 0 then      
         sql = sql & " , C = '" & strC & "' "
      end if
      
      if strD > 0 then      
         sql = sql & " , D = '" & strD & "' "
      end if

Il problema è che posso avere tutte le combinazioni verificate, una parte oppure una sola.
Come faccio a distinguere quando ad esempio è verificata strB e non è verificata la strA?
Perchè come ho scritto la query mi va in errore a causa della virgola....

Grazie-

[Roby_72]

txt = ""
if strA > 0 then
   txt = "A = '" & strA & "' "
end if

if strB > 0 then
   if txt <> "" then txt = txt &", "
   txt = txt & "B = '" & strB & "' "
end if

if strC > 0 then
   if txt <> "" then txt = txt &", "
   txt = txt & "C = '" & strC & "' "
end if

if strD > 0 then
   if txt <> "" then txt = txt &", "
   txt = txt & "D = '" & strD & "' "
end if

if txt <> "" then sql = "UPDATE List SET " & txt

Roby

[br1]

      sql = "UPDATE List SET "
      wsql = "" 

      if strA > 0 then      
         wsql = wsql & ", A = '" & strA & "' "
      end if

      if strB > 0 then      
         wsql = wsql & ", B = '" & strB & "' "
      end if

      if strC > 0 then      
         wsql = wsql & ", C = '" & strC & "' "
      end if
      
      if strD > 0 then      
         wsql = wsql & ", D = '" & strD & "' "
      end if

      sql = sql & mid(wsql&"  ",2)

ciao

[ubbicom]

Grazie, così è corretta la query: ?

      sql = "UPDATE List SET "
      wsql = "" 

      if strA > 0 then      
         wsql = wsql & ", A = '" & strA & "' "
      end if

      if strB > 0 then      
         wsql = wsql & ", B = '" & strB & "' "
      end if

      if strC > 0 then      
         wsql = wsql & ", C = '" & strC & "' "
      end if
      
      if strD > 0 then      
         wsql = wsql & ", D = '" & strD & "' "
      end if

      sql = sql & mid(wsql&"  ",2)  
      
      sql = sql & " WHERE "
      
      if request("strID") > "0" then
         sql = sql & " ID = " & request("strID")
      else
         sql = sql & " CODICE = '" & request.querystring("strCodice") & "' "         
      end if
         
      conn.execute(sql)

[Roby_72]

Stampala a controlla.

Roby

[ubbicom]

Originariamente inviato da Roby_72
Stampala a controlla.

Roby

E' perfetta, grazie mille!

[br1]

Originariamente inviato da ubbicom
E' perfetta, grazie mille!