Database Search

match allmatch any Look in all areasLook in current areas Check all datesPrevious dayPrevious 3 daysPrevious weekPrevious fortnightPrevious monthPrevious 2 monthsPrevious 3 monthsPrevious half-yearPrevious year

TechHome

	Samples from Users
	Sort

• 3-Dimensional Array
• Accessing Multidimensional Arrays
• Add a Row to a Two Dimensional Array
• Array and Lists - Split and Join
• Array copy problem
• Array Size and Making a Binary Copy
• ArrayFileGet VMalloc Error
• ArrayFileGetCsv - How to detect invalid CSV line
• ArrayInsert Examples
• Arrayize and Dimensioned Arrays
• ArrayRedim Issue
• Arrays for the Layman
• Arrays vs Item Lists Speed
• ArraySearch Duplicate Values
• ArrInitialize NULL Fails
• Convert an Array to a Delimited List
• Convert SafeArray into a WIL Array
• Convert String to an Array
• Delete a Member of an Array
• DirInfotoArray Sort
• File Names in the Shell Like Sort Order
• Filling an Array from a column in a DB
• ForEach in Array Trick
• Is it an Array
• Is there an AskArrayList
• ObjectType Error 1690 Ole Unable to Perform Enumeration of the Specified Object
• PtrPersistent and ArrInitialize Issue
• Remove a Line from a File Using Arrays
• Resize an Array
• Reverse Array
• Searching an array for data
• Secondary Sort on Columns
• Sort Files by Modified Date
• Transpose Array
• Variable Table to Array
• VMalloc Error - VirtualAlloc Failed 487
• Why use arrays

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Convert SafeArray into a WIL Array

 Keywords: Convert SafeArray WIL Array Row Column Major GetRows ADO ArrayRedim

---

Question:

I need to convert a Safearray generated by the ADO method GetRows into a WIL Array. Can you help?

Answer:

Apparently the GetRows() method returns a multi-dimensional SAFEARRAY. It is also 'column major' where as WIL arrays are 'row major'. Here is a undebugged code sample to convert a Safe Array into WIL Array using ArrayRedim:

oADO = ObjectCreate("ADODB.Connection")

cXLS = 'C:\TEMP\Data\Duplicates.xls'
connStr = "Provider=MicroSoft.Jet.OLEDB.4.0; Data Source=%cXLS%; Extended Properties=Excel 8.0;"
oADO.Open(connStr)

oRT = oADO.execute('Select * from Authors')

arrSafeArray = oRT.GetRows()

; Apparently the GetRows() method returns a multi-dimensional SAFEARRAY.
; It is also 'column major' where as WIL arrays are 'row major'
;
; Convert Safe Array into WIL Array
rcnt = ArrInfo(arrSafeArray,1)
ccnt = ArrInfo(arrSafeArray,2)
ArrayRedim(arrSafeArray,rcnt,ccnt)


MyDialogFormat=`WWWDLGED,6.2`

MyDialogCaption=`WIL Dialog 1`
MyDialogX=138
MyDialogY=141
MyDialogWidth=566
MyDialogHeight=243
MyDialogNumControls=003
MyDialogProcedure=`DEFAULT`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=0

MyDialog001=`165,223,036,012,PUSHBUTTON,"PushButton_OK",DEFAULT,"OK",1,10,32,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`365,223,036,012,PUSHBUTTON,"PushButton_Cancel",DEFAULT,"Cancel",0,20,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog003=`187,063,174,100,REPORTVIEW,"ReportView_1",arrSafeArray,DEFAULT,DEFAULT,30,DEFAULT,DEFAULT,DEFAULT,DEFAULT`

ButtonPushed=Dialog("MyDialog")

oRT = 0
oADO = 0

---

Article ID:   W17660

Filename:   Convert SafeArray into a WIL Array.txt

File Created: 2012:06:14:13:13:18

Last Updated: 2012:06:14:13:13:18