Topic: Donate a user defined function to this topic

Function GetDataFromDatabase(sDatabaseName,sUID,sPWD,sSQL)	'Declare the array
	dim DbArray()
		
        TotalRow=GetRowsCountFromDatabase(sDatabaseName,sUID,sPWD,sSQL)
	'Create the connection string:			
	strConn="DRIVER={Microsoft ODBC for Oracle};SERVER=" & sDatabaseName & ";User ID=" & sUID & ";Password=" & sPWD & " ;"

	'Establish the connection:
	Set oConn = CreateObject("ADODB.Connection")
	'Server-side cursor
	oConn.CursorLocation = 2
	oConn.Open strConn
		
	'Create a recordset to hold the results
	Set rs = CreateObject("ADODB.Recordset")
	'Options for CursorType are:  0=Forward Only, 1=KeySet, 2=Dynamic, 3=Static (read-only)
	rs.CursorType = 3
	Set rs.ActiveConnection = oConn
	'Execute the query and put the results into the recordset
	rs.Open sSQL
				 
	NumberOfColumn=rs.fields.count

	' Verify record set is not null or empty
	if rs.RecordCount <= 0 then
		Reporter.ReportEvent micFail,"Data NOT FOUND for SQL:",sSQL
		ExitAction(0)
	end if

	' Resize the array
	ReDim DbArray(TotalRow,NumberOfColumn)
	
	i=0 
	j=0
	' Assign recordset to an Array
	Do While Not rs.eof
	  For j = 0 to NumberOfColumn - 1
		  DbArray(i,j)=rs.fields(j).value
	  Next
	  rs.MoveNext
	  i=i+1
	loop
		
	'Close the Recordset  
	rs.close
	' Clear the connection string
	Set strConn=nothing
	' Clear the connection to a database
	Set oConn=nothing
	GetDataFromDatabase=DbArray
			
End Function