Hallo ihr lieben,
ich stehe irgendwie auf dem Schlauch...
Ich habe in einem Pfad ein paar Xls-Dateien. letztlich brauche ich von denen Dateinamen bestimmte werte... in meinem Fall also 0001-0005 ohne XLS und ohne Pfad... klappt alles supi...
Beispielwerte:
0001
0002
0003
0004
0005
Mit diesen (in diesem Beispiel 5) Werten möchte ich gerne eine Access-Datenbank abfragen... insgesamt 5 querys, die sich also auf 5 abfragen beziehen, aber immer mit dem Werten 0001-0005.
Zur verdeutlichung... Query1-5 soll im ersten Schritt mit Wert 0001 durchlaufen werden...
Danach soll Query1-5 mit 0002 durchlaufen werden usw.
Um es einfacher zu haben, habe ich die erste Schleife die die Werte 0001-0005 durchläuft auf 1 beschränkt, da es schon beim ausführen der Querys hapert...
Fehlermeldung:
The requested action with this object has failed.:
$adors.Open ($test, $ado)
$adors^ ERROR
Ersätze ich den Wert $test durch $query1 funktioniert es, aber halt nicht als Schleife...
Hilfe
Spoiler anzeigen
#include <Excel.au3>
#include <Array.au3>
#include <date.au3>
#include <file.au3>
Dim $rmsammeln
$dbname = "C:\datei_vergleich.mdb"
$ado = ObjCreate( "ADODB.Connection" )
$ado.Open ("Driver=Microsoft Access Driver (*.mdb); DBQ=" & $dbname)
$adors = ObjCreate( "ADODB.RecordSet" ) ; Create a Record Set to handles SQL Records
$sInputPfad_tagaktuell = "C:\eingabedateien\"
$array_tagaktuell[5] = ["0001","0002","0003","0004","0005"] ;_FileListToArray($sInputPfad_tagaktuell, "*", 1)
For $i = 1 to 1
;$wert_KST = StringTrimRight(StringTrimLeft($array_tagaktuell[$i],4),4)
$wert_KST = $array_tagaktuell[$i]
$query1 = "select A_Nr, Afo from tmp_abf1 where wert_ist='" & $wert_KST & "'"
$query2 = "select A_Nr, Afo from tmp_abf2 where wert_ist='" & $wert_KST & "'"
$query3 = "select A_Nr, Afo from tmp_abf3 where wert_ist='" & $wert_KST & "'"
$query4 = "select A_Nr, Afo from tmp_abf4 where wert_ist='" & $wert_KST & "'"
$query5 = "select A_Nr, Afo from tmp_abf5 where wert_ist='" & $wert_KST & "'"
For $j = 1 to 5
$test = "$query"&$j
$adors.Open ($test, $ado)
While not $adors.EOF
$uebergabe1 = $adors.Fields(0).Value
$uebergabe2 = $adors.Fields(1).Value
$sammeln = $sammeln & $uebergabe1 & "-" & $uebergabe2 & "; "
$adors.MoveNext
WEnd
$sammeln= StringTrimRight($sammeln,2)
msgbox(0,"", $sammeln)
;~ $adors.close()
;~ $adors = 0
Next
Next
Alles anzeigen