Daten per VBA in SQL Datenbank
Jürgen
Habe hier ein Makro, welches Daten aus den Spalten A, B und C eines Tabellenblattes in eine SQL Datenbank schreibt. Dieses funktioniert auch tadellos. Nun würde ich aber gerne vor dem INSERT prüfen, ob der jeweilige Datensatz bereits in der Datenbank vorhanden ist, da er ansonsten immer wieder reingeschrieben wird sobald das Makro gestartet wird.
Hat jemand eine Idee wie man das Lösen könnte?
Vielen Dank!
Gruß
Jürgen
P.S: Anbei der Code
Sub Insert()
Dim conn As New Connection
Dim rec As New Recordset
Dim comm As New Command
Dim ws As Worksheet
Bereich = "Test"
Set ws = ThisWorkbook.Worksheets("Tabelle1")
conn.Open "driver={SQL Server};" & _
"server=PCJV1;database=Rupp;"
Set comm.ActiveConnection = conn
For Zeile = 2 To Range("A27").End(xlUp).Row
SQLString = "INSERT INTO Aussenbestand (" _
& "Artikel, Lager, Bestand)" _
& " VALUES " _
& "('" & Range("A" & Zeile).Value & "'," _
& " '" & Range("B" & Zeile).Value & "'," _
& " '" & Range("C" & Zeile).Value & "')"
Debug.Print SQLString
comm.CommandText = SQLString
rec.Open comm
Next Zeile
conn.Close
Meldung = MsgBox("INSERT durchgeführt!", vbOKOnly)
End Sub