Also mit _ArrayAdd hat es bei mir nicht funktioniert.
Hatte dann _ArrayInsert benutzt. Ergebnis siehe Bild.
AutoIt
#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)
Alles anzeigen