Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Errore Sql Nuovo Modulo

Autore Messaggio
mariulo

Utente
Utente
69 Discussioni



Profilo - mariulo
16 ottobre 2006 alle 23:00:57 Profilo - mariuloInvia un messaggio privato Rispondi quotando
Ragazzi ho Un problema:

ErroreSQL -2147217900: [Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.
SQL : INSERT INTO corsi(CoId, CoNome, CoIntestazione, CoInfo, CoValid) VALUES ('0','', '', '', )


Ho Creato 2 file per l'amministrazione del Db.
Il primo: admin_course.asp

<%
' ************************************************************************
' * ASPNUKE: Free web portal in ASP *
' ************************************************************************
' * ASP-Nuke 2.0 Copyright (c) 2004 by Aspnuke.it Staff *
' * (staff@aspnuke.it) http://www.aspnuke.it *
' * *
' * Re-design by Enrico Musante (c) 2004 (emu@libero.it) *
' * *
' * ASP-Nuke 1.0, 1.1, 1.2 Copyright (c) 2002-2003 by Gaetan Bouveret *
' * (webmaster@asp-nuke.com) http://www.asp-nuke.com *
' * *
' * This program is free software. You can redistribute it and/or modify *
' * it under the terms of the GNU General Public License as published by *
' * the Free Software Foundation; either version 2 of the License, or *
' * (at your option) any later version. *
' * *
' ************************************************************************
%>
<!-- #include file="includes/admin_includes-inc.asp" -->
<!-- #include file="includes/admin_course-inc.asp" -->
<%
sTitlePage = GetTranslation("LANG_ADMINISTRATION") & " - Corsi"
%>
<!-- #include file="includes/toppage-inc.asp" -->
<%
If IsAuthorizedBin(ROLE_ARTICLES) Then
Dim Fai
Fai = Request.Querystring("do")
Select case Fai
Case "addCourse"
if AddCourses(Request.Form("cNome"), Request.Form("cIndex"), Request.Form("cInfo"), Request.Form("cValid")) Then
sInfoPage = "Corso - " & GetTranslation("LANG_ADD_SUCCESS")
Else
sInfoPage = "Corso - " & GetTranslation("LANG_ADD_ERROR")
End If
Case "view"
Case "edit"
jId=Request.Querystring("ID")
DisplayEditCourse(jID)
Case "cdel"
jId=Request.Querystring("ID")
DeleteCourse(jID)
Case "new" DisplayAddCourse()
Case "updt"
jNome=Request.Form("cNome")
JIndex=Request.Form("cIndex")
JInfo=Request.Form("cInfo")
JValid=Request.Form("cValid")
jId=Request.Querystring("ID")
If EditUpdate(Jid, JNome, jIndex, JInfo, jValid) Then
sInfoPage = "Aggiornamento Corso - " & GetTranslation("LANG_ADD_SUCCESS")
Else
sInfoPage = "Aggiornamento Corso - " & GetTranslation("LANG_ADD_ERROR")
End If
Case Else DisplayTopCourse()
End Select

Else
CreateTable "Role", "", GetTranslation("LANG_MUST_HAVE_ROLE"), ""
End If
%><!-- #include file="includes/bottompage-inc.asp" --><!-- #include file="includes/clearitall-inc.asp" -->

Il Secondo: admin_course-inc.asp
<%

Sub DisplayTopCourse()
Dim oCn, oRs, oRs2, rSQL, iLine, sSortDesc, iNbPages, iLoop
Dim sUrlPa
sUrlPa = "admin_course.asp"
Set oCn = DBConnexion(DB_CORSI)

rSQL = "SELECT CoID, CoNome, CoIntestazione, CoInfo, CoValid FROM Corsi ORDER BY CoID"

CreateTopTable "TopCorsi", GetTranslation("LANG_TOP") & " - Corsi"

Set oRs = DBRecordSet(oCn, rSQL)

Response.Write GLOBAL_SITE_SUBTABLE & vbCRLF
Response.Write " <tr class=""tablelinemain"">" & vbCRLF
Response.Write " <td align=""center"">" & GetTranslation("LANG_TITLE") & "</td>" & vbCRLF
Response.Write " <td width=""80"" align=""center"">" & GetTranslation("LANG_VALID") & "</td>" & vbCRLF
Response.Write " <td width=""100"" align=""center"">" & GetTranslation("LANG_ACTIONS") & "</td>" & vbCRLF
Response.Write " </tr>" & vbCRLF

iLine = 1
iLoop = 0
While Not oRs.EOF And iLoop < 9999

Set oRs2 = DBRecordSet(oCn, rSQL)
oRs2.Close
Set oRs2 = Nothing
Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td>" & oRs("CoNome") & "</td>" & vbCRLF
Response.Write " <td align=""center"">" & oRs("CoValid") & "</td>" & vbCRLF
Response.Write " <td align=""center"">" & vbCRLF
Response.Write " <a href=""" & sUrlPa & "?id=" & oRs("CoID") & "&do=view""><img src=""" & GLOBAL_SITE_IMAGES_PATH & "view.gif"" width=""20"" height=""20"" hspace=""2"" border=""0"" alt=""" & GetTranslation("LANG_VIEW") & """></a>" & vbCRLF
Response.Write " <a href=""" & sUrlPa & "?id=" & oRs("CoID") & "&do=edit""><img src=""" & GLOBAL_SITE_IMAGES_PATH & "edit.gif"" width=""20"" height=""20"" hspace=""2"" border=""0"" alt=""" & GetTranslation("LANG_EDIT") & """></a>" & vbCRLF
Response.Write " <a href=""" & sUrlPa & "?id=" & oRs("CoID") & "&do=cdel""><img src=""" & GLOBAL_SITE_IMAGES_PATH & "del.gif"" width=""20"" height=""20"" hspace=""2"" border=""0"" alt=""" & GetTranslation("LANG_DELETE") & """></a>" & vbCRLF
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF

iLine = 1 + ((iLine-1) XOR 1)
oRs.MoveNext
iLoop = iLoop + 1
WEnd

Response.Write " <tr class=""tablelinemain"">" & vbCRLF
Response.Write " <td colspan=""6""><a href=""admin_course.asp?do=new"">" & GetTranslation("LANG_ADD") & " - Corso</a></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write "</table>" & vbCRLF

CreateBottomTable ""

oRs.Close
Set oRs = Nothing
oCn.Close
Set oCn = Nothing
End Sub

'************************************************************************************
Sub DisplayAddCourse()

CreateTopTable "AggiungiCorso","Aggiungi Corso"
Response.Write "<_form method=""POST"" action=""admin_course.asp?do=addCourse"">"
Response.Write " <table border="""" width=""100%"" id=""AddCourse"" height=""226"">"
Response.Write " <tr>"
Response.Write " <td>Campo</td>"
Response.Write " <td>Valore</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td>Titolo corso</td>"
Response.Write " <td><input type=""text"" name=""cNome1"" size=""20""></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td valign=""top"">Intestazione</td>"
Response.Write " <td><textarea rows=""6"" name=""cIndex1"" cols=""49""></textarea></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td>Informazioni</td>"
Response.Write " <td><textarea rows=""6"" name=""cInfo1"" cols=""49""></textarea></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td>Valido</td>"
Response.Write " <td><input type=""checkbox"" name=""cValid1"" value=""OFF""></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td><button name=""cConfirm1"">Conferma</button></td>"
Response.Write " <td>&nbsp;</td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write "</_form>"
CreateBottomTable ""


End Sub


'**********************************************************************************************************

Function AddCourses(cIndex, cText, cInfo, cValid)
Dim oCn, rSQL, oRs, VARIA
Response.Write cIndex
Set oCn = DBConnexion(DB_CORSI)
rSQL = "SELECT CoId FROM CORSI ORDER BY CoId DESC"
Set oRs = DBRecordSet(oCn, rSQL)
If oRs.EOF Then
rSQL = "INSERT INTO corsi(CoId, CoNome, CoIntestazione, CoInfo, CoValid) VALUES ('0','" & SQLEncrypt(cIndex) & "', '" & SQLEncrypt(cText) & "', '" & SQLEncrypt(cInfo) & "', " & cValid & ")"
DBExecute oCn, rSQL
Else
VARIA= oRs("CoID") + 1
rSQL = "INSERT INTO corsi(CoId, CoNome, CoIntestazione, CoInfo, CoValid) VALUES ('" & VARIA &"','" & SQLEncrypt(cIndex) & "', '" & SQLEncrypt(cText) & "', '" & SQLEncrypt(cInfo) & "', " & cValid & ")"
DBExecute oCn, rSQL
End If
oCn.Close
Set oCn = Nothing
oRs.Close
Set oRs = Nothing

AddCourse = True
End Function

'*************************************************************************************

Sub DisplayEditCourse(id)
Dim oCn, rSQL, oRs
Set oCn = DBConnexion(DB_CORSI)
rSQL = "SELECT CoID, CoNome, CoIntestazione, CoInfo, CoValid FROM Corsi WHERE CoId = " & id
Set oRs = DBRecordSet(oCn, rSQL)
oRs.Close


CreateTopTable "EditCorso","Modifica Corso"
Response.Write "<_form method=""POST"" action=""admin_corsi.asp?do=updt"">"
Response.Write " <table border="""" width=""100%"" id=""AditCourse"" height=""226"">"
Response.Write " <tr>"
Response.Write " <td>Campo</td>"
Response.Write " <td>Valore</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td>Titolo corso</td>"
Response.Write " <td><input type=""text"" name=""cNome1"" size=""20"" Value=""" & oRs("CoNome") &"""></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td valign=""top"">Intestazione</td>"
Response.Write " <td><textarea rows=""6"" name=""cIndex1"" cols=""49"" Value=""" & oRs("CoIndex") & """></textarea></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td>Informazioni</td>"
Response.Write " <td><textarea rows=""6"" name=""cInfo1"" cols=""49"" Value="""& oRs("CoInfo") &"""></textarea></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td>Valido</td>"
Response.Write " <td><input type=""checkbox"" name=""cValid1"" value="""& oRs("CoValid") &"""></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td><button name=""cConfirm1"">Conferma Modifica</button></td>"
Response.Write " <td>&nbsp;</td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write "</_form>"
CreateBottomTable ""

End Sub

'*********************************************************************************
Function EditUpdate( id, Nome, Index, Info, Valid )
Dim oCn, rSQL, oRs
Set oCn = DBConnexion(DB_CORSI)
rSQL = "Update Corsi SET CoNome='" & SQLEncrypt(Nome) & "', CoIntestazione = '" & SQLEncrypt(Index) & "', CoInfo ='" & SQLEncrypt(Info) & "', CoValid = " & Valid & " WHERE CoId = " & id
DBExecute oCn, rSQL
oRs.Close
Set oCn = Nothing
EditUpdate = True
End Function

'************************************************************************************
Function DeleteCourse(iID)
Dim oCn, rSQL

Set oCn = DBConnexion(DB_CORSI)

rSQL = "DELETE FROM corsi WHERE CoId=" & iID
DBExecute oCn, rSQL
oCn.Close
Set oCn = Nothing
DeleteCourse = True
End Function


%>


Il DB Contiene solo una tabella (corsi)
Con i campi - CoId, CoNome, CoIntestazione, CoInfo, CoValid

Cosa significa quell'errore?
So che il codice fa schifo. Lo aggiusterò col tempo.
Ma nn capisco quell'errore.
HELP PLS

GRAZIE IN ANTICIPO [lo]
---------------
[lo]
piosky_to2003

Esperto
Esperto
2291 Discussioni



Profilo - piosky_to2003
17 ottobre 2006 alle 09:04:12 Profilo - piosky_to2003Invia un messaggio privato chat_silvio@hotmail.com Rispondi quotando
Modificato il 17 ottobre 2006 alle 09:07:44

controlla l'istruzione
INSERT INTO corsi(CoId, CoNome, CoIntestazione, CoInfo, CoValid) VALUES ('0','', '', '', ) <---- 5 parametri 5 valori manca '' dopo la virgola , o non gli passi il valore o gli passi un valore nullo che devi controllare prima di lanciare la query


INSERT INTO corsi(CoId, CoNome, CoIntestazione, CoInfo, CoValid) VALUES ('0','', '', '','' )
---------------
Silvio Andrighetti Formaggini (Piosky) [lo]

http://www.roadrunners.to.it
Sito Prove
http://www.piosky.somee.com
msn : chat_silvio@hotmail.com
mariulo

Utente
Utente
69 Discussioni



Profilo - mariulo
17 ottobre 2006 alle 13:05:46 Profilo - mariuloInvia un messaggio privato Rispondi quotando
Modificato il 17 ottobre 2006 alle 13:07:06

mi sai dire perche ora nn funziona il metodo post a questa funzione.?
Sub DisplayAddCourse()

CreateTopTable "AggiungiCorso","Aggiungi Corso"
Response.Write "<_form method=""POST"" action=""admin_course.asp?do=addCourse"">"
Response.Write " <table border="""" width=""100%"" id=""AddCourse"" height=""226"">"
Response.Write " <tr>"
Response.Write " <td>Campo</td>"
Response.Write " <td>Valore</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td>Titolo corso</td>"
Response.Write " <td><input type=""text"" name=""cNome1"" size=""20""></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td valign=""top"">Intestazione</td>"
Response.Write " <td><textarea rows=""6"" name=""cIndex1"" cols=""49""></textarea></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td>Informazioni</td>"
Response.Write " <td><textarea rows=""6"" name=""cInfo1"" cols=""49""></textarea></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td>Valido</td>"
Response.Write " <td><input type=""checkbox"" name=""cValid1"" value=""OFF""></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td><button name=""cConfirm1"">Conferma</button></td>"
Response.Write " <td>&nbsp;</td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write "</_form>"
CreateBottomTable ""


End Sub




Ho corretto l'errore dei parametri vado a inserire i dati x provare, ma quando lklicco conferma nn parte niente rimane li...
nn funziona il metodo POST e ci vuole un'altro metodo?
piosky_to2003

Esperto
Esperto
2291 Discussioni



Profilo - piosky_to2003
17 ottobre 2006 alle 13:33:05 Profilo - piosky_to2003Invia un messaggio privato chat_silvio@hotmail.com Rispondi quotando
Modificato il 17 ottobre 2006 alle 13:44:14

il metodo post e' scritto correttamente

Response.Write "<_form method=""post"" action=""admin_course.asp?do=addCourse"">"& vbCRLF

anzi gli metteri anche un nome

Response.Write "<_form name=""AddCourse"" method=""post"" action=""admin_course.asp?do=addCourse"">"& vbCRLF


e il bottone conferma che non va bene cosi, graficamente il bottone viene mostrato ma non ci fa sopra nessuna azione

Response.Write " <td><button name=""cConfirm1"">Conferma</button></td>"

devi mettere

Response.Write " <td><input type=""submit"" name=""Submit"" value=""Conferma""></td>" & vbCRLF
---------------
Silvio Andrighetti Formaggini (Piosky) [lo]

http://www.roadrunners.to.it
Sito Prove
http://www.piosky.somee.com
msn : chat_silvio@hotmail.com
djveleno

Amministratore

Esperto
Esperto
1025 Discussioni



Profilo - djveleno
17 ottobre 2006 alle 14:50:51 Profilo - djvelenoInvia un messaggio privato Rispondi quotando
Mha, secondo me tutta la procedura non va bene, in admin_course.asp basta mettere il richiamo alle funzioni doAdminCourse e displayAdminCourse, riscrivere il file admin_course-inc.asp, inserendo il codice che hai inserito nel file admin_course.asp, usando anche il codice Java_Script per il confirme e il delete, oltre che per i bottono di conferma.
Dj
---------------
A lavare la testa ai somari, ci si rimette l'acqua e il sapone!

http://aspnuke208.somee.com/Default.asp

mariulo

Utente
Utente
69 Discussioni



Profilo - mariulo
17 ottobre 2006 alle 15:44:20 Profilo - mariuloInvia un messaggio privato Rispondi quotando
Dj Grazie...
Lo so Che il codice fa veramente schifo...
ci lavoro solo da 3 ore e lo fatto tutto a mano..
ovviamente niente va bene... Io di asp ricordo solo qualcosa delle superiori ( 3 anni fa ) e solo ora mi sto cimentando con aspnuke..
io ero rimasto alla versione 1.1 :D

Mi complimento x il Vostro lavoro!

Cmq su html.it ho notato che si usa <input type="submit"...
e lo stavo testando solo che nn l'ho provato xkè alice mi starompendo i C****oni..

Grz x il supporto e PER la NOTA DI DJ!!! 8)

