insert in un db

[Certe Notti]

strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":3:",(livello))

che accidenti ha quest'istruzione che mi inchioda tutta la procedura di insert...
livello è un intero e come tale deve essere reg.

oggi non me ne va una...


Grazie

[Roby_72]

Fatti stampare quello che cerchi di scrivere nel db.
Cioè la query.

Roby

[Certe Notti]

Originariamente inviato da Roby_72
Fatti stampare quello che cerchi di scrivere nel db.
Cioè la query.

Roby

mi stampa tutto correttamente ma poi all'atto pratico impazzisce

[Roby_72]

Fammi vedere la response.write della query.
Che errore ti da?

Roby

[Certe Notti]

insert into utenti (user,password,livello,categoria, naccessi,ultimoaccesso,oraaccesso) values ('tt','tt','3','Operatore','','05/01/2005','17.31.08')

eppure se tolgo il respionse.write quando va a registrare quindi esegue mi da errore...

[Roby_72]

E l'errore?

Roby

[Certe Notti]

l'errore è questo per il momento...

Microsoft JET Database Engine error '80040e14' 

Syntax error in INSERT INTO statement. 

/ins_utente.asp, line 69

si ma errore di sintassi a cosa...?

la linea 69 è questa:

myConn.Execute(strSqlInsertSondaggio)

[Certe Notti]

il codice è questo:

<%

	if request("entrata")="Inserire nuovo utente" then
	
		'recupero i valori voluti
		quando = date()
		ora = time()
		na = 0
		nome = request("user")
		password1 = request("psw1")
		password2 = request("psw2")
		Livello = request("ck")
		
		if cstr(nome)="" or cstr(password1)="" or cstr(password2)="" or cstr(livello)="" then
%>
			<script language="javascript">
				window.alert("Inserire tutti i campi !");
			</script>
<%
		else

		if (cstr(password1) <> cstr(password2)) then
%>
			<script language="javascript">
				window.alert("La Password inserita non è corretta !");
			</script>
<%
		else
        end if
		
		Categoria=""
		if (livello=1) Then
		  Categoria="Amministratore"
		end if
		if (livello=2) Then
		  Categoria="Super Utente"
		end if
		if (livello=3) Then
		  Categoria="Operatore"
		end if
		
		'mi collego al database 
		set myConn = server.CreateObject("ADODB.Connection")				
		dim strConnDb
		strConnDb = ""
		strConnDb = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mappath("/mdb-database/utenti.mdb")
		myConn.Open(strConnDb)
		
		dim strSqlInsertSondaggio 
		strSqlInsertSondaggio = ""
		strSqlInsertSondaggio = "insert into utenti (user,password,livello,categoria, naccessi,ultimoaccesso,oraaccesso) values (':1:',':2:',':3:',':4:',':5:',':6:',':7:')"
		strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":1:",replace(cstr(nome),"'","''",1,-1))
		strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":2:",replace(cstr(password1),"'","''",1,-1))
		strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":3:",replace(cstr(livello),"'","''",1,-1))
		strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":4:",replace(cstr(categoria),"'","''",1,-1))
		strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":5:",replace(cstr(na),"'","''",1,-1))
		strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":6:",replace(cstr(quando),"'","''",1,-1))
		strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":7:",replace(cstr(ora),"'","''",1,-1))
	
	    'response.write(strSqlInsertSondaggio)
		'response.end()
	
		myConn.Execute(strSqlInsertSondaggio)	
	
		myConn.Close
		set myConn = nothing	
	
		end if
		
	end if
	Response.redirect("pannello_amministratore.asp")

%>

[Roby_72]

1) Il campo "naccessi" è di tipo tsto e può contenere una stringa vuota?
2) Il campo "ultimoaccesso" è di tipo testo?

Se entrambi le risposte sono affermative allora modifica la query in questo modo:

strSqlInsertSondaggio = "insert into utenti (user,[password],livello,categoria, naccessi,ultimoaccesso,oraaccesso) values  (':1:',':2:',':3:',':4:',':5:',':6:',':7
:')"

Roby

[Certe Notti]

il campo naccessi è di tipo numerico
mentre ultimoaccesso è di tipo data/ora

sono sicuro si tratti del campo naccessi a darmi grane solo che a mettere la sintassi per un campo numerico ottengo comunque errore