goodbytes
Jul 18, 2016, updated at 13:54:22 (UTC)
view3327
view4
0
Goto Top

SQL - mehrere UPDATE-Anweisungen in einem String per vbs

GermansolvedQuestionDatabasesDevelopment
Hallo,
ich möchte mehrere Werte in eine MySQL-Datenbank mittels vbs-Script eintragen. Eigentlich besteht jede Zeile aus "Update... ;", bei der letzten Zeile entfällt das Semikolon. Funktioniert ja auch. Wenn eine einzelne Zeile per vbs update funktioniert es auch. Wie kann ich mehrere Zeilen in einem einzelnen String übergeben? In eine Zeile mittels ";" getrennt geht nicht. Auch eine Trennung wie unten mittels vbCrLf oder vbLf funktioniert nicht, immer wird als Fehlermeldung der SQL-String angemeckert.

strSQL = "UPDATE MyDatabase.MyTab SET messageon=0 WHERE User='Mustermann';" & vbCrLf & "UPDATE MyDatabase.MyTab SET expires=0 WHERE User='Mustermann';" & vbCrlf & "UPDATE MyDatabase.MyTab SET expiredate='2016-07-11 00:00:00' WHERE User='Mustermann'"  

Set objConnection = CreateObject("ADODB.Connection")  
Set objRecordset = CreateObject("ADODB.Recordset")  

strConnectionString = "DRIVER={MySQL ODBC 5.3 Unicode Driver};SERVER=localhost;" & _  
"DATABASE=MyDatabase;" & _  
"USER=admin;" & _  
"PASSWORD=Password;" & _  
"OPTION=11;"  
	  
objConnection.Open(strConnectionString)
Set objRecordset = objConnection.Execute(strSQL)
objRecordset.Open
objConnection.Close()

Irgendwie bin ich gerade ziemlich ratlos... face-plain

Gruß goodbytes
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 310186

Url: https://administrator.de/contentid/310186

Printed on: April 26, 2024 at 15:04 o'clock

4 Comments
Latest comment
Goto Top
Member: emeriks
Solution emeriks Jul 18, 2016 updated at 14:16:24 (UTC)
Goto Top
Hi,
was hindert Dich daran, jedes Kommando einzeln mit "Execute" zu übergeben?
strSQL1 = "UPDATE MyDatabase.MyTab SET messageon=0 WHERE User='Mustermann'  
strSQL2 = "UPDATE MyDatabase.MyTab SET expires=0 WHERE User='Mustermann'  
strSQL3 = "UPDATE MyDatabase.MyTab SET expiredate='2016-07-11 00:00:00' WHERE User='Mustermann'"  

Set objConnection = CreateObject("ADODB.Connection")  
Set objRecordset = CreateObject("ADODB.Recordset")  

strConnectionString = "DRIVER={MySQL ODBC 5.3 Unicode Driver};SERVER=localhost;" & _  
"DATABASE=MyDatabase;" & _  
"USER=admin;" & _  
"PASSWORD=Password;" & _  
"OPTION=11;"  
	  
objConnection.Open(strConnectionString)
Set objRecordset = objConnection.Execute(strSQL1)
Set objRecordset = objConnection.Execute(strSQL2)
Set objRecordset = objConnection.Execute(strSQL3)
objRecordset.Open
objConnection.Close()

Ich bin jetzt der SQL-Experte, aber mir ist so, als wenn nach dem ";" ein Leerzeichen folgen muss ....

E.
Member: emeriks
Solution emeriks Jul 18, 2016 updated at 14:18:50 (UTC)
Goto Top
bzw.

strSQL = "UPDATE MyDatabase.MyTab SET messageon=0, expires=0, expiredate='2016-07-11 00:00:00' WHERE User='Mustermann'

Edit: nochmal korrigiert
Member: Biber
Solution Biber Jul 18, 2016 at 14:24:37 (UTC)
Goto Top
Moin goodbytes,

ich bin nicht ganz sicher, ob ich dein Anliegen richtig verstehe.
Wenn du mehrere Spalten in demselben Datensatz (oder derselben Datenmenge) updaten willst, dann würde aus
' Dein Beispiel  
strSQL = "UPDATE MyDatabase.MyTab SET messageon=0 WHERE User='Mustermann';" & vbCrLf & "UPDATE MyDatabase.MyTab SET expires=0 WHERE User='Mustermann';" & vbCrlf & "UPDATE MyDatabase.MyTab SET expiredate='2016-07-11 00:00:00' WHERE User='Mustermann'"  
...

...diese UPDATE-Anweisung.
strSQL = "UPDATE MyDatabase.MyTab SET messageon=0,  expires=0, expiredate='2016-07-11 00:00:00'  WHERE User='Mustermann';"

Wenn du mehrere UPDATEs auf unterschiedliche Datensätze und/oder in verschiedenen Tabellen machst, dann sind und bleiben es mehrere UPDATE-Anweisungen, die du nicht sinnvoll zu einem Block zusammenfassen kannst.

Grüße
Biber
Member: goodbytes
goodbytes Jul 18, 2016 at 15:24:56 (UTC)
Goto Top
Hallo emeriks, hallo Biber!

@Biber
Stimmt, ich habe gerade völlig quer gedacht, weiß auch nicht was mich da geritten hat... face-plain Momentan muss ich ja nur in eine Tabelle schreiben und da mache ich es natürlich so.

@emeriks
Es ist aber absehbar, dass noch mehr Tabellen dazu kommen. Offenbar funktioniert die Trennung der verschiedenen UPDATES in einem String nicht. Daher ist die Aufteilung in mehrere Strings und einzelnes Absetzen dann notwendig.

Vielen Dank euch Beiden !!! face-smile
GermansolvedQuestionDatabasesDevelopment