Access-koppling med ASP

2 svar · 208 visningar · startad av Thorsander 12 maj 2002

ThorsanderMedlem sedan aug. 2001746 inlägg

Trådstart12 maj 2002 18:13#1

Får följande fel:

Microsoft OLE DB Provider for ODBC Drivers error '80040e21' 

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done. 

/lmsport/admin/main/about/setchange.asp, line 109

Med följande kod:

<%
		' Connection string
	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=about.mdb;DefaultDir=d:\internet\domains\ngindesign.com\tmp;Uid=Admin;Pwd=;"
	Set rs = Server.CreateObject("ADODB.RecordSet")

	Uppdatera = "SELECT * FROM about WHERE aboutID=" & aboutIDInput & ""
	rs.Open Uppdatera, Connect, 1, 2
	
				rs("aboutID") = aboutIDInput
				rs("aboutText") = aboutTextInput
	
	rs.Update
	rs.Close
	Connect.Close
			
		If Err.number = 0 Then
			Response.Write "Transmission successful ...<br>"
			Else
			Response.Write "Transmission failed - try again or contact <a href=mailto:info@ngindesign.com>Simon Thorsander</a>.<br>"
		End If
	%>

Vad göra!?
Någon som kan ge mig en hint...

ThorsanderMedlem sedan aug. 2001746 inlägg

12 maj 2002 18:17#2

Nevermind

Jag hittade felet!!!
Kanske inte så konstigt att det inte funkade!!!

Ursäkta att jag upptog din dyrbara tid!

LarsGMedlem sedan dec. 200012 464 inlägg

12 maj 2002 18:21#3

Problemet är nog relaterat till att aboutText är av typen PM/Memo skulle jag gissa. Dom måste ligga sist i select-listan och lite så där.

I stället för att hålla på med recordset och gå över ån efter vatten så skulle rekommendera att du gör detta med sql direkt.

<%
' Connection string
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=about.mdb;DefaultDir=d:\internet\domains\ngindesign.com\tmp;Uid=Admin;Pwd=;"
	
Uppdatera = "update about set aboutText = '" & _
replace(aboutTextInput,"'","''") & "'" & _
" where aboutid = " & aboutIDInput
connect.execute uppdatera,,128
Connect.Close

If Err.number = 0 Then
	Response.Write "Transmission successful ...<br>"
Else
	Response.Write "Transmission failed - try again or contact <a href=mailto:info@ngindesign.com>Simon Thorsander</a>.<br>"
End If
%>

Det blir mindre och effektivare kod.