Show Data from Excel file - not showing

[ptrex 104]

This is a converted scritp from VBScript that runs fine.

But when running it in AutoIT last Beta & Official release it does not show the values ?

I does only loop through the records.

Anyone any idea's or is this a bug.

Const $adOpenStatic = 3
Const $adLockOptimistic = 3
Const $adCmdText = 0x0001 ;  =&H0001


 $objConnection = ObjCreate("ADODB.Connection")
 $objRecordSet = ObjCreate("ADODB.Recordset")

$objConnection.Open ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=C:\Book1.xls;" & _
        "Extended Properties=""Excel 8.0;HDR=Yes;"";")

$objRecordSet.Open ("Select * FROM [Sheet1$]", _
        $objConnection, $adOpenStatic, $adLockOptimistic, $adCmdText)

Do 
    msgbox (0,"Test",$objRecordSet.Fields.Item("Plant")&" "& $objRecordSet.Fields.Item("CustomerCode"))
    ; ConsoleWrite (0,"Test",$objRecordSet.Fields.Item("Plant")&" "& $objRecordSet.Fields.Item("CustomerCode"))
        $objRecordSet.MoveNext()
Until $objRecordSet.EOF()

This is the VBScript that does run OK.

Const adOpenStatic = 3

Const adLockOptimistic = 3

Const adCmdText = &H0001

Set objConnection = CreateObject("ADODB.Connection")

Set objRecordSet = CreateObject("ADODB.Recordset")

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=C:\Book1.xls;" & _

"Extended Properties=""Excel 8.0;HDR=Yes;"";"

objRecordset.Open "Select * FROM [sheet1$]", _

objConnection, adOpenStatic, adLockOptimistic, adCmdText

Do Until objRecordset.EOF

Wscript.Echo objRecordset.Fields.Item("Plant"), _

objRecordset.Fields.Item("CustomerCode")

objRecordset.MoveNext

Loop

Before testing make an Excel file with 2 column called "Plant" & "CustomerCode"

Fill it up with some values, and run !!

Thanks

ptrex

[randallc 0]

Hi,

SvenP wrote a bug report for me about this;

msgbox (0,"Test",$objRecordSet.Fields.Item("Plant").value&" "& $objRecordSet.Fields.Item("CustomerCode").value)

Sometimes the automatic finding of the object value in vbs is obscured; AutoIt does not do it.; add ".value" and it works!

Best, randall

[ptrex 104]

@randallc

Glad you could help me out !!

I have not tested it but sure it will work.

See you around

regards,

ptrex