Nwlapcug.com


Come faccio a scrivere Script di updategram XML in VB6?

Come faccio a scrivere Script di updategram XML in VB6?


Un Updategram è un'istruzione di linguaggio (SQL) query di database strutturato formattata in XML. Visual Basic 6.0 utilizza ActiveX Database Objects per connettersi a un database per eseguire query SQL, aggiornamenti ed eliminazioni. Una stringa di testo può essere passata al controllo ADO. Formattazione di un documento XML all'interno dell'applicazione di VB6 consente di eseguire gli aggiornamenti multipli in un'unica transazione di database. È inoltre possibile aggiornare più di una tabella all'interno di una singola transazione in un Updategram.

Istruzioni

1

Aprire un nuovo progetto EXE Standard VB6. Aggiungere un pulsante per l'impostazione predefinita "Form1" e il nome "cmdUpdateGram."

2

Definire una variabile per l'oggetto di connessione di database, un oggetto command e due oggetti di flusso nel codice per il pulsante di "cmdUpdateGram". Un oggetto stream verrà utilizzato per l'input e uno per l'uscita, quindi nome di conseguenza. Connettersi all'oggetto di connessione, impostare le proprietà dell'oggetto connection e attivare la connessione.

conn. Aprire "disponibili; database = Northwind; Integrated Security = SSPI; "
conn. Proprietà ("SQLXML Version") = "SQLXML.3.0"
Set cmd. ActiveConnection = conn

3

Definire una stringa per contenere la stringa XML formattata correttamente. Nome che qualcosa di significativo, ad esempio "sXMLUpdate." Il codice XML deve contenere la sincronizzazione di parole chiavi, prima e dopo. Una sincronizzazione è un'unità di lavoro o di una transazione. Il formato XML può avere più di una sincronizzazione e ogni sincronizzazione può avere più di uno prima e dopo la coppia.

4

Per inserire un record, lasciando fuori il valore per la prima parola chiave. Lasciare il valore della parola chiave dopo per eseguire un'operazione di eliminazione.
Esempio di un'istruzione insert stringa XML Datagram in VB6:
sXMLUpdate = "< xmlns:updg ROOT =" 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 = 'Mouse Pad' OrderQuantity = '3' / >"
sXMLUpdate = sXMLUpdate & "< / updg: dopo >"
sXMLUpdate = sXMLUpdate & "< / updg:sync >"
sXMLUpdate = sXMLUpdate & "< / ROOT >"

5

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

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

strmOut.Open
cmd. Proprietà ("Output Stream"). Valore = strmOut
cmd. Eseguire, adExecuteStream