Ich hoffe mal wieder auf eure Hilfe.
Ich habe folgendes vor: Ich möchte aus einer Excel-Datei per VBA Änderungen auf einem SQL Server durchführen.
Dazu habe ich folgenden Code, der soweit auch funktioniert. Der Code ändert allerdings bisher _
nur eine Spalte, die explizit benannt wurde [ABC] über die Update-Funktion.
Private Sub CommandButton1_Click()
Dim sqlstr As String
Dim i As Integer
Dim a As Integer
Dim b As String
Dim LetzteZeile As Long
LetzteZeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
Call connectDatabase
For i = 5 To LetzteZeile
If Tabelle1.Cells(i, 2).Value = "OK" Then
a = Tabelle1.Cells(i, 5).Value
sqlstr = "UPDATE PLS_VDS_RD_Ex_test SET [ABC] = '" & a & _
"' WHERE GUID_DEBIT ='" & Tabelle1.Cells(i, 1).Value & "'"
DBCONT.Execute sqlstr
End If
'Next j
Next i
Call closeDatabase
MsgBox "Data was uploaded successfully."
End Sub
Nun möchste ich aber mehrere Spalten ändern und dabei nicht folgende Art und Weise verwenden:
Private Sub CommandButton1_Click()
Dim sqlstr As String
Dim i As Integer
Dim a As Integer
Dim b As String
Dim LetzteZeile As Long
LetzteZeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
Call connectDatabase
For i = 5 To LetzteZeile
If Tabelle1.Cells(i, 2).Value = "OK" Then
a = Tabelle1.Cells(i, 5).Value
b = Tabelle1.Cells(i, 6).Value
c = Tabelle1.Cells(i, 7).Value
d = Tabelle1.Cells(i, 8).Value
e = Tabelle1.Cells(i, 9).Value
sqlstr = "UPDATE PLS_VDS_RD_Ex_test SET [ABC] = '" & a & "', [BCD] = '" & b & "', [CDE] = '" & _
_
_
_
c & "', [EFG] = '" & d & _
"', [FGH] = '" & e & _
"' WHERE GUID_DEBIT ='" & Tabelle1.Cells(i, 1).Value & "'"
DBCONT.Execute sqlstr
End If
'Next j
Next i
Call closeDatabase
MsgBox "Data was uploaded successfully."
End Sub
Weiß jemand dazu einen Rat?Viele Grüße
Lx177