---
title: "Getrows??"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12071-getrows"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "icaaq"
published: "2001-10-11T18:40:00.000Z"
updated: "2001-10-13T11:15:00.000Z"
replies: 29
views: 363
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/asp/12071-getrows"
---

# Getrows??

_Sida 1 av 2._

## #1 — icaaq, 2001-10-11T18:40Z

```
Set ObjRS = Server.CreateObject ("ADODB.Recordset")
		strSQL = "SELECT DISTINCT F_RF_NAMN FROM T_RF WHERE F_USER_ID = "&strMMID&""
		Response.Write strSQL
		ObjRS.Open strSQL, "driver=MySQL;UID=root;PWD=xxx;Database=xxx;option=16384"
		[b]varArray = ObjRS.Getrows()[/b]
		ObjRS.Close
```

felet kommer vid den feta raden och lyder:

**Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch**

Vad är fel :q

/Red. strMMID är av sorten Int..det har bara blivit så att jag kallat den str :r

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

## #2 — icaaq, 2001-10-11T18:43Z

Jag kan ju tilläag att jag får ut data om jag skriver en vanlig Set ObjRS = ObjConn.execute(strSQL)
och kör en loop på den :l

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

## #3 — LarsG, 2001-10-11T18:45Z

Använder du vararray tidigare i koden?

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

## #4 — icaaq, 2001-10-11T18:47Z

Nej...och den är **Dim**ad lokalt i denna sub..

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

## #5 — @nders, 2001-10-11T18:48Z

Ska du använda den utanför subben så ska du inte dimma den lokalt i subben.

Mvh,

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

## #6 — icaaq, 2001-10-11T18:49Z

nej, den används bara lokalt ;)

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

## #7 — LarsG, 2001-10-11T18:53Z

Dimmad hur

```
dim vararray()

'eller

dim vararray
```

? (Har det någon betydelse?!)

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

## #8 — icaaq, 2001-10-11T18:54Z

Jag har testat båda sorterna :(

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

## #9 — icaaq, 2001-10-11T19:19Z

```
strSQL = "SELECT DISTINCT F_RF_NAMN FROM T_RF WHERE F_USER_ID = "&strMMID
		Response.Write strSQL
		varArray = ObjConn.Execute(strSQL).GetRows()
```

nu har jag denna och jag får inge felmess :) , men jag får ju inget i arrayen ändå... :(

om jag skriver ut en ubound(varArray) får jag 0 ....nån som har nån idé?

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

## #10 — Pace, 2001-10-11T19:20Z

> ? (Har det någon betydelse?!)

Ja, om du dimmar den till ett viss index, exempelvis Dim blaha(12,6) så blir det ju fel när .Getrows ska skapa den, eftersom den då skapas dynamiskt. Alltså, Dim blaha är det som gäller vid bl.a. .Getrows. Inte heller Dim blaha() eftersom man då fastställer dimensionerna.

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

## #11 — Pace, 2001-10-11T19:25Z

Jag skulle nog köra .GetRows för sig för att försäkra mig från "buggar". Jag har själv fått ut tomma matriser när jag slänger ihop allt i en sats.

```
strSQL = "SELECT DISTINCT F_RF_NAMN FROM T_RF WHERE F_USER_ID = "&strMMID
Response.Write strSQL

rs = ObjConn.Execute(strSQL)
If Not rs.BOF Or Not rs.EOF Then
varArray = rs.GetRows()
End If
rs.Close

If Not isArray(varArray) Then
' nä nu blev d nåe fel här!
Else
' funkar ju perfa!
End If
```

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

## #12 — icaaq, 2001-10-11T19:30Z

:o
**Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'BOF'**

 :o

va, hur kan det bli så ??

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

## #13 — Pace, 2001-10-11T19:31Z

Låter som det är dags för en omstart! ;)

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

## #14 — icaaq, 2001-10-11T19:33Z

...... :x

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

## #15 — icaaq, 2001-10-11T19:39Z

.................... :x 
Fortfarande likadant :(

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

## #16 — Pace, 2001-10-11T19:44Z

Ta bort BOF då.

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

## #17 — icaaq, 2001-10-11T19:44Z

Pace\>\>

```
strSQL = "SELECT DISTINCT F_RF_NAMN FROM T_RF WHERE F_USER_ID = "&strMMID
Response.Write strSQL
[b]Set [/b]rs = ObjConn.Execute(strSQL)
If Not rs.BOF Or Not rs.EOF Then
varArray = rs.GetRows()
End If
rs.Close

If Not isArray(varArray) Then
' nä nu blev d nåe fel här!
Else
' funkar ju perfa!
End If
```

....din lilla fuskis... ;)

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

## #18 — icaaq, 2001-10-11T19:45Z

Men det funkar fortfarande inte.... :(

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

## #19 — Pace, 2001-10-11T19:45Z

:r

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

## #20 — icaaq, 2001-10-11T19:50Z

```
Set Objconn = Server.CreateObject("ADODB.Connection") 
			Objconn.ConnectionString = "driver=MySQL;UID=root;PWD=;Database=medimatch;option=16384"
			Objconn.open

Sub Styrelse
dim sql, strRfNamn, strFbNamn, strForNamn, varArray
		strSQL = "SELECT DISTINCT F_RF_NAMN FROM T_RF WHERE F_USER_ID = "&strMMID
		Response.Write strSQL

		Set ObjRS = ObjConn.Execute(strSQL)
		If Not ObjRS.BOF Or Not ObjRS.EOF Then
		varArray = ObjRS.GetRows()
		End If
		ObjRS.Close

		If Not isArray(varArray) Then
		' nä nu blev d nåe fel här!
		Else
		' funkar ju perfa!
		End If
...
...
..
```

 så ser hela koden ut ...iaf det väsentliga :l

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12071-getrows  
Nästa sida: https://www.webforum.nu/amne/asp/12071-getrows/page2.md