Error on $output[$count]

[grimmlock]

Hello

I am trying to figure out why I am getting the error:

Array variable has incorrect number of subscripts or subscript dimension range is incorrect

And how to fix it.

Here is my code:

Func mysql($branch) ; , $element)
; establish an array with too many elements
Local $output[80]

; establish a counter starting at zero
$count = 0


; put query together
$sql = _MySQLConnect("DHCP","1234","test","192.168.26.18")
$var = _Query($sql,"SELECT * FROM Leases WHERE Branch='" & $branch & "'")

With $var


;loop through the query result
While NOT .EOF

;put data into array
$output[$count]=.Fields("IP").value ; This is where the error is.


;increment the counter
$count += 1

; end of the loop
wend

; resize the array to the number of elements
ReDim $output[$count]
EndWith
; return the proper sized array
return $output
EndFunc

Thanks

Grimm

Edited January 3, 2013 by grimmlock

[guinness]

Shouldn't it be something like this?

$output[$count]= $oVar.Fields("IP").value

[grimmlock]

Guiness

I just tried that and I get the Error: $oVar: Variable used without being declaired.

Thanks for the suggestion though

Edited January 3, 2013 by grimmlock

[guinness]

It was an example, I presume it should be $var, but I have little knowledge of SQL. Sorry.

[grimmlock]

LOL, gotcha.

I did use both $var and $oVar and I got the same error:

Array variable has incorrect number of subscripts or subscript dimension range is incorrect

I am not sure what I am doing wrong.

[grimmlock]

Here is the entire code:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <mysql.au3>

GUICreate("test", 400, 400)
GUISetState(@SW_SHOW)

Local $Combo = GUICtrlCreateCombo("", 10, 10, 100, 20)
GUICtrlSetData(-1, "Branch1|Branch2") ; So you have all the lists able to be selected from the combo
Local $List1 = GUICtrlCreateList("", 10, 50, 100, 50)
Local $List2 = GuiCtrlCreateList("", 10, 100, 100, 50)
Local $List3 = GuiCtrlCreateList("", 10, 150, 100, 50)
Local $Button_1 = GUICtrlCreateButton("Notepad", 200, 50, 100, 100)
Local $Button_2 = GUICtrlCreateButton("Wake On Lan", 200, 200, 100, 100)



While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit


Case $Combo
Switch GuiCtrlRead($Combo)

Case "Buena"
Local $ip = mysql("Branch1")
Local $mac = mysql("Branch1")

MsgBox(0, "", GuiCtrlRead($ip[3]))
;~ GuiCtrlSetData($List1, $ip[3])


EndSwitch

Case $Button_1


Case $Button_2


EndSwitch
WEnd

Func mysql($branch) ;, $element)
; establish an array with too many elements
Local $output[80]

; establish a counter starting at zero
$count = 0


; put query together
$sql = _MySQLConnect("DHCP","1234","test","192.168.26.18")
$var = _Query($sql,"SELECT * FROM Leases WHERE Branch='" & $branch & "'")

With $var


;loop through the query result
While NOT .EOF

;put data into array
$output[$count] = .Fields("Name").value


;increment the counter
$count += 1

; end of the loop
wend

; resize the array to the number of elements
;~ ReDim $output[$count]
EndWith
; return the proper sized array
return $output

EndFunc

Edited January 3, 2013 by grimmlock

[DW1]

Try adding: .MoveNext to your loop to move on to the next record.

Does this work better?

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <mysql.au3>

GUICreate("test", 400, 400)
GUISetState(@SW_SHOW)

Local $Combo = GUICtrlCreateCombo("", 10, 10, 100, 20)
GUICtrlSetData(-1, "Branch1|Branch2") ; So you have all the lists able to be selected from the combo
Local $List1 = GUICtrlCreateList("", 10, 50, 100, 50)
Local $List2 = GUICtrlCreateList("", 10, 100, 100, 50)
Local $List3 = GUICtrlCreateList("", 10, 150, 100, 50)
Local $Button_1 = GUICtrlCreateButton("Notepad", 200, 50, 100, 100)
Local $Button_2 = GUICtrlCreateButton("Wake On Lan", 200, 200, 100, 100)



While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit


        Case $Combo
            Switch GUICtrlRead($Combo)

                Case "Buena"
                    Local $ip = mysql("Branch1")
                    Local $mac = mysql("Branch1")

                    MsgBox(0, "", GUICtrlRead($ip[3]))
;~ GuiCtrlSetData($List1, $ip[3])


            EndSwitch

        Case $Button_1


        Case $Button_2


    EndSwitch
WEnd

Func mysql($branch) ;, $element)
    ; establish an array with too many elements
    Local $output[80]

    ; establish a counter starting at zero
    $count = 0


    ; put query together
    $sql = _MySQLConnect("DHCP", "1234", "test", "192.168.26.18")
    $var = _Query($sql, "SELECT * FROM Leases WHERE Branch='" & $branch & "'")

    With $var


        ;loop through the query result
        While Not .EOF

            ;put data into array
            $output[$count] = .Fields("Name").value

            ;Move to next record
            .MoveNext

            ;increment the counter
            $count += 1

            ; end of the loop
        WEnd

        ; resize the array to the number of elements
;~ ReDim $output[$count]
    EndWith
    ; return the proper sized array
    Return $output

EndFunc   ;==>mysql

Edited January 3, 2013 by danwilli