Newsgroup: it.comp.appl.macromedia
Titolo: [UDEV] Update non funziona

Salve a tutti...
stavo vedendo sul manuale di Ultradev come potevo fare un update di un
record...
Seguo esattamente le istruzioni ... ma ottengo solo un messaggio di errore,
ovvero:
Microsoft OLE DB Provider for ODBC Drivers errore "80040e14'
[Microsoft][Driver ODBC Microsoft Access] Errore di sintassi nell'istruzione
UPDATE.
/Provaasp/dettagli3.asp, riga 48       <--- non rilevante ma...
E alla riga 48 c'è : MM_updateCmd.Execute
Ho fatto il form, nelle caselle di testo appare il record chiamato dalla
pagina principale ( ovvero questa è una detail page). Seleziono in *server
behaviours* il comando Update record... faccio tutto... apro la live data e
tutto funziona ma  quando lo faccio girare su Explorer e premo il pulsante
aggiorna mi arriva l'errore suddetto..
Cosa potrebbe essere?
Grazie a tutti quelli che mi risponderanno.
--MAD--

Cosa potrebbe essere?
Potrebbe mancare il permesso di modificare il file db dagli utenti?

 E alla riga 48 c'è : MM_updateCmd.Execute
[cut]
prova a postare la riga dove c'è l'istruzione SQL  SELECT
ciao
--
Kappa
kappa**nospam**@
webngo.net
www.webngo.net

Allego l'intero Vbscript:
<%@LANGUAGE="VBSCRIPT"%><%
' *** Update Record: construct a sql update statement and execute it
MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If
If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "")
Then
  MM_tableName = "Rubrica"
  MM_tableCol = "ID"
  MM_recordId = "" + Request.Form("MM_recordId") + ""
  MM_fields =
"nome,Nome,',none,'',cognome,Cognome,',none,'',professione,Professione,',non
e,'',telefono,Telefono,',none,'',residenza,Residenza,',none,'',indirizzo,Ind
irizzo,',none,'',cap,Cap,',none,'',note,Note,',none,'',id,ID,none,none,NULL"
  MM_redirectPage = "dettagli3.asp"
  ' create the sql update statement
  MM_updateStr = "update " & MM_tableName & " set "
  MM_fieldsArray = Split(MM_fields, ",")
  For i = LBound(MM_fieldsArray) To UBound(MM_fieldsArray) Step 5
    FormVal = CStr(Request.Form(MM_fieldsArray(i)))
    Delim = MM_fieldsArray(i+2)
    If (Delim = "none") Then Delim = ""
    AltVal = MM_fieldsArray(i+3)
    If (AltVal = "none") Then AltVal = ""
    EmptyVal = MM_fieldsArray(i+4)
    If (EmptyVal = "none") Then EmptyVal = ""
    If (FormVal = "") Then
      FormVal = EmptyVal
    Else
      If (AltVal <> "") Then
        FormVal = AltVal
      ElseIf (Delim = "'") Then  ' escape quotes
        FormVal = "'" & Replace(FormVal,"'","''") & "'"
      Else
        FormVal = Delim + FormVal + Delim
      End If
    End If
    If (i <> LBound(MM_fieldsArray)) Then
      MM_updateStr = MM_updateStr & ","
    End If
    MM_updateStr = MM_updateStr & MM_fieldsArray(i+1) & " = " & FormVal
  Next
  MM_updateStr = MM_updateStr & " where " & MM_tableCol & " = " &
MM_recordId
  ' finish the sql and execute it
  Set MM_updateCmd = Server.CreateObject("ADODB.Command")
  MM_updateCmd.ActiveConnection = "dsn=Provamad;"
  MM_updateCmd.CommandText = MM_updateStr
  MM_updateCmd.Execute
  ' redirect with URL parameters
  If (MM_redirectPage = "") Then
    MM_redirectPage = CStr(Request("URL"))
  End If
  If (InStr(1, MM_redirectPage, "?", vbTextCompare) = 0 And
Request.QueryString <> "") Then
    MM_redirectPage = MM_redirectPage & "?" & Request.QueryString
  End If
  Call Response.Redirect(MM_redirectPage)
End If
%>
<%
Dim rsdetail__MMColParam
rsdetail__MMColParam = "4"
if(Request.Form("id") <> "") then rsdetail__MMColParam = Request.Form("id")
%> <%
set rsdetail = Server.CreateObject("ADODB.Recordset")
rsdetail.ActiveConnection = "dsn=Provamad;"
rsdetail.Source = "SELECT * FROM Rubrica WHERE ID = " +
Replace(rsdetail__MMColParam, "'", "''") + ""
rsdetail.CursorType = 0
rsdetail.CursorLocation = 2
rsdetail.LockType = 3
rsdetail.Open
rsdetail_numRows = 0
%>
In questa pagina viene visualizzato un intero record selezionato da una
result page... i campi vengono visualizzati in un form formato da vari
textfield.. con il comando *submit* dovrei aggiornarlo ma non funge...
eppure ho seguito le istruzioni alla lettera...
Grazie
--MAD--

 Grazie
il codice a grandi linee sembra OK.
Mi associo a Massimo; potrebbe essere un problema di concessioni.
