insert con adobd command

[vecchioste]

non riesco a usare adodb.command mi da errore interno del server ma lo script mi sembra giusto è questo.

grazie

Dim vaprimo, vasecondo, vaterso
vaprimo = Request.form("primo")
vasecondo = Request.form("secondo")
vaterso = Request.form("terso")
Dim path, objCon, objCmd, strSql, intNrOfRecords
path = "nont.mdb"
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath(path)
Set objCmd = Server.CreateObject("ADODB.Command")
strSql="insert into messaggi (primo, secondo, terso) values ('"&vaprimo&"', '"&vasecondo&"', '"&vaterso&"')"
objCmd.ActiveConnection = objCon
objCmd.CommandText = strSql
objCmd.CommandType = adCmdText
objCmd.Execute intNrOfRecords
set objCmd = Nothing
objCon.Close
Set objCon = Nothing
Response.Write "Numero di record inseriti: " & intNrOfRxecords

[albis]

ti dà errore 500

se sì vai sulle opzioni avanzate di internet explorer e deflegga Mostra messaggi di errore http brevi

[vecchioste]

esatto

[vecchioste]

ADODB.Command error '800a0bb9'

Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.

[Alethesnake]

da quello che vedo manca un set nell'assegnazione della connessione al command:

Set objCmd.ActiveConnection = objCon

edit:
se usi adodb.command usa anche i parameters per passare i parametri, è più comodo e pulito

[vecchioste]

come faresti ad eseguirla?

[vecchioste]

intendevo dire come la scriveresti pulita con i parametri?

se usi adodb.command usa anche i parameters per passare i parametri, è più comodo e pulito

[Alethesnake]

qualcosa del tipo:

...
strSql = "insert into messaggi (primo, secondo, terso) values (?, ?, ?)"
with objCmd
    Set .ActiveConnection = objCon
    .CommandText = strSql
    .CommandType = adCmdText
    .parameters.append .createParameter(, adInteger, adParamInput)
    .parameters.append .createParameter(, adInteger, adParamInput)
    .parameters.append .createParameter(, adInteger, adParamInput)

    objCmd(0) = varPrimo
    objCmd(1) = varSecondo
    objCmd(2) = varTerso

    .Execute
end with
set objCmd = Nothing

io ho considerato che inserissi tre dati di tipo intero, questo poi devi vederlo tu nel createparameter

[vecchioste]

non ho capito i ?

e

.parameters.append .createParameter(, adInteger, adParamInput)

cosa gli fai fare?

[optime]

vechhio, strSQL e' gia' una stringa buona per l'inserimento?