---
title: "Klass-fel"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/125200-klass-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Fireh"
published: "2005-03-27T12:15:16.000Z"
updated: "2005-03-27T16:25:14.000Z"
replies: 1
views: 282
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/125200-klass-fel"
---

# Klass-fel

## #1 — Fireh, 2005-03-27T12:15Z

Normalt kör jag med MyODBC och öppnar då kopplingen till databasen med:

```
Set db = Server.CreateObject("ADODB.Connection")
db.Open "DSN=databasnamn"
```

Men just nu sitter jag på farsans 56K-modem och kände inte för att dra hem installationen på 7,5 Mb. Fick ett tips om [VBMySQLDirect](http://www.vbmysql.com/projects/vbmysqldirect/) som dessutom skulle vara snabbare än att köra med ODBC... sagt och gjort, jag installerade. Vad jag kan läsa mig till i deras [General Usage](http://www.vbmysql.com/projects/vbmysqldirect/Usage.php) ska man använda följande kod:

```
Dim pCnn As MYSQL_CONNECTION
Set pCnn = New MYSQL_CONNECTION
pCnn.OpenConnection txtHost, txtUserName, txtPassword, cmbDatabase
```

Detta har jag då modifierat till följande:

```
Dim db AS MYSQL_CONNECTION
Set db = New MYSQL_CONNECTION
db.OpenConnection server, användarnamn, lösenord, databasnamn
```

Då får jag följande fel:

> Kompileringsfel i Microsoft VBScript (0x800A0401)
> Slut på programsats förväntas.
> /databas.asp, line 1, column 7
> Dim db AS MYSQL_CONNECTION
> \------^

Om jag tar bort Dim-raden, så blir det istället följande fel:

> Körningsfel i Microsoft VBScript (0x800A01FA)
> Klass har inte definierats: 'MYSQL_CONNECTION'
> /databas.asp, line 1

Det hade väl gått snabbare att ladda hem MyODBC... men nu har jag gett mig f-n på att få det att fungera :OO

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

## #2 — OveRRidE, 2005-03-27T16:25Z

VBScript har inte stöd för explicita datatyper eller möjlighet att göra binds till objekt på det sättet. Det existerar bara varianter, vilket innebär att 'As \[datatyp/objekt\]' inte går att använda. I VB dock, fungerar detta. 

Du får definera utan 'As' samt använda en ADODB-koppling istället. Dessutom får du använda metoden .Open på ditt connection-objekt också. 

```
Dim db
Set db = Server.CreateObject("ADODB.Connection")
db.Open server, användarnamn, lösenord, databasnamn
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/125200-klass-fel