#include <Array.au3>
Global $oConnection, $aRecordSet, $sQuery, $aRecordSetArr, $Spalten
Global $sTableName    =  "tblTable1"
Global $sDatabaseName = "D:\Test-mdb\Test.mdb"
If Not FileExists($sDatabaseName) Then Exit
$oConnection   = ObjCreate("ADODB.Connection")
$oConnection.Open("Driver=Microsoft Access Driver (*.mdb); DBQ=" & $sDatabaseName)
$oRecordSet    = ObjCreate("ADODB.RecordSet")
$sQuery        = "Select * From " & $sTableName
$oRecordSet.Open($sQuery, $oConnection)
For $i = 0 to $oRecordSet.Fields.Count - 1
	$Spalten &= $oRecordSet.Fields.Item($i).Name & '|'
Next
$Spalten = StringTrimRight($Spalten, 1)
$aRecordSetArr = $oRecordSet.GetRows
;_ArrayAdd($aRecordSetArr, $Spalten, 0)
_ArrayInsert($aRecordSetArr, 0, $Spalten)
$oRecordSet.Close()
$oConnection.Close()
_ArrayDisplay($aRecordSetArr, 'Tabelle = ' & $sTableName)

#Region _Get_Records with Column Names
; #FUNCTION# ====================================================================================================================
; Name ..........: _Get_Records
; Description ...: This function will collect data from an access database and give it as an array.
; Syntax ........: _Get_Records($sSQLstring)
; Parameters ....: $sSQLstring          - SQL Statement for creating table.
; Return values .: If success, then it will return the data as an array. If any errors see this list
;					Return -1 - Connection error
;					Return -2 - Recordset error
;					Return -3 - No data in that table
; Author ........: kcvinu
; Modified ......: sep 2015
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: _Get_Records("SELECT [Column1],[Column2] FROM MyTable WHERE Column3 = '2500' ;") ; See the single quote.
; ===============================================================================================================================
Func _Get_Records($sSQLstring)
    If Not IsObj($objConnection) Then Return -1
    If Not IsObj($objRecordSet) Then Return -2
    _Open_Recordset($sSQLstring)
    If Not $objRecordSet.RecordCount Or ($objRecordSet.EOF = True) Then Return -3
    Dim $arrRecords, $column_name

    If Not @error Then
		;Local $header[$objRecordSet.Fields.Count], $rows

		For $i = 0 To $objRecordSet.Fields.Count - 1
			$column_name &= $objRecordSet.Fields($i).Name & "|"
        Next

		;MsgBox(0,"", $column_name)

		$column_name = StringTrimRight($column_name, 1)
		$arrRecords = $objRecordSet.GetRows()

		_ArrayInsert($arrRecords, 0, $column_name)

	EndIf

	_Close_RecordSet()
    Return $arrRecords

EndFunc
#EndRegion

#include <Array.au3>
Global $oConnection, $aRecordSet, $sQuery, $aRecordSetArr, $aColumnArr[0], $Spalten
Global $sTableName    =  "tblTable1"
Global $sDatabaseName = "D:\Test-mdb\Test.mdb"
If Not FileExists($sDatabaseName) Then Exit
$oConnection   = ObjCreate("ADODB.Connection")
$oConnection.Open("Driver=Microsoft Access Driver (*.mdb); DBQ=" & $sDatabaseName)
$oRecordSet    = ObjCreate("ADODB.RecordSet")
$sQuery        = "Select * From " & $sTableName
$oRecordSet.Open($sQuery, $oConnection)

;~ For $i = 0 to $oRecordSet.Fields.Count - 1
;~     _ArrayAdd($aColumnArr, $oRecordSet.Fields.Item($i).Name)
;~ Next

For $i = 0 to $oRecordSet.Fields.Count - 1
    ;_ArrayAdd($aColumnArr, $oRecordSet.Fields.Item($i).Name)
	$Spalten &= $oRecordSet.Fields.Item($i).Name & '|'
