Come faccio a scrivere updategram XML Script in VB6?

November 19

Come faccio a scrivere updategram XML Script in VB6?


Un updategram è una dichiarazione di database Structured Query Language (SQL) formattata in XML. Visual Basic 6.0 utilizza ActiveX oggetti di database per connettersi a un database per eseguire query SQL, aggiornamenti ed elimina. Una stringa di testo può essere passato al controllo ADO. La formattazione di un documento XML all'interno dell'applicazione VB6 consente di eseguire più aggiornamenti in una singola transazione di database. È inoltre possibile aggiornare più di una tabella all'interno di una singola transazione in un Updategram.

istruzione

1 Aprire un nuovo progetto EXE standard VB6. Aggiungere un pulsante alla "Form1" predefinito e il nome "cmdUpdateGram."

2 Definire una variabile per l'oggetto di connessione al database, un oggetto di comando e due oggetti stream nel codice per il pulsante "cmdUpdateGram". Un oggetto flusso verrà utilizzata per l'ingresso e l'altro per l'uscita, in modo da assegnare loro un nome di conseguenza. Collegare l'oggetto di connessione, impostare le proprietà dell'oggetto connessione e attivare la connessione.

conn.Open "server = (locale); database = Northwind; Integrated Security = SSPI;"
conn.Properties ( "SQLXML Version") = "SQLXML.3.0"
Set cmd.ActiveConnection = conn

3 Definire una stringa per contenere la stringa XML formattato correttamente. Nome è qualcosa di significativo, come ad esempio "sXMLUpdate." L'XML dovrebbe contenere la sincronizzazione parole chiave, prima e dopo. Una sincronizzazione è una unità di lavoro o di una transazione. Your XML può avere più di una sincronizzazione e ciascuna sincronizzazione può avere più di uno prima e dopo pair.

4 Inserire un record, lasciando fuori il valore della parola chiave prima. Lasciare fuori il valore del dopo parola chiave per effettuare una cancellazione.
Esempio di una stringa di XML Datagram inserto in VB6:
sXMLUpdate = "<ROOT xmlns: updg = 'urn: schemas-microsoft-com: xml-updategram'>"
sXMLUpdate = sXMLUpdate & "<updg: sync>"
sXMLUpdate = sXMLUpdate & "<updg: prima>"
sXMLUpdate = sXMLUpdate & "</ updg: prima>"
sXMLUpdate = sXMLUpdate & "<updg: dopo>"
sXMLUpdate = sXMLUpdate & "<Ordini IDOrdine = '0001' OrderDesc = OrderQuantity 'Mouse Pad' = '3' />"
sXMLUpdate = sXMLUpdate & "</ updg: dopo>"
sXMLUpdate = sXMLUpdate & "</ updg: sync>"
sXMLUpdate = sXMLUpdate & "</ root>"

5 Aprire il flusso di input, e scrivere il contenuto di sXMLUpdate a quel flusso utilizzando il metodo "WriteText".
strmIn.Open
strmIn.WriteText sXMLUpdate

Aprire il flusso di output. Impostare il "Output Stream" proprietà dell'oggetto comando per "strmOut." Eseguire l'oggetto di comando per eseguire le azioni specificate in "sXMLUpdate."

strmOut.Open
cmd.Properties ( "Output Stream"). Value = strmOut
cmd.Execute,, adExecuteStream


Articoli Correlati