Hallo als Neuling.
Mein Problem ist das folgende:
Wie man sieht besteht der Code im Grunde aus zwei Abschnitten. Eine Abfrage aus der eine Schleife erzeugt wird. In dieser Schleife soll ein SQL UPDATE ausgeführt werden.
Die Abfrage mit der Schleife funktioniert tadellos. Auch der Update funtioniert einzeln. Nur zusammengesetzt stürzt das Programm ab bzw. bleibt hängen.
Gleich vorweg möchte ich noch sagen dass der Code nur genau einmal funktionieren muß und zu keinem speziellen Programm werden soll. (Get things done!)
Ich muß in einer produktiv Datenbank in meinem Betieb lediglich eine Änderung durchführen und bin selbst nur ein leidlicher Gelegenheitsprogrammierer.
Ich hoffe auf hilfreiche Antworten da mit das Problem seit Tagen im Magen liegt und mir die Zeit davon läuft.
Danke für die Hilfe im Voraus!!
Mein Problem ist das folgende:
Wie man sieht besteht der Code im Grunde aus zwei Abschnitten. Eine Abfrage aus der eine Schleife erzeugt wird. In dieser Schleife soll ein SQL UPDATE ausgeführt werden.
Die Abfrage mit der Schleife funktioniert tadellos. Auch der Update funtioniert einzeln. Nur zusammengesetzt stürzt das Programm ab bzw. bleibt hängen.
Gleich vorweg möchte ich noch sagen dass der Code nur genau einmal funktionieren muß und zu keinem speziellen Programm werden soll. (Get things done!)
Ich muß in einer produktiv Datenbank in meinem Betieb lediglich eine Änderung durchführen und bin selbst nur ein leidlicher Gelegenheitsprogrammierer.
Ich hoffe auf hilfreiche Antworten da mit das Problem seit Tagen im Magen liegt und mir die Zeit davon läuft.
Danke für die Hilfe im Voraus!!
Quellcode
- Private Sub cmdUpdateFull_Click()
- Dim cmd As New Command
- Dim Rs As New Recordset
- DBConnect
- cmd.CommandType = adCmdText
- cmd.CommandText = "select PK_Leistungen_ID,name1, PosArtbez1, posartbez2, possonstiges, hinweis from leistungen,Baustelle where Baustelle.WirdGepflegt = 1 and Baustelle.PK_Baustelle_ID = leistungen.FK_Baustelle_ID and leistungen.PosSonstiges not like 'NULL' order by name1"
- cmd.ActiveConnection = conn
- Set Rs = cmd.Execute
- Dim Zeichen As Integer
- Dim Zähler As Integer
- Dim PK_ID As Integer
- Do While Not Rs.EOF = True
- Zähler = Zähler + 1
- Me.cmdUpdateFull.Caption = "Datensatz: " & Zähler & " von: " & Text1
- PK_ID = Rs!PK_leistungen_ID
- Me.Text2.Text = PK_ID
- '############# Updaten der Datenbank
- Dim MemoNeu As Variant
- MemoNeu = Trim$(Rs!possonstiges)
- Dim Rs2 As New Recordset
- cmd.CommandText = "Update leistungen set leistungen.Pflanzhinweis = '" & MemoNeu & "' where leistungen.PK_leistungen_ID = " & PK_ID
- cmd.ActiveConnection = conn
- Set Rs2 = cmd.Execute
- Rs.MoveNext
- Loop
- conn.Close
- End Sub