Problem w/ Arrays

[vb_dba]

When I define the array arData as below, I receive a type mismatch error when I try to assign a recordset to it using the GetRows Method: arData = RS.GetRows()

If I define the array like: Dim arData, I get a "Subscript out of range: aValues" error. aValues is the "arData" parameter for ShowChart. ShowChart loops through the array and retrieves all of the values and builds a bar graph, but it is having problems using an index w/ arData.

If anyone can help me out, I would appreciate it.

Public Sub CreateChart()

	Dim i
	Dim arData(100)	'Array For Values
	Dim arLabels(100)	'Array For Labels
	
	Set Conn = Server.CreateObject("ADODB.Connection")
	With Conn
		.CursorLocation = aduseclient
		.CommandTimeout = 15
		.Open CONN_STRING, UserID, PSWD
	End With
	
	SqlStr = ""
	SqlStr = SqlStr & "svc_rec_online_BarChart "
	SqlStr = SqlStr & "@Rec_From_Date='01/01/01', "
	SqlStr = SqlStr & "@Rec_Thru_Date='7/03/01'"
	
	Set RS = Conn.Execute(SqlStr)
	
	arData = RS.GetRows(adGetRowsRest, adBookmarkFirst, "Total")
	arLabels = RS.GetRows(adGetRowsRest, adBookmarkFirst, "rec_month")
	
	Set RS = Nothing
	Set Conn = Nothing
	
	'Create Barchart	
	Call ShowChart(arData, arLabels, "Title", "X", "Y")
	
End Sub

Thanks In Advance,

Chris

[CMangano]

Try doing:

Dim arData As Variant
Dim arLabels As Variant

Then when you pass GetRows into them, they will become arrays.

[vb_dba]

That gave an error "Expected End of Statement". I was unaware that you could define variable datatypes in VBScript. Do I need to include a file into my asp page? Any other suggestions?

Chris

[CiberTHuG]

Yes, you can't declare the variable as an array before you assign a record set to it. It is the same quirk as assigning the output of Split() to an array, can't do it.

I think that has to do with how = works.

Anyway... it smells like your problem is with the parameters you are giving the GetRows() method. I'm not familiar with the options, since I always use myArray = RS.GetRows() and leave it at that.

[CMangano]

Sorry, I thought you were using VB, not VBScript. In VBScript all variables are variants by default. So try:

Dim arData, arLabels

arData = Rs.GetRows()
arLabels -= Rs.GetRows()