---
title: "Objekt krävs"
type: "forum-thread"
url: "https://www.webforum.nu/amne/databaser-sql/110097-objekt-krävs"
topic: "Databaser & SQL"
topic_url: "https://www.webforum.nu/amne/databaser-sql"
author: "Mika3l"
published: "2004-08-26T17:54:30.000Z"
updated: "2004-08-31T15:17:21.000Z"
replies: 22
views: 571
page: 1
pages: 2
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/databaser-sql/110097-objekt-krävs"
---
# Objekt krävs
_Sida 1 av 2._
## #1 — Mika3l, 2004-08-26T17:54Z
Har följande SQL-sats på en asp-sida:
```
NewsSQL = "SELECT t1.f_date, t1.f_text, t1.f_readmore, t2.f_cat FROM t1.tblNews, t2.tblPages WHERE t2.f_PID = " & t1.f_readmore & " ORDER BY t1.f_NID DESC LIMIT 0,6"
```
Får detta felmeddelandet:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: ''
Det jag vill göra är alltså att hämta ut nyheten samt kategori-idt till den ev sidan som det ska länkas till (det är inte alltid det finns någon sida att länka till).
Permalänk: https://www.webforum.nu/p/110097
## #2 — cyprys, 2004-08-26T17:56Z
Visa mer kod. Felet ligger i asp-koden.
Permalänk: https://www.webforum.nu/p/1419718
## #3 — Mika3l, 2004-08-26T18:04Z
```
Set rsNews = Server.CreateObject("ADODB.Recordset")
NewsSQL = "SELECT t1.f_date, t1.f_text, t1.f_readmore, t2.f_cat FROM t1.tblNews, t2.tblPages WHERE t2.f_PID = " & t1.f_readmore & " ORDER BY t1.f_NID DESC LIMIT 0,6"
'Response.Write(NewsSQL)
rsNews.Open NewsSQL, Connection
If rsNews.EOF Then
Response.Write("| Inga nyheter är för tillfället tillgängliga. |
")
Else
Dim arrBgcolor,i
arrBgcolor = Array("#BFBFBF","#F9F9F9")
i = 0
Do Until rsNews.EOF
Response.Write("" & rsNews("f_date") & "")
Response.Write("
")
Response.Write(rsNews("f_text") & "
")
If rsNews("f_readmore") <> "" Then
Response.Write("Läs mer")
End If
Response.Write(" |
")
i = i+1
rsNews.MoveNext
Loop
End If
rsNews.Close : Set rsNews = Nothing
```
Permalänk: https://www.webforum.nu/p/1419722
## #4 — cyprys, 2004-08-26T18:13Z
Och hur ser connection ut och på vilken rad får du felet?
Permalänk: https://www.webforum.nu/p/1419724
## #5 — Mika3l, 2004-08-26T18:16Z
```
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={MySQL};SERVER=localhost;DATABASE=databas;USER=mikael;PASSWORD=test;"
```
Får felmeddelande på NewsSQL = ".....".
Permalänk: https://www.webforum.nu/p/1419725
## #6 — Sebbe, 2004-08-26T18:27Z
Jag tror väl inte att t1 är ett objekt du har skapat?
```
NewsSQL = "SELECT t1.f_date, t1.f_text, t1.f_readmore, t2.f_cat FROM t1.tblNews, t2.tblPages WHERE t2.f_PID = t1.f_readmore ORDER BY t1.f_NID DESC LIMIT 0,6"
```
Permalänk: https://www.webforum.nu/p/1419728
## #7 — Mika3l, 2004-08-26T18:31Z
Det har du så rätt i Sebbe! Men jag får detta felmeddelandet istället (samma rad):
ADODB.Recordset (0x800A0BB9)
Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.
Permalänk: https://www.webforum.nu/p/1419729
## #8 — Sebbe, 2004-08-26T18:35Z
Är t2.f_PID och t1.f_readmore av samma datatyp?
Permalänk: https://www.webforum.nu/p/1419731
## #9 — Mika3l, 2004-08-26T18:45Z
Dom ska vara det iaf, men det är bäst jag kollar. Man vet ju aldrig...
Permalänk: https://www.webforum.nu/p/1419735
## #10 — Sebbe, 2004-08-26T18:47Z
Nu såg jag nog vad som var felet! Tycker du inte att det fetmarkerade ser lite knasigt ut?
```
NewsSQL = "SELECT t1.f_date, t1.f_text, t1.f_readmore, t2.f_cat FROM [b]t1.tblNews, t2.tblPages[/b] WHERE t2.f_PID = t1.f_readmore ORDER BY t1.f_NID DESC LIMIT 0,6"
```
Permalänk: https://www.webforum.nu/p/1419737
## #11 — Mika3l, 2004-08-26T18:48Z
Nej, är jag blind om jag inte ser något fel? ;)
Fälten är f.ö av samma typ (int).
Permalänk: https://www.webforum.nu/p/1419739
## #12 — Sebbe, 2004-08-26T18:51Z
```
NewsSQL = "SELECT t1.f_date, t1.f_text, t1.f_readmore, t2.f_cat FROM [b]tblNews t1, tblPages t2[/b] WHERE t2.f_PID = t1.f_readmore ORDER BY t1.f_NID DESC LIMIT 0,6"
```
Permalänk: https://www.webforum.nu/p/1419741
## #13 — Mika3l, 2004-08-26T18:59Z
Haha, ibland är man bra blind! ;)
Men det vill inte riktigt fungera ändå! :o
Får det här när jag skriver ut SQL-satsen:
> SELECT t1.f_date, t1.f_text, t1.f_readmore, t2.f_cat FROM tblNews t1, tblPages t2 WHERE t2.f_PID = t1.f_readmore ORDER BY t1.f_NID DESC LIMIT 0,6
Felmeddelandet är:
> ADODB.Recordset (0x800A0BB9)
> Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.
```
NewsSQL = "SELECT t1.f_date, t1.f_text, t1.f_readmore, t2.f_cat FROM tblNews t1, tblPages t2 WHERE t2.f_PID = t1.f_readmore ORDER BY t1.f_NID DESC LIMIT 0,6"
rsNews.Open NewsSQL, Connection
```
Permalänk: https://www.webforum.nu/p/1419746
## #14 — cyprys, 2004-08-26T19:09Z
```
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open " DRIVER={MySQL};SERVER=localhost;DATABASE=databas;USER=mikael;PASSWORD=test;"
NewsSQL = "SELECT t1.f_date, t1.f_text, t1.f_readmore, t2.f_cat FROM tblNews t1, tblPages t2 WHERE t2.f_PID = t1.f_readmore ORDER BY t1.f_NID DESC LIMIT 0,6"
Set rsNews = Connection.Execute(NewsSql)
If rsNews.EOF Then
Response.Write("| Inga nyheter är för tillfället tillgängliga. |
")
Else
Dim arrBgcolor,i
arrBgcolor = Array("#BFBFBF","#F9F9F9")
i = 0
Do Until rsNews.EOF
Response.Write("" & rsNews("f_date") & "")
Response.Write("
")
Response.Write(rsNews("f_text") & "
")
If rsNews("f_readmore") <> "" Then
Response.Write("Läs mer")
End If
Response.Write(" |
")
i = i+1
rsNews.MoveNext
Loop
End If
rsNews.Close : Set rsNews = Nothing
```
Permalänk: https://www.webforum.nu/p/1419753
## #15 — Mika3l, 2004-08-26T19:18Z
Får objekt krävs-fel på Set rsNews-raden. Fattar fan inte vad som är fel! :x
Permalänk: https://www.webforum.nu/p/1419761
## #16 — yohpops, 2004-08-27T09:10Z
Prova med enklast möjliga SQL-fråga.
Permalänk: https://www.webforum.nu/p/1419929
## #17 — Mika3l, 2004-08-28T11:38Z
Testade med NewsSQL = "SELECT \* FROM tblNews" men jag får fortfarande Objekt krävs. Ibland undrar man varför man håller på med sånt här... :x :OO
Permalänk: https://www.webforum.nu/p/1420515
## #18 — @nders, 2004-08-28T11:49Z
Visa hur koden ser ut nu, exakt.
mvh
Permalänk: https://www.webforum.nu/p/1420524
## #19 — Mika3l, 2004-08-28T12:35Z
```
NewsSQL = "SELECT t1.f_date, t1.f_text, t1.f_readmore, t2.f_cat FROM tblNews t1, tblPages t2 WHERE t2.f_PID = t1.f_readmore ORDER BY t1.f_NID DESC LIMIT 0,6"
Set rsNews = Connection.Execute(NewsSQL)
If rsNews.EOF Then
Response.Write("| Inga nyheter är för tillfället tillgängliga. |
")
Else
Dim arrBgcolor,i
arrBgcolor = Array("#BFBFBF","#F9F9F9")
i = 0
Do Until rsNews.EOF
Response.Write("" & rsNews("f_date") & "")
Response.Write("
")
Response.Write(rsNews("f_text") & "
")
If rsNews("f_readmore") <> "" Then
Response.Write("Läs mer")
End If
Response.Write(" |
")
i = i+1
rsNews.MoveNext
Loop
End If
rsNews.Close : Set rsNews = Nothing
```
Sidan är inkluderad i en annan fil som skapar kopplingen till databasen.
Permalänk: https://www.webforum.nu/p/1420547
## #20 — cyprys, 2004-08-28T12:42Z
Hur har du initierat Connection?
Det verkar som att du gömt den någonstans.
Permalänk: https://www.webforum.nu/p/1420549
---
Tråden på webben: https://www.webforum.nu/amne/databaser-sql/110097-objekt-krävs
Nästa sida: https://www.webforum.nu/amne/databaser-sql/110097-objekt-krävs/page2.md