Hallo zusammen,
ich versuche ein VBA-Skript zu basteln, welches bestimmt Daten aus einer CSV in eine Datenbank schreiben soll. Dazu soll vorher abgefragt werden, ob der Eintrag schon vorhanden ist.
Ich scheitere jetzt aber bereits an der ersten SQL-Abfrage. Habe es auch mit SQL-Befehlen versucht, die funktionieren müssen. Ebenso habe ich verschiedene Datenbanken ausprobiert. Die Tabellen-Felder Session_DateTime und Session_TestBench sind als Text-Felder in der Tabelle definiert. Die beiden Variablen in der Abfrage sind auch nicht leer.
Habe es mit Hochkomma und ohne Hochkomma versucht, immmer der gleiche Fehler.
Ich bekomme die Fehlermeldung:
Laufzeitfehler '-2147467259 (80004005)':
Die Methode 'Open' dür das Objekt '_Recordset' ist fehlgeschlagen
Code: |
Function SQL(DBPfad, csvSession_DateTime, csvSession_TestBench, csvSession_Tester, csvSession_Type, csvSession_Comment, _
csvSession_Project, csvMeasure_DateTime, csvMeasure_ResultName, csvMeasure_ResultValue, csvDevice_Producer, csvDevice_SW, _
csvDevice_HW, csvDevice_Nr, csvDevice_ID As String)
Dim DBConnection As New ADODB.Connection
Dim SQLstring As String
Dim AbfrageObVorhandenSession As New ADODB.Recordset
Dim AbfrageObVorhandenResults As New ADODB.Recordset
'--------------------Verbindung zu Datenbank aufbauen----------------------------
With DBConnection
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = DBPfad 'Pfadangabe zur Datenbank
.Mode = adModeReadWrite
.Open
End With
'-----------------------------------------------------------------------------------------------------------------------------------
'In Tabelle Session suchen ob Session_DateTime und Session_Testbench schon vorhanden sind
SQLstring = "SELECT * FROM 'Session' WHERE " & _
"Session_DateTime='" & csvSession_DateTime & "'" & _
" AND Session_TestBench='" & csvSession_TestBench & "'"
With AbfrageObVorhandenSession
Set .ActiveConnection = DBConnection
.Open SQLstring -->Hier tritt Fehler auf
End With
|
Ich habe keine Ahnung mehr woran es liegen könnte. Bin für alle Tipps offen. Danke schon mal im Voraus.
Grüße Lars
|