SQL & ASP - Paramentri insufficienti

[Gouken]

Salve a tutti,
ho problemi con l'inserimento dei dati di un form in un database Access.
L'errore che mi viene fuori è il seguente:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 14.

La riga è quella dove eseguo la query.

Ho controllato nel db se i campi hanno lo stesso nome e lo stesso tipo che ottengo dal form,sinceramente non so quale sia il motivo di quest'errore.

Qualcuno sa come posso risolvere il problema?

[optime]

----------------------------------------------------
impariamo a fare un po' di debug

*immediatamente prima* di eseguire la query metti

Response.Write "maGGica SQL...: " & sql ' <<<< metti la tua variabile
Response.Flush

poi posta quello che viene a video
----------------------------------------------------

[Gouken]

Questo è l'output.

Query:

Insert into Bolle ([TIPO BOLLA], [Num Bolla], [Data Bolla], Dogana, IDDogana,ID_Registro, IDViaggio, Colli, Peso, Merce, MRN, VD, Esportatore, Imballo, TP, ARC, File, Trasferimento, CodContainer) Values (@tipoBolla, @numBolla, @dataBolla, @dogana, @idDogana,'1T', @idViaggio, @colli, @peso, @merce, @mrn, @vd, '-', @imballo, 'T', @arc, true, true, @codContainer)

[optime]

stai usando una SP? posta un po' di codice, dai

[Gouken]

Sto usando una pagina asp con collegamento ad un db Access.
Posto il codice della pagina che fà l'inserimento,se dovesse servire posto anche quello del form che invia i dati.

Pagina Inserimento dati:

tipoBolla = request("tipoBolla")
numBolla = request("numBolla") 
ggBolla = request("ggBolla") 
mmBolla = request("mmbolla") 
aaBolla = request("aaBolla") 
idDogana = request("idDogana") 
dogana = request("dogana") 
idViaggio = request("idViaggio") 
codContainer = request("CodContainer") 
colli = request("colli") 
peso = request("peso") 
merce = request("merce") 
mrn = request("mrn") 
vd = request("vd") 
imballo = request("imballo") 
arc = request("arc") 
dataBolla= ggBolla &"/"& mmBolla &"/"& aaBolla 
//un pò di debug 
response.Write "cod container" & codContainer & ";" 
response.Write "
 
