Hvordan jeg skrive Updategrams XML Script gjør i VB6?

Hvordan jeg skrive Updategrams XML Script gjør i VB6?


En Updategram er en database strukturert spørrespråk (SQL) uttalelse formatert i XML. Visual Basic 6.0 bruker ActiveX-databaseobjekter for å koble til en database for å utføre SQL-spørringer, oppdateringer og sletter. En streng med tekst kan sendes til ADO kontroll. Formatere et XML-dokument i VB6 programmet lar deg utføre flere oppdateringer i en enkelt database transaksjon. Du kan også oppdatere mer enn ett bord i en enkelt transaksjon i en Updategram.

Bruksanvisning

1 Åpne en ny VB6 Standard EXE-prosjekt. Legg til en knapp til standard "Form1" og gi den navnet "cmdUpdateGram."

2 Definere en variabel for databasetilkoblingen objekt, et kommandoobjekt og to stream objekter i koden for "cmdUpdateGram" -knappen. En strøm objektet vil bli brukt for innspill og en for produksjon, så navngi dem deretter. Koble til tilkoblingsobjektet, angir du egenskapene for tilkoblingen objektet og aktivere tilkoblingen.

conn.Open "server = (lokal); database = North; Integrated Security = SSPI;"
conn.Properties ( "SQLXML Version") = "SQLXML.3.0"
Sett cmd.ActiveConnection = tilk

3 Definere en streng for å holde riktig formatert XML streng. Name it noe meningsfylt, for eksempel "sXMLUpdate." XML skal inneholde søkeord sync, før og etter. En sync er en arbeidsenhet eller en transaksjon. XML kan ha mer enn én synkronisering og hver synkronisering kan ha mer enn én før og etter par.

4 Sett en rekord ved å la off verdien for før søkeordet. La ut verdien av etter nøkkelord for å utføre en slette.
Eksempel på en innsats XML Datagram streng i VB6:
sXMLUpdate = "<root xmlns: updg = 'urn: skjemaer-microsoft-com: xml-updategram'>"
sXMLUpdate = sXMLUpdate & "<updg: synkronisering>"
sXMLUpdate = sXMLUpdate & "<updg: før>"
sXMLUpdate = sXMLUpdate & "</ updg: før>"
sXMLUpdate = sXMLUpdate & "<updg: etter>"
sXMLUpdate = sXMLUpdate & "<bestillinger OrderID = '0001' OrderDesc = 'Mouse Pad' OrderQuantity = '3' />"
sXMLUpdate = sXMLUpdate & "</ updg: etter>"
sXMLUpdate = sXMLUpdate & "</ updg: sync>"
sXMLUpdate = sXMLUpdate & "</ ROOT>"

5 Åpne input stream, og skrive innholdet i sXMLUpdate til at strøm ved hjelp av "WriteText" metoden.
strmIn.Open
strmIn.WriteText sXMLUpdate

Åpne output stream. Sett "Output Stream" tilhører kommandoen objektet til "strmOut." Kjør kommandoobjekt for å utføre handlingene som er angitt i "sXMLUpdate."

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