1 ora al giorno ci lavorerò x migliorarlo! Non Precc.
Grazie ciao [lo]
---------------
[lo]
djveleno

Amministratore

Esperto
Esperto
1025 Discussioni



Profilo - djveleno
17 ottobre 2006 alle 16:28:12 Profilo - djvelenoInvia un messaggio privato Rispondi quotando
Puoi anche usare l'ASP puro, non strettamente allineato al codice Aspnuke, per la grafica, poi, basta inserire gli include necessari al funzionamento e i CreateTopTable per la visualizzazione delle tabelle, per iniziare è, forse, un pò più semplice.
Dj
---------------
A lavare la testa ai somari, ci si rimette l'acqua e il sapone!

http://aspnuke208.somee.com/Default.asp

mariulo

Utente
Utente
69 Discussioni



Profilo - mariulo
17 ottobre 2006 alle 17:01:16 Profilo - mariuloInvia un messaggio privato Rispondi quotando
Apprezzo il consiglio..
Ma io nn ho detto che mi è difficile. Ho solo detto che :
Manca il tempo
e che è Da molto che nn sviluppo in ASP

Che sia asp o aspnuke l'importante e leggere attentamente tutti i file e tutte le funzioni gli include crete da qualcuno.
So che per te (DJ) sia un gioketto riconoscere un codice fatto bene che uno fatto male...
Tutti hanno un limite è questo è il mio!
Apprezzo molto il vostro supporto e spero di aiutare qualc'uno come lo fate voi.


