Hilfe ADO löschen mit Query -- Tino?
12.09.2014 09:13:34
Raphael H
Hallo zusammen,
ich habe wieder eine Frage zu ADO. Das mit dem Abrufen der Datensätze funktioniert mittlerweile sehr gut. Aber jetzt möchte ich gerne Datensätze mit Hilfe eines SQL Strings löschen. Ich sehe immer wieder Beispiele bei denen es funktioniert, ich bringe es bei mit allerdings nicht zum laufen.
Sub Datensatz_Loeschen()
Dim sAdoConnectString As String
Dim sPfad As String
Dim sQuery As String
Dim cntCom As Object
Set cnt = CreateObject("Adodb.connection")
Set cntCom = CreateObject("ADODB.command")
sPfad = ThisWorkbook.Path & "\DBTest.xlsx" 'HIER ALLENFALLS NOCH DEN PFAD ANPASSEN
sAdoConnectString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};HDR=1; _
IMEX=1;DBQ=" & sPfad & "; readonly=false;"
cnt.Open sAdoConnectString
sQuery = "DELETE FROM [Tabelle1$] WHERE Artikel='7'"
With cntCom
.ActiveConnection = cnt
'.CommandType = adcmdtext
.CommandText = sQuery
.Execute
End With
Aufraeumen:
On Error Resume Next
cnt.Close
rec.Close
Set rec = Nothing
Set cnt = Nothing
Exit Sub
Fehler:
MsgBox "Fehler: " & Err.Description
Resume Aufraeumen
End Sub
Würde mich freuen wenn jemand helfen kann.Gruess
Raphael
https://www.herber.de/bbs/user/92588.xlsx
https://www.herber.de/bbs/user/92589.xlsm