ADO Example Excel

Global $oADOConnection = ObjCreate("ADODB.Connection") ; Create a connection object Global $oADORecordset = ObjCreate("ADODB.Recordset") ; Create a recordset object Global $sFilename = @ScriptDir & "\ADO_Example_Excel.xls" Global $sADOConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' & $sFilename & ';Extended Properties="Excel 8.0;HDR=No"' $oADOConnection.Open($sADOConnectionString) ; Open the connection Global $sADOSQL = "Select F1,F2 FROM [Sheet1$A1:B2]" ; Select all records and all fields $oADORecordset.Open($sADOSQL, $oADOConnection) ; Issue the SQL query With $oADORecordset

   While Not .EOF ; repeat until End-Of-File (EOF) is reached
       ; Write the content of all fields to the console separated by | by processing the fields collection
       ConsoleWrite("Process the fields collection:     ")
       For $oField In .Fields
           ConsoleWrite($oField.Value & "|")
       Next
       ConsoleWrite(@CR)
       ; Write a second line by accessing all fields of the collection by item number
       ConsoleWrite("Process the fields by item number: " & .Fields(0).Value & "|" & .Fields(1).Value & "|" & @CR)
       .MoveNext ; Move To the Next record
   WEnd

EndWith $oADORecordset.Close ; Close the recordset $oADORecordset = 0 ; Release the connection object $oADOConnection.Close ; Close the connection $oADOConnection = 0 ; Release the connection object