" 
response.Write "splitto per inserimento 
" 
arrCodc = Split(codContainer, ",") 
for i=LBound(arrCodc) to UBound(arrCodc) 
response.write arrCodc(i) & "; 
" 
next 
sSql = "" 
sSql = sSql & "Select [Num Bolla], MRN " 
sSql = sSql & "From Bolle "
sSql = sSql & "Where [Num bolla] = " & numBolla & " OR MRN = '"&mrn&"'" 
set rsSql = ConnMDB.Execute(sSQL) 
errore=0
if rsSQL.EOF then 
    response.write("inizio inserimento 
") 
    dim cmd 
    Set cmd = Server.CreateObject("ADODB.Command") 
    sInsert = "" 
    sInsert = sInsert & "Insert into Bolle ([TIPO BOLLA], [Num Bolla], [Data Bolla], Dogana, IDDogana,ID_Registro, IDViaggio, Colli, Peso, Merce, MRN, VD, Esportatore, Imballo, TP, ARC, File, Trasferimento, CodContainer) "
    sInsert = sInsert & "Values (@tipoBolla, @numBolla, @dataBolla, @dogana, @idDogana,'1T', @idViaggio, @colli, @peso, @merce, @mrn, @vd, '-', @imballo, 'T', @arc, true, true, @codContainer)"
   response.write "Query: " & sInsert
   response.Flush() 
   set rsInsert = ConnMDB.Execute(sInsert)  <--- mi da errore su questa riga
   response.write("Fine query 
") 
   cmd.ActiveConnection = connMDB 
   //Questo pezzo di codice era già scritto
   'cmd.CommandText = sInsert 
   'response.Write "cmd.CoomandText: " & cmd.CommandText & "
" 
   'cmd.CommandType = adCmdText  
   'response.Write "cmd.CommandType: " & cmd.CommandType & "
"   
   'cmd.Parameters.Append cmd.CreateParameter("@tipoBolla", adInteger, adParamInput, len(tipobolla), tipoBolla) 
   'cmd.Parameters.Append cmd.CreateParameter("@numBolla", adInteger, adParamInput, len(numDolla), numBolla) 
   'cmd.Parameters.Append cmd.CreateParameter("@dataBolla", adDate, adParamInput, len(dataDolla), dataBolla) 
   'cmd.Parameters.Append cmd.CreateParameter("@dogana", adLongVarChar, adParamInput, len(dogana), dogana) 
   'cmd.Parameters.Append cmd.CreateParameter("@idDogana", adLongVarChar, adParamInput, len(idDogana), idDogana) 
   'cmd.Parameters.Append cmd.CreateParameter("@idViaggio", adLongVarChar, adParamInput, len(idViaggio), idviaggio) 
   'cmd.Parameters.Append cmd.CreateParameter("@colli", adInteger, adParamInput, len(colli), colli) 
   'cmd.Parameters.Append cmd.CreateParameter("@peso", adInteger, adParamInput, len(peso), peso) 
   'cmd.Parameters.Append cmd.CreateParameter("@merce", adLongVarChar, adParamInput, len(merce), merce) 
   'cmd.Parameters.Append cmd.CreateParameter("@mrn", adLongVarChar, adParamInput, len(mrn), mrn) 
   'cmd.Parameters.Append cmd.CreateParameter("@vd", adLongVarChar, adParamInput, len(vd), vd) 
   'cmd.Parameters.Append cmd.CreateParameter("@imballo", adLongVarChar, adParamInput, len(imballo), imballo) 
   'cmd.Parameters.Append cmd.CreateParameter("@arc", adLongVarChar, adParamInput, len(arc), arc) 
   'cmd.Parameters.Append cmd.CreateParameter("@codContainer", adLongVarChar, adParamInput, len(codContainer), codContainer) 
   'response.write codContainer 
   'response.Write "prima esecuzione query" 
   'set rsInsert = cmd.Execute(sInsert)

[optime]

beh, ti devi decidere: o fai l'inserimento con una query diretta, oppure usi i cmd...

[Gouken]

i cmd sono commentati se vedi...ho fatto le prove con entrambi e in tutti e dui i modi mi da lo stesso errore

[optime]

ho visto che sono commentati! però la stringa di insert è conformata per usarli, per questo ti dico che devi deciderti: se preferisci la insert senza cmd, i valori pescati della form li devi mettere già nella stringa di insert

[Gouken]

Quindi se lascio i cmd il codice deve essere questo?

cmd.ActiveConnection = connMDB 
cmd.CommandText = sInsert 
cmd.CommandType = adCmdText
cmd.Parameters.Append cmd.CreateParameter("@tipoBolla", adInteger, adParamInput, len(tipobolla), tipoBolla) 
cmd.Parameters.Append cmd.CreateParameter("@numBolla", adInteger, adParamInput, len(numDolla), numBolla) 
cmd.Parameters.Append cmd.CreateParameter("@dataBolla", adDate, adParamInput, len(dataDolla), dataBolla) 
cmd.Parameters.Append cmd.CreateParameter("@dogana", adLongVarChar, adParamInput, len(dogana), dogana) 
cmd.Parameters.Append cmd.CreateParameter("@idDogana", adLongVarChar, adParamInput, len(idDogana), idDogana) 
cmd.Parameters.Append cmd.CreateParameter("@idViaggio", adLongVarChar, adParamInput, len(idViaggio), idviaggio) 
cmd.Parameters.Append cmd.CreateParameter("@colli", adInteger, adParamInput, len(colli), colli) 
cmd.Parameters.Append cmd.CreateParameter("@peso", adInteger, adParamInput, len(peso), peso) 
cmd.Parameters.Append cmd.CreateParameter("@merce", adLongVarChar, adParamInput, len(merce), merce) 
cmd.Parameters.Append cmd.CreateParameter("@mrn", adLongVarChar, adParamInput, len(mrn), mrn) 
cmd.Parameters.Append cmd.CreateParameter("@vd", adLongVarChar, adParamInput, len(vd), vd) 
cmd.Parameters.Append cmd.CreateParameter("@imballo", adLongVarChar, adParamInput, len(imballo), imballo) 
cmd.Parameters.Append cmd.CreateParameter("@arc", adLongVarChar, adParamInput, len(arc), arc) 
cmd.Parameters.Append cmd.CreateParameter("@codContainer", adLongVarChar, adParamInput, len(codContainer), codContainer) 
set rsInsert = cmd.Execute

Grazie e

[optime]

prova!