Getrows??

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

Använder du vararray tidigare i koden?

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

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

Mvh,

nej, den används bara lokalt

Dimmad hur

dim vararray()

'eller

dim vararray

? (Har det någon betydelse?!)

Jag har testat båda sorterna

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

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

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

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

va, hur kan det bli så ??

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

......

....................
Fortfarande likadant

Ta bort BOF då.

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

Men det funkar fortfarande inte....

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