---

Hej Ng,

Jeg har inkluderet en funktionsfil med følgende funktion:

function connect_db(dbnavn)
dim Conn

'Opretter forbindelse til database
set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "DRIVER={MySQL}; server=localhost; database=" & dbnavn & ";
uid=root; pwd=password;"

end function

Når jeg så kører funktionen med

connect_db("etllerandet")

kommer følgende fejlmeddelelse:

Der opstod en Microsoft VBScript-kørselsfejl (0x800A000D)
Typer stemmer ikke overens: 'connect_db'

Hvad er der galt?

Hvis jeg opretter forbindelse til databasen "manuelt", virker det som det
skal - men jeg vil hellere have funktionen til at virke.

--
Jens Pedersen

---

Jens Pedersen wrote :

> Jeg har inkluderet en funktionsfil med følgende funktion:
>
> function connect_db(dbnavn)
> dim Conn

> end function
>
> Når jeg så kører funktionen med
>
> connect_db("etllerandet")
>
> kommer følgende fejlmeddelelse:
>
> Der opstod en Microsoft VBScript-kørselsfejl (0x800A000D)
> Typer stemmer ikke overens: 'connect_db'

Det er strengt taget ikke en funktion du har lavet, men derimod en
rutine. Funktioner vil normalt returnere en værdi. Prøv i stedet at lave
din function til en public sub, altså

public sub connect_db(dbnavn)
   ' opret forbindelse
end sub



--
Jesper Stocholm - http://stocholm.dk

Hvorfor ser fanatiske fodboldfans altid sådan ud ?
http://ekstrabladet.dk/VisArtikel.iasp?PageID=208295

---

"Jesper Stocholm" <jespers@stocholm.invalid> skrev i en meddelelse
news:Xns93D99F3AD5624stocholmdk@130.226.1.34...

> Det er strengt taget ikke en funktion du har lavet, men derimod en
> rutine. Funktioner vil normalt returnere en værdi. Prøv i stedet at lave
> din function til en public sub, altså
>
> public sub connect_db(dbnavn)
> ' opret forbindelse
> end sub

Tak, det virkede! Jeg må vist have læst lidt mere på det grundlæggende ;)

--
Jens Pedersen