15 ospiti e 0 utenti registrati online.
UserName
  Password  Registrati Ora! E' Gratuito!
 
 MMKit Forums » » Asp » » Syntax error in INSERT INTO statement.
(Moderato da: Ganasa, Harding)  
AutoreTopic: Syntax error in INSERT INTO statement.
alessandra73 Donna
Membro Junior


Con noi da: 16-07-2006
Posts: 77
Da:

 Inviato il: 28-04-2008 14:39   
Ciao a tutti
un errore inspiegabile

Microsoft JET Database Engine error '80040e14'

Syntax error in INSERT INTO statement.


non capisco il perchè, stranamente appare dopo che ho inserito al form d'inserimento un upload di file
e la cosa ancora più strana è che il file lo carica nella cartella public ma i dati no!

Qualcuno perfavore sa dire il perchè? Grazie
ciao Alessandra

-----------------
Alessandra



Clicca qui per vedere il profilo di alessandra73 Invia un messaggio privato a alessandra73 Aggiungi alessandra73 alla tua buddy list Clicca qui per rispondere 'citando' questo post
Ganasa Uomo
Moderatore


Con noi da: 12-07-2001
Posts: 2149
Da: Malonno - ValleCamonica

 Inviato il: 29-04-2008 03:03   
Evidentemente c'è un errore nella query di INSERT, potresti postarla o, comunque, postare il pezzo di codice interessato?

-----------------
::: Michele Mariotti :::

Esistono 10 tipi di persone al mondo... chi conosce il binario e chi no!



Clicca qui per vedere il profilo di Ganasa Invia un messaggio privato a Ganasa Aggiungi Ganasa alla tua buddy list Clicca qui per inviare una mail a Ganasa Homepage: http://www.ganasa.net Clicca qui per rispondere 'citando' questo post
alessandra73 Donna
Membro Junior


Con noi da: 16-07-2006
Posts: 77
Da:

 Inviato il: 30-04-2008 16:07   
ti ringrazio, ho fatto anche controllare i permessi di scrittura e lettura ma niente non sono quelli

riporto il codice d'inserimento, non ci riesco proprio ad arrivare, oltrettutto inserisce l'immagine nella cartella /public ma nessun dato


<%
' *** Insert Record: (Modified for File Upload) set variables

'If (CStr(UploadFormRequest("MM_insert")) = "form1") Then
If (CStr(UploadFormRequest("MM_insert")) <> "") Then

MM_editConnection = MM_cnnNegozio_STRING
MM_editTable = "Prodotti"
MM_editRedirectUrl = "inserimento.asp"
MM_fieldsStr = "select|value|textfield2|value|textfield3|value|textfield|value|file|value|textfield4|value|textfield5|value|textfield6|value|textfield7|value|textfield8|value"
MM_columnsStr = "IDCategoria1|none,none,NULL|NomeProdotto1|',none,''|DescrizioneProdotto1|',none,''|PrezzoProdotto1|none,none,NULL|Foto1|',none,''|Foto2|',none,''|Foto3|',none,''|Quantita|',none,''|colori|',none,''|taglia|',none,''"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(UploadFormRequest(MM_fields(MM_i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And UploadQueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And UploadQueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & UploadQueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & UploadQueryString
End If
End If

End If
%>
<%
' *** Insert Record: (Modified for File Upload) construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(UploadFormRequest("MM_insert")) <> "") Then

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>


ciao, Alessandra


-----------------
Alessandra



Clicca qui per vedere il profilo di alessandra73 Invia un messaggio privato a alessandra73 Aggiungi alessandra73 alla tua buddy list Clicca qui per rispondere 'citando' questo post
alessandra73 Donna
Membro Junior


Con noi da: 16-07-2006
Posts: 77
Da:

 Inviato il: 01-05-2008 08:33   
Risolto
il codice era giusto!!!!!

In pratica dipendeva dal campo prezzo che essendo in db valuta, lasciandolo vuoto in fase d'inserimento lo prendeva come spazio bianco ossia carattere.

Non vi dico quanti gg. ci sono stata sopra per capire provare e riprovare.
Ciao

-----------------
Alessandra



Clicca qui per vedere il profilo di alessandra73 Invia un messaggio privato a alessandra73 Aggiungi alessandra73 alla tua buddy list Clicca qui per rispondere 'citando' questo post
  
  
Vai a:
Visualizza la versione da stampa
Segnala questo thread al moderatore
Aggiungi questo thread alla tua lista preferiti [Visualizza]
Non voglio più ricevere nessuna mail riguardo questo thread


FAQ | Top 10 | Statistiche
MMKit - Macromedia Community Shared Knowledge
Tutti i loghi sono appartenenti ai rispettivi proprietari