---
title: "Inkompatibla typer"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/105647-inkompatibla-typer"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "LR^evil.sid"
published: "2004-06-17T07:57:03.000Z"
updated: "2004-06-17T14:02:31.000Z"
replies: 5
views: 313
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/105647-inkompatibla-typer"
---

# Inkompatibla typer

## #1 — LR^evil.sid, 2004-06-17T07:57Z

Jag får inkompatiba typer när jag försöker lägga databaskopplingen i en funktion.
Inkompatibla typer: 'ADODB_Connection' line 14

Detta fungerar utmärkt:

```
Dim SQL: SQL = "SELECT v.titles, s.score FROM votable v, votes s WHERE s.title = v.id"
Dim DbData ': DbData = ADODB_Connection(ipnummer, databas, "SELECT v.titles, s.score FROM votable v, votes s WHERE s.title = v.id")
Dim oCon: Set oCon = Server.CreateObject("ADODB.Connection")
oCon.Open("Driver={MySql ODBC 3.51 Driver};Server=ipnummer;Database=databas;UID=usr;PWD=pwd;Option=16387;")
Dim ArrData(1): Set ArrData(0) = oCon
If Left(LCase(SQL), 6) = "select" Then
	Dim oRs: Set oRs = oCon.Execute(SQL)
	If Not oRs.EOF Then ArrData(1) = oRs.GetRows()
Else
	oCon.Execute(SQL),,128
End If
DbData = ArrData

If IsArray(DbData(1)) Then
	Dim i: For i = 0 To UBound(DbData(1), 2)
		Response.Write DbData(1)(0, i) & " " & DbData(1)(1, i) & "<br>"
	Next
End If
```

Detta fungerar inte:

```
[b]Dim DbData: DbData = ADODB_Connection(ipnummer, databas, "SELECT v.titles, s.score FROM votable v, votes s WHERE s.title = v.id")[/b]
If IsArray(DbData(1)) Then
	Dim i: For i = 0 To UBound(DbData(1), 2)
		Response.Write DbData(1)(0, i) & " " & DbData(1)(1, i) & "<br>"
	Next
End If

Function ADODB_Connection(StrServer, StrDatabase, SQLQuery)
	If "" & StrDatabase = "" Or "" & StrServer = "" Or "" & SQLQuery = "" Then Exit Function
	Dim oCon: Set oCon = Server.CreateObject("ADODB.Connection")
	oCon.Open("Driver={MySql ODBC 3.51 Driver};Server="&StrServer&";Database="&StrDatabase&";UID=uid;PWD=pwd;Option=16387;")
	Dim ArrData(1): Set ArrData(0) = oCon
	If Left(LCase(SQLQuery), 6) = "select" Then
		Dim oRs: Set oRs = oCon.Execute(SQLQuery)
		If Not oRs.EOF Then ArrData(1) = oRs.GetRows()
	Else
		oCon.Execute(SQLQuery),,128
	End If
	ADODB_Connection = ArrData
End Function
```

Vad är det jag missar?

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

## #2 — LR^evil.sid, 2004-06-17T13:24Z

C'mon... nån idé måste ni väl ha åtminstonde...
\*bump\*

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

## #3 — Jesper T, 2004-06-17T13:50Z

Inkompatibla typer brukar man ju få om man jämför två värden som har olika datatyper string=integer osv.
Gör du det någonstans?

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

## #4 — Jesper T, 2004-06-17T13:52Z

Du skriver *DbData(1)* men variabeln är *DbData*.
Varför ha med (1) överhuvudtaget?

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

## #5 — LR^evil.sid, 2004-06-17T14:01Z

All kod finns där... det är inget mer.

Den enda jämnförelse jag ser är:

```
If "" & StrDatabase = "" Or "" & StrServer = "" Or "" & SQLQuery = "" Then Exit Function
```

men det har ju inget med saken att göra.

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

## #6 — LR^evil.sid, 2004-06-17T14:02Z

oCon ligger i DbData(0)
oRs.GetRows ligger i DbData(1)

ADODB_Connection() retunerar en array

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/105647-inkompatibla-typer