Next

MsgBox(0,"",$Spalten)

;~ For $Row = 0 to Ubound($aColumnArr) -1
;~ 	$Spalten &= $aColumnArr[$Row] & '|'
;~ Next


$Spalten = StringTrimRight($Spalten, 1)
_ArrayAdd($aRecordSetArr, $Spalten, 0)
_ArrayDisplay($aRecordSetArr, 'Tabelle = ' & $sTableName)

$aRecordSetArr = $oRecordSet.GetRows
$oRecordSet.Close()
$oConnection.Close()
_ArrayDisplay($aColumnArr, 'Spaltennamen')
_ArrayDisplay($aRecordSetArr, 'Tabelle = ' & $sTableName)

#include <Array.au3>
Global $oConnection, $aRecordSet, $sQuery, $aRecordSetArr, $aColumnArr[0]
Global $sTableName    =  "tblTable1"
Global $sDatabaseName = "D:\Test-mdb\Test.mdb"
If Not FileExists($sDatabaseName) Then Exit
$oConnection   = ObjCreate("ADODB.Connection")
$oConnection.Open("Driver=Microsoft Access Driver (*.mdb); DBQ=" & $sDatabaseName)
$oRecordSet    = ObjCreate("ADODB.RecordSet")
$sQuery        = "Select * From " & $sTableName
$oRecordSet.Open($sQuery, $oConnection)
For $i = 0 to $oRecordSet.Fields.Count - 1
    _ArrayAdd($aColumnArr, $oRecordSet.Fields.Item($i).Name)
Next
$aRecordSetArr = $oRecordSet.GetRows
$oRecordSet.Close()
$oConnection.Close()
_ArrayDisplay($aColumnArr, 'Spaltennamen')
_ArrayDisplay($aRecordSetArr, 'Tabelle = ' & $sTableName)

#include "wd_helper.au3"
#include "wd_core.au3"

;Global $_WD_DRIVER
Local $sDesiredCapabilities

;$_WD_DEBUG = $_WD_Debug_Info ; None ; Info
$_WD_DEBUG = $_WD_DEBUG_None  ;set to $_WD_DEBUG_None before compiling.?

$url = "https://autoit.de/wcf/login/?url=https%3A%2F%2Fautoit.de%2F"

$user = "test"
$pass = "test"

SetupEdge()

_WD_Startup()

; Hide the WebDriver Console
;_WD_ConsoleVisible(True)
_WD_ConsoleVisible(False)

$sSession = _WD_CreateSession($sDesiredCapabilities)

_WD_Window($sSession, "Maximize", "{}")
_WD_Navigate($sSession, $url)
_WD_LoadWait($sSession, 1500)
Sleep(1000)

_WD_WaitElement($sSession, $_WD_LOCATOR_ByXPath, "//input[@id='username']")
ConsoleWrite("+ @error = " & @error & @CRLF)
$sElement_user = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath, "//input[@id='username']")

If @error = $_WD_ERROR_Success Then
    _WD_ElementAction($sSession, $sElement_user, 'value',$user)
    Sleep(500)
EndIf

_WD_WaitElement($sSession, $_WD_LOCATOR_ByXPath, "//input[@name='password']")
ConsoleWrite("+ @error = " & @error & @CRLF)
$sElement_pass = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath, "//input[@name='password']")

If @error = $_WD_ERROR_Success Then
    _WD_ElementAction($sSession, $sElement_pass, 'value',$pass)
    Sleep(500)
EndIf

$sElement = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath, "//*[@id='loginForm']/form/section[1]/div/input[1]")

If @error = $_WD_ERROR_Success Then
    _WD_ElementAction($sSession, $sElement, 'click')
Sleep(500)
EndIf

_WD_Shutdown()
_WD_DeleteSession($sSession)

