Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
No value given for one or more required parameters
Message
General information
Forum:
Internet
Category:
Active Server Page
Miscellaneous
Thread ID:
01488574
Message ID:
01488579
Views:
21
>>>>hi all,
>>>>
>>>>hoping someone might be able to help us solve an issue we are left scratching our heads at!
>>>>after moving to an alternative webserver we are having the following error when updating an mdb:
>>>>
>>>>Microsoft JET Database Engine error '80040e10'
>>>>
>>>>No value given for one or more required parameters.
>>>>
>>>>/intcouriers/newsite/GlobalBookings/Confirmation.asp, line 221
>>>>
>>>>the code in question is:
>>>>
>>>> If (Not MM_abortEdit) Then
>>>> ' execute the update
>>>> Set MM_editCmd = Server.CreateObject("ADODB.Command")
>>>> MM_editCmd.ActiveConnection = MM_editConnection
>>>> MM_editCmd.CommandText = MM_UpdateQuery
>>>> MM_editCmd.Execute
>>>> MM_editCmd.ActiveConnection.Close
>>>>
>>>> End If
>>>>
>>>>can anyone see what we could be doing wrong?
>>>>
>>>>thanks
>>>
>>>Whats in the strings MM_editConnection and MM_UpdateQuery
>>
>>
If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then
>>		
>>		  ' create the sql update statement
>>		  MM_UpdateQuery = "update " & MM_editTable & " set "
>>		  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
>>			FormVal = MM_fields(i+1)
>>			MM_typeArray = Split(MM_columns(i+1),",")
>>			Delim = MM_typeArray(0)
>>			If (Delim = "none") Then Delim = ""
>>			AltVal = MM_typeArray(1)
>>			If (AltVal = "none") Then AltVal = ""
>>			EmptyVal = MM_typeArray(2)
>>			If (EmptyVal = "none") Then EmptyVal = ""
>>			If (FormVal = "") Then
>>			  FormVal = EmptyVal
>>			Else
>>			  If (AltVal <> "") Then
>>				FormVal = AltVal
>>			  ElseIf (Delim = "'") Then  ' escape quotes
>>				FormVal = "'" & Replace(FormVal,"'","''") & "'"
>>			  Else
>>				FormVal = Delim + FormVal + Delim
>>			  End If
>>			End If
>>			If (i <> LBound(MM_fields)) Then
>>			  MM_UpdateQuery = MM_UpdateQuery & ","
>>			End If
>>			MM_UpdateQuery = MM_UpdateQuery & MM_columns(i) & " = " & FormVal
>>		  Next
>>		  MM_UpdateQuery = MM_UpdateQuery & ", DateStamp = '" & Now() & "' where " & MM_editColumn & " = " & MM_recordId
>
>And whats in MM_editConnection
>
>and which is line 221 of your asp page.
>
>What can be helpful here is to use response.write to print the connection string or the update string onto the web page.that way you can see exactly what is sent to the server.
>
>Here's a usefullink
>
>http://www.webconcerns.co.uk/asp/accessqueries/accessqueries.asp

this is edit connection:
	' query string to execute
		MM_UpdateQuery = ""
		MM_EditQuery = ""
		
		' *** Update Record: set variables
		  MM_editConnection = MM_Receiver_STRING
		  MM_editTable = "Data"
and this is the code on line 221:
		  If (Not MM_abortEdit) Then
			' execute the update
			Set MM_editCmd = Server.CreateObject("ADODB.Command")
			MM_editCmd.ActiveConnection = MM_editConnection
			MM_editCmd.CommandText = MM_UpdateQuery
			MM_editCmd.Execute
			MM_editCmd.ActiveConnection.Close
Specialist in Advertising, Marketing, especially Direct Marketing

I run courses in Business Management and Marketing
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform