p2p.wrox.com: Archives - asp_web

asp_web_howto thread: Updating Records
Message #1 by "Jonathan Marshall" <jdmarsh2g@h...> on Fri, 14 Dec 2001 00:07:21 +0000
<html><div style='background-color:'><DIV>How can I trap errors like these and what is
it looking for exactly can not find errors.<BR>What type of cursor type etc... should i use for updating a database.
</DIV>

<DIV>Error Type:<BR>Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)<BR>[Microsoft][ODBC Microsoft Access
Driver] Too few parameters. Expected 7.<BR>/app_update_insert.asp, line 243</DIV>

<DIV>&nbsp;</DIV>

<DIV>app_update_insert.asp
<BR>**************************************************************************************<BR>&lt;%</DIV>

<DIV>'Declare variables needed<BR>dim oConn,oRSapp,strInsert,strValues,adCmdText,objCmd,objConn,sqlString<BR>dim
varApplication<BR>dim varOriginator<BR>dim varTitle<BR>dim varProblem<BR>dim varPeopleID<BR>dim
varID<BR>dim varAction</DIV>

<DIV>&nbsp;</DIV>

<DIV>varApplication = Request.form("Application")<BR>varOriginator = Request.form("Originator")<BR>varProblem =
Request.form("Problem")<BR>varTitle = Request.form("Title")<BR>varPeopleID = Request.form("PeopleID")<BR>varID =
Request.form("ID")<BR>varAction = Request.form("Action")</DIV>

<DIV><BR>response.write "&lt;b&gt;Application value:&lt;/b&gt;&amp;nbsp;" &amp; varApplication
&amp; "&lt;br&gt;"<BR>response.write "&lt;b&gt;Originator value:&lt;/b&gt;&amp;nbsp;"
&amp; varOriginator &amp; "&lt;br&gt;"<BR>response.write "&lt;b&gt;Problem
value:&lt;/b&gt;&amp;nbsp;" &amp; varProblem &amp; "&lt;br&gt;"<BR>response.write
"&lt;b&gt;Title value:&lt;/b&gt;&amp;nbsp;" &amp; varTitle &amp;
"&lt;br&gt;"<BR>response.write "&lt;b&gt;People ID value:&lt;/b&gt;&amp;nbsp;" &amp;
varPeopleID &amp; "&lt;br&gt;"<BR>response.write "&lt;b&gt;Tracking Number
value:&lt;/b&gt;&amp;nbsp;" &amp; varID &amp; "&lt;br&gt;"<BR>response.write
"&lt;b&gt;Action value:&lt;/b&gt;&amp;nbsp;" &amp; varAction &amp;
"&lt;br&gt;"<BR>response.write Request.Form</DIV>

<DIV>set oRSapp = Server.CreateObject("ADODB.Recordset")</DIV>

<DIV><BR>adCmdText = 1</DIV>