;)

Ciao [lo]
---------------
[lo]
mariulo

Utente
Utente
69 Discussioni



Profilo - mariulo
18 ottobre 2006 alle 15:10:18 Profilo - mariuloInvia un messaggio privato Rispondi quotando
X Dj Veleno

Grazie a te Dj, Ho cancellato tutto e mi sono organizzato bene.
Ho modificato per bene la struttura del DB e ora piano piano sto Creando le funzioni.
Se non fosse per la tua Puntalizzazione sulla struttura l'avrei lasciata così.
Ti ringrazio e quando Sarà pronta la pubblico. Così gli dai una okkiata e mi dai il tuo parere.

l'unico Problema che ora mi rogna fare è inserire gia le traduzioni cosa che a me ora non mi interessa e che un giorno forse farò - tempo permettendo...

Grazie ancora e un saluto a Silvio [lo]
OTTIMI SUPPERTER 8)
---------------
[lo]
mariulo

Utente
Utente
69 Discussioni



Profilo - mariulo
20 ottobre 2006 alle 15:09:50 Profilo - mariuloInvia un messaggio privato Rispondi quotando
mi serve una mano per quanto riguarda la creazione di un modulo per inserire dei corsi di ballo.
mi serve giusto qualche idea per l'inserimento.
io ho crato un database CORSI.MDB con queste relazioni:

