Wie kann ich schreiben von Updategrams XML-Skript in VB6?

Ein Updategram ist eine strukturierte Datenbank Sprache (SQL) Anweisung in XML formatiert. Visual Basic 6.0 verwendet ActiveX Database Objects zum Herstellen einer Verbindung mit einer Datenbank ausführen von SQL-Abfragen, Aktualisierungen und Löschungen. Eine Zeichenkette des Textes kann auf das ADO-Steuerelement übergeben werden. Formatierung eines XML-Dokuments innerhalb der VB6-Anwendung können Sie mehrere Updates in einer einzelnen Datenbank-Transaktion durchführen. Sie können auch mehrere Tabellen in einer einzigen Transaktion in einem Updategram aktualisieren.

Anweisungen

1 Öffnen Sie ein neues VB6 Standard EXE-Projekt. Standardmäßig "Form1" eine Schaltfläche hinzu und nennen Sie sie "CmdUpdateGram."

2 Definieren Sie eine Variable für das Datenbank-Connection-Objekt, ein Command-Objekt und zwei Stream-Objekte im Code für die Schaltfläche "CmdUpdateGram". Ein Stream-Objekt für Eingabe und eine für die Ausgabe verwendet werden, also entsprechend benennen. Verbinden Sie mit dem Connection-Objekt, legen Sie die Eigenschaften des Connection-Objekts und aktivieren Sie die Verbindung zu.

Conn. Öffnen Sie "server=(local); Datenbank = Nordwind; Integrated Security = SSPI; "Conn. Eigenschaften ("SQLXML Version") = "SQLXML.3.0"Set cmd. ActiveConnection = Conn

3 Definieren Sie eine Zeichenfolge korrekt formatierte XML-Zeichenfolge zu halten. Nennen Sie es etwas sinnvolles, wie z. B. "sXMLUpdate." XML sollte vor und nach der Sync Schlüsselwörter enthalten. Eine Synchronisierung wird eine Einheit der Arbeit oder einer Transaktion. Ihr XML kann mehr als ein Sync und jedem Sync kann mehr als einen, vor und nach Paar haben.

4 Einfügen ein Datensatzes durch Verlassen der Wert für die vor-Schlüsselwort. Der Wert des Schlüsselworts nach einem Löschvorgang durchführen lassen.Beispiel einer INSERT-Datagramm XML-Zeichenfolge in VB6:sXMLUpdate = "< Xmlns:updg ROOT =" Urn: Schemas-Microsoft-com: XML-Updategram ">"sXMLUpdate = sXMLUpdate & "< Updg:sync >"sXMLUpdate = sXMLUpdate & "< Updg: vor >"sXMLUpdate = sXMLUpdate & "< / Updg: vor >"sXMLUpdate = sXMLUpdate & "< Updg: Nachdem >"sXMLUpdate = sXMLUpdate & "< Orders OrderID ="0001"OrderDesc ="Maus-Pad"OrderQuantity ="3"/ >"sXMLUpdate = sXMLUpdate & "< / Updg: Nachdem >"sXMLUpdate = sXMLUpdate & "< / Updg:sync >"sXMLUpdate = sXMLUpdate & "< / ROOT >"

5 Öffnen Sie den Eingaben-Stream und schreibt den Inhalt des sXMLUpdate in diesen Stream mithilfe der Methode "WriteText".strmIn.OpenstrmIn.WriteText sXMLUpdate

Öffnen Sie den Ausgabestream. Legen Sie die "Ausgabe-Stream"-Eigenschaft des Command-Objekts auf "StrmOut." Führen Sie das Command-Objekt für die Aktionen, angegeben in "sXMLUpdate."

strmOut.Opencmd. Eigenschaften ("Output Stream"). Wert = StrmOutcmd. Ausführen,, adExecuteStream