---
title: "Objekt krävs.: 'ActiveConnection'"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/88008-objekt-krävs-activeconnection"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Karin_Parin"
published: "2003-10-08T16:59:55.000Z"
updated: "2003-10-08T17:49:02.000Z"
replies: 14
views: 365
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/88008-objekt-krävs-activeconnection"
---

# Objekt krävs.: 'ActiveConnection'

## #1 — Karin_Parin, 2003-10-08T16:59Z

Hej!
Nu har jag suttit i många timmar och kan inte komma fram till vad jag har gjort för tokigt.
Felmeddelandet jag får är att ActiveConnection Objekt krävs, men vilket objekt är det som krävs?

Koden ser ut som följer.. har inkluderat en databasanslut fil
Syftet är att jag vill få ut hur många som har varit inne på sidan den senaste timmen genom att hämta värden från SQLdb.

\<%
Dim StartTime
Dim objCommand
Dim objRS
Dim objConnect 

StartTime = now
Set objCommand = Server.CreateObject("ADODB.Command")
Set objCommand.ActiveConnection \= objConnect
objCommand.CommandType = adCmdText

Set objRS= Server.CreateObject("ADODB.Recordset")
Set objRS.ActiveConnection = objCommand
Set objRS.Source = objCommand

...%\>

Tack så länge!

//Karin :)

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

## #2 — Sebbe, 2003-10-08T17:02Z

Skippa "set". :)

```
objCommand.ActiveConnection = objConnect
```

Välkommen till wF! :D

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

## #3 — Karin_Parin, 2003-10-08T17:06Z

Tack men då får jag följande felmeddelande

Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.

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

## #4 — Sebbe, 2003-10-08T17:08Z

Hur ser objConnect ut?

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

## #5 — @nders, 2003-10-08T17:09Z

Det verkar som att connectionobjektet **objConnect** inte är skapat än.

Välkommen hit också! :)

Mvh

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

## #6 — Engine^, 2003-10-08T17:17Z

```
StartTime = now 
Set objCommand = Server.CreateObject("ADODB.Command") 
[red]Set objConnect = Server.CreateObject("ADODB.Connection")[/red]
Set objCommand.ActiveConnection = objConnect 
objCommand.CommandType = adCmdText
```

**red.**
Just ja... Välkommen till **wF** :)

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

## #7 — Karin_Parin, 2003-10-08T17:17Z

Hela koden ser ut som följer..jag är osäker på om objConnect är skapat men jag har ju som sagt inkluderat en databas anslut..beror felet på det..?
Tack!

MVH

Karin
\<%@ Language=VBScript %\>
\<!--#include file="adovbs.inc"--\>
\<!--#include file="Databasanslut.asp"--\>
\<%
Dim StartTime
Dim objCommand
Dim objRS
Dim objConnect 

StartTime = now 'när sidan startades
Set objCommand= Server.CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnect
objCommand.CommandType = adCmdText

Set objRS= Server.CreateObject("ADODB.Recordset")
Set objRS.ActiveConnection = objCommand
Set objRS.Source = objCommand

tmpDate = DateAdd("h", -1,now())
objCommand.CommandText =  "SELECT COUNT(User_ID) as CNT  FROM tblUserLog "&\_
"WHERE Log_Date between '" & now & "' AND #"& tmpDate &"# "
objRS.Open
HourUsers= objRS("CNT")
objRS.Close
HourUsers = ObjRS("COUNT")
%\>

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

## #8 — @nders, 2003-10-08T17:20Z

Hur ser koden ut i filen Databasanslut.asp?

Mvh

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

## #9 — Sebbe, 2003-10-08T17:21Z

Testa med det här. :)

```
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dindatabas.mdb")
strSQL = "SELECT COUNT(*) FROM tlbUserLog WHERE Log_Date BETWEEN #" & Now() & "# AND #" & DateAdd("h", -1, Now()) & "#"
Set objRS = objConn.Execute(strSQL)

HourUsers = objRS(0)

Set objRS = Nothing
objConn.Close : Set objConn = Nothing
```

Använder här connection-objektet tillsammans med ett recordset-objekt istället för ett command-objekt. :)

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

## #10 — Karin_Parin, 2003-10-08T17:24Z

Databasanslut ser ut så här:
Dim objConn
Dim SQL
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=SQLOLEDB;Data Source=000.00.000.00;" \_
	& "Initial Catalog=dbkaas;User Id=xxx.xx;Password=XXXX;" \_
	& "Connect Timeout=15;Network Library=dbmssocn;"

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

## #11 — @nders, 2003-10-08T17:26Z

Eftersom du i filen databasanslut.asp kallar connectionobjektet för objConn bör du byta den här raden:

```
objCommand.ActiveConnection = objConnect
```

 till 

```
objCommand.ActiveConnection = objConn
```

Mvh

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

## #12 — Sebbe, 2003-10-08T17:26Z

Funkar det såhär då? :)

```
<% 
Dim StartTime 
Dim objCommand 
Dim objRS 
Dim objConnect 

StartTime = now 'när sidan startades 
Set objCommand= Server.CreateObject("ADODB.Command") 
objCommand.ActiveConnection = objConn
objCommand.CommandType = adCmdText 

Set objRS= Server.CreateObject("ADODB.Recordset") 
Set objRS.ActiveConnection = objCommand 
Set objRS.Source = objCommand

tmpDate = DateAdd("h", -1,now()) 
objCommand.CommandText = "SELECT COUNT(User_ID) as CNT FROM tblUserLog "&_ 
"WHERE Log_Date between '" & now & "' AND '"& tmpDate &"'" 
objRS.Open 
HourUsers= objRS("CNT") 
objRS.Close 
%>
```

**/red** Nu var det din tur @nders! ;)

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

## #13 — Karin_Parin, 2003-10-08T17:38Z

Men hur skriver jag i  här , jag har ju en SQL db som jag jobbar emot... Server.MapPath("mindatabas.mdb")

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

## #14 — Sebbe, 2003-10-08T17:42Z

> **Karin_Parin skrev:**
>
> Men hur skriver jag i  här , jag har ju en SQL db som jag jobbar emot... Server.MapPath("mindatabas.mdb")

Skippa den koden och kolla på de andra koderna jag och @nders skrev. :)

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

## #15 — Karin_Parin, 2003-10-08T17:49Z

Tackar så mkt, nu fungerar det som jag vill!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/88008-objekt-krävs-activeconnection