? En Updategram är en databas Structured Query Language ( SQL ) uttalande formaterade i XML . Visual Basic 6.0 använder ActiveX databasobjekt för att ansluta till en databas för att utföra SQL-frågor , uppdateringar och borttagningar . En textsträng kan ledas till ADO kontrollen . Formatera ett XML-dokument i VB6 program ger dig möjlighet att utföra flera uppdateringar i en enda databas transaktion . Du kan också uppdatera mer än en tabell i en enda transaktion i en Updategram . Instruktioner
1
Öppna en ny VB6 Standard -EXE-projekt . Lägg till en knapp i default " Form1 " och namnge den " cmdUpdateGram . "
2
Definiera en variabel för databasen anslutning objekt , ett kommando objekt och två objekt strömma in koden för " cmdUpdateGram " -knappen . En ström objektet ska användas för inmatning och en för produktion , så namnge dem därefter . Anslut till anslutningen objektet , ange egenskaperna för anslutningen objektet och aktivera anslutningen
conn.Open " server = ( lokal ) , databas = Northwind , Integrated Security = SSPI ; " . Conn.Properties ( " SQLXML Version " ) = " SQLXML.3.0 " Set cmd.ActiveConnection = ansl
3
Definiera en sträng för att hålla korrekt formaterad XML sträng . Name it något meningsfullt , till exempel " sXMLUpdate . " XML bör innehålla nyckelord sync , före och efter . En synkronisering är en enhet för arbete eller en transaktion . Din XML kan ha mer än en synk och varje synkronisering kan ha mer än en före och efter paret .
4
infoga en post genom att lämna bort värdet för före sökordet . Lämna bort värdet av den efter nyckelordet att utföra en delete.Example av en insats XML Datagram snöre i VB6 : sXMLUpdate = " " ; sXMLUpdate = sXMLUpdate & " " sXMLUpdate = sXMLUpdate & " " sXMLUpdate = sXMLUpdate & " < /updg : före > " sXMLUpdate = sXMLUpdate & " " sXMLUpdate = sXMLUpdate & " " sXMLUpdate = sXMLUpdate & " , < /updg : efter > " sXMLUpdate = sXMLUpdate & " < /updg : sync > " sXMLUpdate = sXMLUpdate & " < /ROOT > "
5 Öppna den ingående strömmen , och skriv innehållet i sXMLUpdate till denna ström med hjälp av " WRITETEXT " method.strmIn.OpenstrmIn.WriteText sXMLUpdate
Öppna utdataström . Ställ in " Output Stream " egendom av kommandot objektet " strmOut . " Kör kommandot objektet för att utföra de åtgärder som anges i " sXMLUpdate . "
StrmOut.Opencmd.Properties ( " Output Stream " ) . Value = strmOutcmd.Execute , , adExecuteStream