ho creato delle funzioni per poter aggiungere solo un corso ma nn mi vengono idee per quanto riguarda l'inserimento dei giorni e degli orari e professori.
Ho creato queste relazioni perchè :
1> un corso può avere piu giorni e un giorno piu corsi ( quindi una relazione molti-a-molti.
2> un corso puo avere piu insegnanti e un insegnante piu corsi quindi una relazione molti-a-molti.
Credo che la struttura del DB vada bene.
ma nn ho idea di come strutturare la pagina x acquisizione dei campi.
IO ho pensato di farlo in due parti cio step by step, inserendo prima il corso e poi gestire il corso con l'inserimento dei prof e dei giorni...

Ho bisogno di trovare una soluzione....
POTETE AIUTARMI A REALIZARLA CON UN CONSIGLIO O IDEA?
:(
grazie in anticipo
---------------
[lo]
 1  2  >>

Log in

Login
Password
Memorizza i tuoi dati:

Cerca

 

Sostieni AspNuke

Un piccolo gesto per aiutarci a mantenere AspNuke.it online

Promo

MusicWebItalia.it
Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.

Visitatori

Visitatori Correnti : 156
Membri : 0 offline Anna

Iscritti

 Utenti: 18940
Ultimo iscritto : glauco
Lista iscritti
Messaggi privati: 3373 Commenti: 2210 Immagini: 39 Downloads: 144 Articoli: 49 Pagine: 101 Siti web: 558 Notizie: 180 Sondaggi: 11 Preferiti: 5685343 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi