Coding Forum

**mworld** · 06-28-2003, 07:11 PM

I have an update record that brings me the following message:

Quote:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.
/gangstermatch/go.asp, line 38

I get this error a lot. I think its due to the update column being numerical. I need a work around or something.

Quote:

<%
' this updates the amount of credits the user has
' this sets the new amount of credits
Dim newcred
newcred = ((credits.Fields.Item("credits").Value) + 1)
' this is the update command line
sql = "UPDATE users SET credits = '5' WHERE ID = '" + Request.QueryString("ID") + "'"
' execute the update
Dim MM_editCmd
Dim MM_editConnection
MM_editConnection = MM_gangstermatch_STRING
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = sql
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
' ends updating a users credits
%>

Thanks for helping

**dk01** · 06-29-2003, 10:47 AM

This can't be the whole code right? We need the whole code so that we can see what line 38 is. Also can you list the fields that you have and what type of data (string, integer, etc) they are. Thanks.
-dk

**mworld** · 06-29-2003, 12:54 PM

The whole page code is:

Quote:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim credits__MMColParam
credits__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
credits__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim credits
Dim credits_numRows

Set credits = Server.CreateObject("ADODB.Recordset")
credits.ActiveConnection = MM_gangstermatch_STRING
credits.Source = "SELECT * FROM users WHERE ID = " + Replace(credits__MMColParam, "'", "''") + ""
credits.CursorType = 0
credits.CursorLocation = 2
credits.LockType = 1
credits.Open()

credits_numRows = 0
%>
<%
' this updates the amount of credits the user has
' this sets the new amount of credits
Dim newcred
newcred = ((credits.Fields.Item("credits").Value) + 1)
' this is the update command line
sql = "UPDATE users SET credits = '5' WHERE ID = '" + Request.QueryString("ID") + "'"
' execute the update
Dim MM_editCmd
Dim MM_editConnection
MM_editConnection = MM_gangstermatch_STRING
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = sql
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
' ends updating a users credits
%>
<html>
<head>
<title><%=gamename%> :: Clocked</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" type="text/css" href="gangster.css" />
</head>

<body>
<table width="100%" border="0" cellspacing="5" cellpadding="0">
<tr>
<td><p class="t">Clocked!</p>
<p>Well done, you have earned your friend another credit for the game. As
the aim of the game is to get as many credits as possible, this is indeed
a good thing. Want to start your own gang? Sign up here...</p>
</td>
</tr>
</table>

</body>
</html>
<%
credits.Close()
Set credits = Nothing
%>

Also the data fields are:

Quote:

ID - AutoNumber
Username - text
Password - text
email - text
fullname - text
MSN - text
Yahoo - text
ICQ - number
AIM - text
Bio - memo
credits - number
Admin - text
gang - text

Line 38 is:

Quote:

MM_editCmd.Execute

I think. Thanks