Hallo an Alle!
Hoffe das meine Frage bei dem Schnee durchkommt
Ich möchte die Datenbank auf unserer AS400 updaten. Dabei habe ich um die 100 Datensätze die geändert werden müssen pro Woche.
Nun habe ich dies in einer Schleife gelöst die aber jedesmal Verbindung herstellt und trennt. Gibt es eine Möglichkeit ein Array zu updaten?
so sieht es jetzt aus:
Private Sub CommandButton1_Click()
Dim Cnn As ADODB.Recordset
Dim strSQL, temp As String
Dim nummer As Long
Dim intCol As Long
intCol = Range("D65536").End(xlUp).Row
Set Cnn = New ADODB.Recordset
For n = 2 To intCol
nummer = Cells(n, 4)
temp = Cells(n, 5)
strSQL = "UPDATE Tab1 A SET Wert = '" & temp & "' WHERE Wert2 = 11 and Wert3= '" & nummer & "' "
Cnn.Open strSQL, "Provider=XXXX;Data Source=x.x.x.x;User ID='user';Password='user';"
Next
End Sub

und so wäre es toll:
strSQL = "UPDATE Tab1 A SET Wert = Array(*) WHERE Wert2 = 11 and Wert3= Array(*)"

Kann hier jeman helfen?
Danke.