Getrows??

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

------------------
Korvfarbror som tycker om kyckling

[Redigerat av icaaq den 11 okt 2001]

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

------------------
Korvfarbror som tycker om kyckling

Använder du vararray tidigare i koden?

------------------
essentitia preter non sans multiplicandum

Nej...och den är Dimad lokalt i denna sub..

------------------
Korvfarbror som tycker om kyckling

[Redigerat av icaaq den 11 okt 2001]

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

Mvh,

------------------
All your base are belong to me.

nej, den används bara lokalt ;)

------------------
Korvfarbror som tycker om kyckling

Dimmad hur

dim vararray()

'eller

dim vararray

? (Har det någon betydelse?!)

------------------
essentitia preter non sans multiplicandum

Jag har testat båda sorterna :(

------------------
Korvfarbror som tycker om kyckling

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é?

------------------
Korvfarbror som tycker om kyckling

? (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.

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

[Redigerat av Pace den 11 okt 2001]

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

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

[Redigerat av Pace den 11 okt 2001]

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

:o

va, hur kan det bli så ??

------------------
Korvfarbror som tycker om kyckling

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

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

...... :x

------------------
Korvfarbror som tycker om kyckling

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

------------------
Korvfarbror som tycker om kyckling

Ta bort BOF då.

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

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... ;)

------------------
Korvfarbror som tycker om kyckling

Men det funkar fortfarande inte.... :(

------------------
Korvfarbror som tycker om kyckling

:r

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

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

------------------
Korvfarbror som tycker om kyckling