mehr Daten zu MSSQL-Datenbank

Question

mit VBScript Hinzufügen habe ich den Code:

Dim conn, SQL, rs 
    Const DB_CONNECT_STRING = "Provider = SQLOLEDB.1; Data Source = DJ-PC; Initial Catalog = Baza_NC; user id = 'user_baza_nc'; password = 'Password1'" 
    Set myConn = CreateObject ("ADODB.Connection") 
    Set MyCommand = CreateObject ("ADODB.Command") 
    myConn.Open DB_CONNECT_STRING 
    Set myCommand.ActiveConnection = myConn 

    myCommand.CommandText = "UPDATE Klienci_NC SET Klienci_NC.Klient = '" & & Klient_niceform' 'WHERE Klienci_NC.ID =' "& ID_zmienna &" ' " 

    myCommand.Execute 
    myConn.Close 

Ich mag MSSQL-Datenbank weitere Daten an die Adresse in der Spalte „Klienci_NC.adres“ & Adres_niceform & mit Bezug zu schreiben die VBScript sieht wie folgt aus:

myCommand.CommandText = "UPDATE Klienci_NC SET Klienci_NC.adres = '" & & Adres_niceform' 'WHERE Klienci_NC.ID =' "& ID_zmienna &" ' " 

jedoch mit

Dim conn, SQL, rs 
    Const DB_CONNECT_STRING = "Provider = SQLOLEDB.1; Data Source = DJ-PC; Initial Catalog = Baza_NC; user id = 'user_baza_nc'; password = 'Password1'" 
    Set myConn = CreateObject ("ADODB.Connection") 
    Set MyCommand = CreateObject ("ADODB.Command") 
    myConn.Open DB_CONNECT_STRING 
    Set myCommand.ActiveConnection = myConn 

    myCommand.CommandText = "UPDATE Klienci_NC SET Klienci_NC.Klient = '" & & Klient_niceform' 'WHERE Klienci_NC.ID =' "& ID_zmienna &" ' " 

    myCommand.CommandText = "UPDATE Klienci_NC SET Klienci_NC.adres = '" & & Adres_niceform' 'WHERE Klienci_NC.ID =' "& ID_zmienna &" ' " 

    myCommand.Execute 
    myConn.Close 

Es erfolgt nur die erste Zeile:

myCommand.CommandText = "UPDATE Klienci_NC SET Klienci_NC.Klient =" '& & Klient_niceform' 'WHERE Klienci_NC.ID =' "& ID_zmienna &" ' "

Wie man dem Skript beitritt:

myCommand.CommandText = "UPDATE Klienci_NC SET Klienci_NC.adres = '" & & Adres_niceform' 'WHERE Klienci_NC.ID =' "& ID_zmienna &" ' " 

die zwei funktionierten richtig?

Answer 1

Kombinieren Sie beide Aussagen?

myCommand.CommandText = "UPDATE Klienci_NC SET Klienci_NC.Klient = '" & Klient_niceform & "',Klienci_NC.adres = '" & Adres_niceform &"' WHERE Klienci_NC.ID ='" & ID_zmienna &"'"