-
Update Array
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.
-
Eine Array-Funktion gibt es nicht.
Aber dein Verfahren ist falsch:
1. brauchst du ein Connection-Objekt
dim MyCon as new ADODB.Connection
Dort brauchst du nur 1x den Open.
2. fährst du besser mit einem Command-Objekt.
dim MyCmd as new ADOD.Command
MyCmd.Commandtext = UPDATE Tab1 SET Wert = ? WHERE Wert2 = 11 and Wert3= ?"
Dann kannst du in einer Schleife
MyCmd(0) = temp
MyCmd(1) = nummer
MyCmd.Execute
durchführen.
Zum Schluss kommt dann noch MyCon.Close.
Empfehlenswert ist noch ein Index über Wert und Wert2 der Tabelle Tab1.
Similar Threads
-
By mk in forum NEWSboard Programmierung
Antworten: 13
Letzter Beitrag: 13-07-12, 08:53
-
By Squall in forum NEWSboard Programmierung
Antworten: 9
Letzter Beitrag: 10-10-06, 08:53
-
By synus in forum IBM i Hauptforum
Antworten: 2
Letzter Beitrag: 06-10-06, 15:38
-
By wuwu in forum IBM i Hauptforum
Antworten: 3
Letzter Beitrag: 18-07-06, 15:31
-
By loeweadolf in forum NEWSboard Programmierung
Antworten: 2
Letzter Beitrag: 01-06-06, 09:43
Tags for this Thread
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks