Microsoft Jet Database Engine (0*80040E014) ERROR

S

Sanju

Hai to every one,

here is my question
I have been designed a coding to accept the information from the
user
(i.e., the Name, Staffno and comments) but when click on SUMBIT button I
am getting the following error
Microsoft Jet Database Engine (0*80040E014)
Number of query values and the destination feilds are not the same
/reports/formreport.asp,Line 29
-------------------------------------------------------------------------------------------
The coding for the above design

<html>
<% @LANGUAGE="VBScript" %>
<body>
<%
' Declaring variables
Dim username, userstaffno, usercomments, data_source,
con, sql_insert

' A Function to check if some field entered by user is
empty
Function ChkString(string)
If string = "" Then string = " "
ChkString = Replace(string, "'", "''")
End Function

' Receiving values from Form
username = ChkString(Request.Form("username"))
userstaffno = ChkString(Request.Form("userstaffno"))
usercomments = ChkString(Request.Form("usercomments"))


data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=" &_
Server.MapPath("formreport.mdb")

sql_insert = "insert into formreport
(username,userstaffno,usercomments)"
sql_insert = sql_insert & " values (' "&
Request.Form("username") & " ',' " & Request.Form("userstaffno") & " ',' " &
Request.Form(" usercomments") & " ',' " & " ' )"

' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
con.Execute sql_insert

' Done. Close the connection
con.Close
Set con = Nothing
Set sql_insert = Nothing
Response.Write "All records were successfully entered
into the database."
%>
</body>
</html>


Thanks in advance
 
S

Sanju

Hai,Chris !
Thanks for your help.
I have used all the solutions sent by you, but even then I am getting the
same error

Error type :
Microsoft Jet Database Engine (0*80040E14)
Number of querty values and the desatination feilds are not the same
/report/formreport.asp,Line 2
------------------------------------------------------------------------------------------------
The coding is shown below



<html>
<% @LANGUAGE="VBScript" %>
<body>
<%
' Declaring variables
Dim username, userstaffno, usercomments, data_source,
con, sql_insert

' A Function to check if some field entered by user is
empty
Function ChkString(string)
If string = "" Then string = " "
ChkString = Replace(string, "'", "''")
End Function

' Receiving values from Form
username = ChkString(Request.Form("username"))
userstaffno = ChkString(Request.Form("userstaffno"))
usercomments = ChkString(Request.Form("usercomments"))


data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=" &_
Server.MapPath("formreport.mdb")

sql_insert = "insert into formreport
(username,userstaffno,usercomments)"
sql_insert = sql_insert & " values (' " &
Request.Form("username") & " ' , ' " & Request.Form("userstaffno") & " ' , '
" & Request.Form("usercomments") & " ' , ' " & " ' )"

' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
con.Execute sql_insert

' Done. Close the connection
con.Close
Set con = Nothing
Set sql_insert = Nothing
Response.Write "All records were successfully entered
into the database."
%>
</body>
</html>


Please help me
Thanks in advance
 
S

Sanju

Chris O'C via AccessMonster.com said:
You're missing a space between the double quote and the ampersand.

sql_insert = sql_insert & " values (' " &

As your code is written, a space before and after each string value will be
inserted into each column in the table. You probably don't want that. Also
the usercomments identifier on the web page probably doesn't begin with a
space, so that might cause an error, too.

Chris
Microsoft MVP
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Syntax error in insertinto statement 3
Syntax error in Insert Into statement 1
simple database error 1
Feedback database 1
feedback database 1
Query error 1
ASP error when uploaded ""An error occurred on the server when processing the URL" 2
Attempting ASP link to Database 1

Top