Im Englischen Forum gibt es eine UDF dazu. (Water)
(leider ist es gerade down)
hier vorab schonmal was zum auslesen ...
;===========================================
; db test
;===========================================
$dbname = "\\server\db_test.mdb"
$tblname_1 = "test01" ;Tabelle 1
$tblname_2 = "test02" ;Tabelle 2
;===========================================
; table test01
;===========================================
$fldname_tbl1_1 = "User"
$format = "Text(50)"
$fldname_tbl1_2 = "PC" ;pc anmeldename
$format = "Text(50)"
;===========================================
; table test02
;===========================================
$fldname_tbl2_1 = "Terminal"
$format = "Text(50)"
$fldname_tbl2_2 = "PCNAME" ; pc name
$format = "Text(50)"
;===========================================
$query1 = "SELECT * FROM " & $tblname_1 & " WHERE PC = " & "'" & $user & "'"
$query2 = "SELECT * FROM " & $tblname_2 & " WHERE PCNAME = " & "'" & $computer & "'"
$strData1 = _ReadOneFld($query1, $dbname, $fldname_tbl1_1)
$strData2 = _ReadOneFld($query2, $dbname, $fldname_tbl2_1)
$strData1 = StringStripWS($strData1, 
$strData2 = StringStripWS($strData2,
Msgbox(0,"", $strData1 & $strData2)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];------access DB auslesen -------------
Func _ReadOneFld($_sql, $_dbname, $_field)
Dim $_output
$adoCon = ObjCreate("ADODB.Connection")
$adoCon.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $_dbname)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.CursorType = 1
$adoRs.LockType = 3
$adoRs.Open($_sql, $adoCon)
With $adoRs
If .RecordCount Then
While Not .EOF
$_output = $_output & .Fields($_field).Value & @CRLF
.MoveNext
WEnd
EndIf
EndWith
$adoCon.Close
Return $_output
EndFunc ;==>_ReadOneFld
hier gibt es noch den post, wenn es um access 2007 /2010 und x64 geht
[ gelöst ] Verbindung zu Access 2010 DB nicht möglich
gruß gmmg 
Schonmal vielen Dank euch beiden =)
ich denke damit werde ich schonmal recht gut was anfangen können =)
ich werde sicherlich noch einige Fragen wärend meiner Programmierungsphase haben und mich dann melden müssen 
Hier gibt es eine UDF. Mit Access 2007 läuft es hervoragend.
Danke für den Link =)
Da ich das ganze mit der 2007 Version mache, sollte das dann ja funktionieren.
Allerdings wird mir angezeigt, dass der Link nicht funktioniert, da down 
Ja diese Seite war Down. Geht aber mittlerweile.
sieht so aus, als ob diese nicht mehr supportet wird!
habe dir mal eine UDF angehangen! das müsste die von hier sein http://www.autoitscript.com/forum/topic/140277-ms-access-udf/
hier nochmal ein link zum öffnen einer Access2010 DB
http://www.autoitscript.com/forum/topic/14…ows7-64-bit-pc/
gruß gmmg
Hallo Zusammen.
Ich hab mich lange nicht mehr mehr gemeldet, da ich momentan ein anderes Projekt habe. Ich habe mich heute nochmal hier ran gesetzt und wollte mit Hilfe der von gmmg's geposteten UDF nochmal anfangen.
Habe mir alles aus der UDF angesehen und verstehe natürlich nicht alles, aber egal.
Naja jedenfalls habe ich das Gefühl, dass ich etwas Grundlegend falsch mache, bei meinen Tests eine ".mdb", als auch ein ".accdb" zu öffnen.
In der UDF ist zum Besipiel dies zum öffnen einer Datenbank zufinden:
[autoit]; #FUNCTION# ====================================================================================================================
; Name...........: _AccessOpen
; Description ...: Open Microsoft Office Access File
; Parameters ....: $s_FilePath - File path and name
; $Options - Sets various options for the database, as specified in Remarks
; True Opens the database in exclusive (exclusive: A type of access to data in a database that is shared over a network.
; When you open a database in exclusive mode, you prevent others from opening the database.) mode.
; False (Default) Opens the database in shared mode.
; $ReadOnly - True if you want to open the database with read-only access, or False (default) if you want to open the database with read/write access.
; $Connect - Specifies various connection information, including passwords.
; Return values .: On Success - Returns database object linked to the opened file
; On Failure - Returns 0 and sets @ERROR
; @ERROR - 0 ($_AccessStatus_Success) = No Error
; - 1 ($_AccessStatus_GeneralError) = General Error
; - 3 ($_AccessStatus_InvalidDataType) = Invalid Data Type
; - 4 ($_AccessStatus_InvalidObjectType) = Invalid Object Type
; Author ........: Ayman Henry
; ADO Command ...: expression.OpenDatabase(Name, Options, ReadOnly, Connect)
; ===============================================================================================================================
Func _AccessOpen($s_FilePath = "", $Options = False, $ReadOnly = False, $Connect = ";pwd=")
Local $o_object, $o_MDBObj
If $s_FilePath = "" Then Return 0 ; There is currently no way of read non existing db.
If FileExists($s_FilePath) = 0 Then Return 0
Local $result, $f_mustUnlock = 0, $i_ErrorStatusCode = $_AccessStatus_Success
[/autoit][autoit][/autoit][autoit]; Setup internal error handler to Trap COM errors, turn off error notification
Local $status = __AccessInternalErrorHandlerRegister()
If Not $status Then __AccessErrorNotify("Warning", "_AccessOpen", _
"Cannot register internal error handler, cannot trap COM errors", _
"Use _AccessErrorHandlerRegister() to register a user error handler")
Local $f_NotifyStatus = _AccessErrorNotify() ; save current error notify status
_AccessErrorNotify(False)
$o_object = ObjCreate("DAO.DBEngine.36")
If Not IsObj($o_object) Or @error = $_AccessStatus_ComError Then
$i_ErrorStatusCode = $_AccessStatus_NoMatch
EndIf
; restore error notify and error handler status
_AccessErrorNotify($f_NotifyStatus) ; restore notification status
__AccessInternalErrorHandlerDeRegister()
If Not $i_ErrorStatusCode = $_AccessStatus_Success Then
;$o_object = ObjCreate("Access.Application")
;$o_object = ObjCreate("DAO.DBEngine.36")
If Not IsObj($o_object) Then
__AccessErrorNotify("Error", "_AccessOpen", "", "Access Object Creation Failed")
Return SetError($_AccessStatus_GeneralError, 0, 0)
EndIf
EndIf
$o_MDBObj = __AccessOpenDB($o_object, $s_FilePath, $Options, $ReadOnly, $Connect)
[/autoit][autoit][/autoit][autoit]Return SetError(@error, 0, $o_MDBObj)
EndFunc ;==>_AccessOpen
Dabei sollte ja die Datenbank geöffnet werden, ob jetzt sichtbar oder nicht, wird mir aus der Funktion nicht erkenntlich.
Jedenfalls denke ich, dass
[autoit]_AccessOpen($s_FilePath = "", $Options = False, $ReadOnly = False, $Connect = ";pwd=")
[/autoit]zeigt, dass es reicht den Ort und den Namen anzugeben, damit es funktioniert. Das sieht dann so bei mir aus.
[autoit]$AccessPath = @ScriptDir&"\USB-Sticks-DB.accdb"
_AccessOpen($AccessPath)
Danach hab ich noch eine MsgBox, die mir den Pfad, den Namen, sowie den Error ausgibt. Der Pfad und Name wird mir richtig in der MsgBox angezeigt, aber ich bekomme dennoch immer dern Error 1.
Ich weiß wirklich nicht wo mein Fehler im Verständnis liegt 
hallo,
hier nochmal ein beispiel zum auslesen einer access accdb 
;--------- Modify the variables below as desired or applicable -------
$dbname = "d:\dbtest.accdb"
$tblname = "Tabelle1"
$fldname01 = "Feld1"
$format = "Text(50)"
$fldname02 = "Feld2"
$format = "Text(50)"
$query = "SELECT * FROM "& $tblname & " WHERE Feld2 = 'test2'"
$strData1 = _ReadOneFld($query, $dbname, $fldname01)
ConsoleWrite( $query & @crlf & $strData1)
MsgBox(0,"",$query & @crlf & "ergebnis: " & $strData1)
;------access DB auslesen -------------
Func _ReadOneFld($_sql, $_dbname, $_field)
Dim $_output
$adoCon = ObjCreate("ADODB.Connection")
$adoCon.Open("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & $dbname & ";")
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.CursorType = 1
$adoRs.LockType = 3
$adoRs.Open($_sql, $adoCon)
With $adoRs
If .RecordCount Then
While Not .EOF
$_output = $_output & .Fields($_field).Value & @CRLF
.MoveNext
WEnd
EndIf
EndWith
$adoCon.Close
Return $_output
EndFunc ;==>_ReadOneFld
gruß gmmg
Auf deinem Screenshot sieht man btw auch keine Datei namens "test.mdb". Also entweder ist diese hinter deiner msgbox versteckt oder du verwendest tatsächlich einen falschen Pfad worauf die Meldung ja hindeutet.
Was steht denn in der Scite console bei dir?
Ich bekomme diesen Fehler
--> Access.au3 Error from function _AccessOpen (Access Object Creation Failed)Dürfte aber wohl auch daran liegen, dass ich kein Access in meinem Office Paket habe...
#AutoIt3Wrapper_UseX64=n
[/autoit]Setz das mal ins Script und es geht. Die UDF funktioniert wohl nur unter 32bit.