hallo,
hier nochmal ein beispiel zum auslesen einer access accdb
Spoiler anzeigen
;--------- 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