Exit



 Func SetupEdge()

    ;_WD_Option('Driver', 'msedgedriver.exe')
    _WD_Option('Driver', 'D:\Scripte\WebDriver\EdgeDriver\edgedriver_win32\msedgedriver.exe')
    _WD_Option('Port', 9515)
    ;_WD_Option('DriverParams', '--verbose --log-path="' & @ScriptDir & '\msedge.log"')
    _WD_Option('DriverParams', '--verbose')

    $sDesiredCapabilities = '{"capabilities": {"alwaysMatch": {"unhandledPromptBehavior": "ignore", ' & _
    '"ms:edgeOptions": {"excludeSwitches": ["enable-automation"], ' & _
    '"useAutomationExtension": false, "args": ["start-maximized"]}}}}'

EndFunc

#include <GuiTreeView.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <TreeViewConstants.au3>
#include <StaticConstants.au3>

Global $bgcolor = 0x404040, $txtcolor = 0xff8800, $extcolor = 0xffcc00, $items[4000], $names[4000], $StartDir, $TreevieItemNow, $wParam
$StartDir = "D:\Test"

$hGui = GUICreate("Treeview_Test", 800, 600, -1, -1)

$hTreeView = _GUICtrlTreeView_Create($hGui, 2, 2, 180, 600)

$hTreeView_First = _GUICtrlTreeView_AddChild($hTreeView,"","Projekte")

_GUICtrlTreeView_BeginUpdate($hTreeView)
ListFiles_ToTreeView($StartDir, 0)
_GUICtrlTreeView_EndUpdate($hTreeView)

_GUICtrlTreeView_Expand($hTreeView)

GUISetState(@SW_SHOW)

;~ While 1

;~     $msg = GUIGetMsg()
;~     Switch $msg
;~         Case $GUI_EVENT_CLOSE
;~             Exit
;~         Case Else
;~             If $msg >= $items[2] And $msg <= $items[UBound($items) - 1] Then ishidden(_GUICtrlTreeView_GetTree($hTreeView, "\"))
;~             Sleep(20)
;~             GUICtrlSetState($names, BitOR($GUI_EXPAND, $GUI_DEFBUTTON)) ; Expand the "Display"-item and paint in bold
;~     EndSwitch
;~ WEnd


While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit

    EndSelect
WEnd



Func ListFiles_ToTreeView($sSourceFolder, $hItem)

    Local $sFile

    ; Force a trailing \
    If StringRight($sSourceFolder, 1) <> "\" Then $sSourceFolder &= "\"

    ; Start the search
    Local $hSearch = FileFindFirstFile($sSourceFolder & "*.*")
    ; If no files found then return
    If $hSearch = -1 Then Return ; This is where we break the recursive loop <<<<<<<<<<<<<<<<<<<<<<<<<<

    ; Now run through the contents of the folder
    While 1
        ; Get next match
        $sFile = FileFindNextFile($hSearch)
        ; If no more files then close search handle and return
        If @error Then ExitLoop ; This is where we break the recursive loop <<<<<<<<<<<<<<<<<<<<<<<<<<

        ; Check if a folder
        If @extended Then
            ; If so then call the function recursively
            ListFiles_ToTreeView($sSourceFolder & $sFile, _GUICtrlTreeView_AddChild($hTreeView, $hItem, $sFile))
        Else
            ; If a file than write path and name
            _GUICtrlTreeView_AddChild($hTreeView, $hItem, $sFile)
        EndIf
    WEnd

    ; Close search handle
    FileClose($hSearch)

EndFunc   ;==>ListFiles_ToTreeView


;~ Func ishidden($file)
;~     Local $attrib
;~     $attrib = FileGetAttrib($file)
;~     MsgBox(0, "", $file & @CRLF & "Properties: " & $attrib)
;~     If StringInStr($attrib, "H") Then Return 1
;~     Return 0
;~ EndFunc ;==>ishidden