<DIV>strInsert = ("UPDATE app_change SET ID = varID, Application = varApplication, Originator = varOriginator, Title =
varTitle, Problem = varProblem, PeopleID = varPeopleID, Action = varAction WHERE ID=" &amp; varID &amp; "")</DIV>

<DIV>&nbsp;</DIV>

<DIV>sqlString = strInsert</DIV>

<DIV>'Create the command object<BR>set objConn=Server.CreateObject("ADODB.Connection")<BR>objConn.Open
"DSN=application"</DIV>

<DIV><BR>set objCmd = Server.CreateObject("ADODB.Command")<BR>set objCmd.ActiveConnection =
objConn<BR>objCmd.CommandText = sqlString<BR>objCmd.CommandType = adCmdText</DIV>

<DIV>&nbsp;</DIV>

<DIV>'Display the insert string<BR>Response.Write sqlString</DIV>

<DIV><BR>objCmd.Execute</DIV>

<DIV><BR>'Close and dereference database objects</DIV>

<DIV>oRSapp.Close<BR>&nbsp;Set oRSapp = Nothing</DIV>

<DIV>&nbsp;Set objCmd = Nothing<BR>objConn.Close<BR>&nbsp;Set objConn =
Nothing<BR>**************************************************************************************</DIV>

<DIV><BR>Here is
app_update.asp<BR>**************************************************************************************<BR>&lt;form
ACTION=app_update_insert.asp method=post&gt;</DIV>

<DIV>&nbsp;</DIV>

<DIV>&nbsp;&lt;table&gt;<BR>&nbsp;&lt;tr&gt;<BR>&nbsp;&lt;td&gt;&lt;b&
gt;Application:&lt;/b&gt;&lt;/td&gt;<BR>&nbsp;&lt;td&gt;&lt;input type=text name=Application
value="&lt;%=oRSsearch("Application")%&gt;"&gt;<BR>&nbsp;&lt;/td&gt;&lt;br&gt;<BR>&n
bsp;&lt;/tr&gt;</DIV>

<DIV>&nbsp;&lt;tr&gt;<BR>&nbsp;&lt;td&gt;&lt;b&gt;Originator:&lt;/b&gt;&lt;/
td&gt;<BR>&nbsp;&lt;td&gt;&lt;input type=text name=Originator
value="&lt;%=oRSsearch("Originator")%&gt;"&gt;<BR>&nbsp;&lt;/td&gt;<BR>&nbsp;&lt;/tr&
;gt;</DIV>

<DIV>&nbsp;&lt;tr&gt;<BR>&nbsp;&lt;td&gt;&lt;b&gt;Request
Date:&lt;/b&gt;&lt;/td&gt;<BR>&nbsp;&lt;td&gt;&lt;INPUT TYPE=TEXT NAME=REQUEST_ON SIZE=10
VALUE="&lt;%=oRSsearch("Request_on")%&gt;"&gt;&lt;br&gt;&lt;/td&gt;<BR>&nbsp;&lt;/tr&g
t;</DIV>

<DIV>&nbsp;&lt;tr&gt;<BR>&nbsp;&lt;td&gt;&lt;b&gt;Title:&lt;/b&gt;&lt;/td&am
p;gt;<BR>&nbsp;&lt;td&gt;&lt;INPUT TYPE=TEXT&nbsp; NAME=Title SIZE=40
value="&lt;%=oRSsearch("Title")%&gt;"&gt;&lt;/td&gt;<BR>&nbsp;&lt;/tr&gt;</DIV>

<DIV>&nbsp;&lt;tr&gt;<BR>&nbsp;&lt;td&gt;&lt;b&gt;Tracking
Number:&lt;/b&gt;&lt;/td&gt;<BR>&nbsp;&lt;td&gt;&lt;INPUT TYPE=TEXT&nbsp; NAME=ID SIZE=2
value="&lt;%=oRSsearch("ID")%&gt;"&gt;&lt;/td&gt;<BR>&nbsp;&lt;/tr&gt;</DIV>

<DIV>&nbsp;&lt;tr&gt;<BR>&nbsp;&lt;td&gt;&lt;b&gt;Problem:&lt;/b&gt;&lt;/td&
amp;gt;<BR>&nbsp;&lt;td&gt;&lt;TEXTAREA&nbsp; NAME=PROBLEM COLS=50 ROWS=3
WRAP=PHYSICAL&gt;&lt;%=oRSsearch("Problem")%&gt;
&lt;/TEXTAREA&gt;&lt;/td&gt;<BR>&nbsp;&lt;/tr&gt;</DIV>

<DIV>&nbsp;&lt;tr&gt;<BR>&nbsp;&lt;td&gt;&lt;b&gt;EnterID#:&lt;/b&gt;&lt;/td
&gt;<BR>&nbsp;&lt;td&gt;&lt;input name=PeopleID size=2
value="&lt;%=oRSsearch("PeopleID")%&gt;"&gt;&amp;nbsp;&amp;nbsp;&lt;font color=red&gt;If you forgot your
ID please&lt;a href=ID.asp&gt;CLICK HERE&lt;/font&gt;&lt;/a&gt;&lt;/td&gt;</DIV>

<DIV><BR>&nbsp;&lt;/tr&gt;<BR>&nbsp;&lt;/table&gt;</DIV>

<DIV>&nbsp;&lt;center&gt;&lt;INPUT TYPE=submit VALUE="Update"&gt;&amp;nbsp;&lt;input type=reset
value="Clear Form" &gt;&lt;/center&gt;</DIV>

<DIV><BR>&nbsp;&lt;/form&gt;<BR>**********************************************************************
****************</DIV></div><br clear=all><hr>Join the world?s largest e-mail service with MSN Hotmail.
<a href='http://go.msn.com/bql/hmtag4_etl_EN.asp'>Click Here</a><br></html>
Return to Index
P2P Archives
