Podle této stránky
, typ parametru adVariant (tj. 12) není podporován ADO.
Měli byste používat konstanty, aby byl váš kód čitelnější, např.
const aduseClient =3Const adoserenstatic =3const adcmdtext =1const adcmdStoredProc =4Const Advarch =200 const adnumeric =2Const adparamputput =3const adparamtUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUrlUtrultrulTult. Parameters.Append cmd.CreateParameter("theAccountId", adVarChar, adParamInput, , Request.Form ("aid"))cmd.Parameters.Append cmd.CreateParameter("theAwardId", adNumeric, adParamInput, , award_id)App.Parameters. cmd.CreateParameter("theDueDate", adVarChar, adParamInput, 100, theDueDt)cmd.Parameters.Append cmd.CreateParameter("theSubmittedDate", adVarChar, adParamInput, 100, theSubmitteParamInput, 100, theSubmitte.ParmeterDascription.cm"Cubmitted. adVarChar, adParamInput, 100, theReportDesc)cmd.Parameters.Append cmd.CreateParameter("theFormId", adVarChar, adParamInput, 100, theFrmId)cmd.Parameters.Append cmd.CreateNumeric,OturnCoput(") adVarChar, adParamInput, 100, theFrmId)cmd.
Možná zkuste toto:
cmd.CommandType =adCmdTextcmd.CommandText ="{CALL deadlines_summary.PR_SUMMARY_IN(?,?,?,?,?,?,?)}"
Číselné parametry nevyžadují hodnotu velikosti.
Měli byste také zkusit použít typ parametru adDate místo převodu dat na hodnoty řetězce.
Při použití parametru vazby musíte odstranit uvozovky, tj. jednoduše použijte theSubmittedDt =submit_date místo theSubmittedDt ="'" &submit_date &"'" .