---
title: "Vad betyder detta fel??"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/6643-vad-betyder-detta-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "PatrikB"
published: "2000-09-20T21:20:00.000Z"
updated: "2000-09-20T21:35:00.000Z"
replies: 2
views: 195
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/6643-vad-betyder-detta-fel"
---

# Vad betyder detta fel??

## #1 — PatrikB, 2000-09-20T21:20Z

Hello,

detta har jag aldrig fått förut:

```
Microsoft JET Database Engine fel '80004005' 

Frågan är för komplex. 

/kennel/search.asp, rad 74
```

hoppas att det finns ngn som kan förklara detta .....

cya,
PatrikB

Permalänk: https://www.webforum.nu/p/6643

## #2 — Vide, 2000-09-20T21:26Z

Hehe... fint felmeddelande.. ett sånt vill jag också få... ;)

Visa koden runt felmeddelandet...

Permalänk: https://www.webforum.nu/p/246672

## #3 — PatrikB, 2000-09-20T21:35Z

Hello Vide,

visst va det fint, felmeddelandet.

Det kommer sig av att jag loopar upp ett SQL utryck och jag tror att det blir liiiite för långt/många byte

här kommer koden ivarje fall:

```
Function GetSearchResult(ByRef strSearch)

	Dim strSQL
	Dim objRSsearch
	strSQL = "SELECT fldRA_ID, fldRA_RAS FROM tblRas WHERE fldRA_RAS LIKE '%" & _
			strSearch & "%'"

	Set objRSsearch = Server.CreateObject("ADODB.Recordset")
		objRSsearch.Open strSQL, objConn, 0, 1

		If objRSsearch.EOF Then
			Dim k_strSQL
			Dim k_objRS
			k_strSQL = "SELECT KE_ID, KE_NAME, KE_DESCRIPTION " & _
						"FROM KENNEL " & _
						"WHERE KE_NAME LIKE '%" & strSearch & "%'" & _
						" OR KE_DESCRIPTION LIKE '%" & strSearch & "%'"

			Set k_objRS = Server.CreateObject("ADODB.Recordset")
				k_objRS.Open k_strSQL, objConn, 0, 1

				If k_objRS.EOF Then
					Response.Write("Inga träffar för: <b>" & strSearch & "</b>")
				Else
					Do Until k_objRS.EOF
						Response.Write("<b><a href=""showKennel.asp?kennel=" & _
										n_objRS(0) &""">" & n_objRS(1) & "</a></b><br>" & _
										n_objRS(2) & "<br><br>")
						k_objRS.MoveNext
					Loop
				End If
				k_objRS.Close
			Set k_objRS = nothing
		Else
			Dim arrRasID
			Do Until objRSsearch.EOF
				arrRasId = arrRasID & objRSsearch(0) & ","
				objRSsearch.MoveNext
			Loop

			Dim t_arrRasID
			Dim t_strSQL
			Dim strLikeStmt
			Dim i
			Dim n_strSQL
			Dim n_objRS
			t_arrRasID = Split(arrRasID,",")
			t_strSQL = "SELECT KE_ID, KE_RAS, KE_NAME, KE_DESCRIPTION " & _
						"FROM KENNEL WHERE "
			If strSearch = "a" or strSearch = "A" Then
				t_strSQL = "SELECT KE_ID, KE_RAS, KE_NAME, KE_DESCRIPTION " & _
						"FROM KENNEL WHERE "
			Else
				For i = 0 To UBound(t_arrRasID) - 1
					strLikeStmt = strLikeStmt & "KE_RAS " & _
								"LIKE '%" & "," & t_arrRasID(i) & "," & "%'" & _
								" OR "
				Next
			End If
			n_strSQL = t_strSQL & strLikeStmt & _
					" KE_NAME LIKE '%" & strSearch & "%'" & _
					" OR KE_DESCRIPTION LIKE '%" & strSearch & "%' ORDER BY KE_NAME Asc"

			Set n_objRS = Server.CreateObject("ADODB.Recordset")
				n_objRS.Open n_strSQL, objConn, 0, 1

				If n_objRS.EOF Then
					Response.Write("Inga träffar för: <b>" & strSearch & "</b>")
				Else
					Do Until n_objRS.EOF
						Response.Write("<b><a href=""showKennel.asp?kennel=" & _
										n_objRS(0) &""">" & n_objRS(2) & "</a></b><br>" & _
										n_objRS(3) & "<br><br>")
						n_objRS.MoveNext
					Loop
				End If
				n_objRS.Close
			Set n_objRS = nothing
		End If
		objRSsearch.Close
	Set objRSsearch = nothing
End Function
```

lite kod .. ;) 

är det ngn som vet hur många byte en sql sträng får innehålla?

cya
PatrikB

Permalänk: https://www.webforum.nu/p/246673

---

Tråden på webben: https://www.webforum.nu/amne/asp/6643-vad-betyder-detta-fel