¿Cómo escribo updategram script XML en Visual Basic 6?

Un diagrama de actualización de base de datos es una declaración lenguaje de consulta estructurado (SQL) en formato XML. Visual Basic 6.0 utiliza ActiveX objetos de base para conectarse a una base de datos para realizar consultas SQL, actualizaciones y eliminaciones. Una cadena de texto se puede pasar al control ADO. Dar formato a un documento XML dentro de la aplicación VB6 permite llevar a cabo varias actualizaciones en una sola transacción de base de datos. También puede actualizar más de una tabla en una sola transacción en un diagrama de actualización.

Instrucciones

1 Abrir un nuevo proyecto EXE estándar de VB6. Añadir un botón para el valor por defecto "Form1" y el nombre de "cmdUpdateGram."

2 Definir una variable para el objeto de conexión de base de datos, un objeto de comando y dos objetos de flujo en el código para el botón "cmdUpdateGram". Un objeto de flujo se utiliza para la entrada y uno para la salida, así que el nombre en consecuencia. Conectar con el objeto de conexión, establecer las propiedades del objeto de conexión y activar la conexión.

"Server = (local); la base de datos Northwind =; Integrado de Seguridad = SSPI;" conn.Open
conn.Properties ( "Versión SQLXML") = "SQLXML.3.0"
Establecer cmd.ActiveConnection conn =

3 Definir una cadena para contener la cadena XML con formato correcto. Nombre que algo significativo, como "sXMLUpdate." El XML debe contener la sincronización de palabras clave, antes y después. Una sincronización es una unidad de trabajo o de una transacción. Su XML puede tener más de una sincronización y cada sincronización puede tener más de una antes y después de par.

4 Insertar un registro dejando fuera el valor de la palabra clave antes. Deja fuera el valor de la palabra clave después de realizar una supresión.
Ejemplo de una cadena de datagramas XML inserto en VB6:
sXMLUpdate = "<ROOT xmlns: updg =" urn: schemas-microsoft-com: xml-diagrama de actualización '> "
sXMLUpdate = sXMLUpdate & "<updg: sincronización>"
sXMLUpdate = sXMLUpdate & "<updg: antes>"
sXMLUpdate = sXMLUpdate & "</ updg: antes>"
sXMLUpdate = sXMLUpdate & "<updg: después>"
sXMLUpdate = sXMLUpdate & "<Órdenes IdPedido = '0001' OrderDesc = OrderQuantity 'alfombrilla de ratón" = "3" /> "
sXMLUpdate = sXMLUpdate & "</ updg: después>"
sXMLUpdate = sXMLUpdate & "</ updg: sincronización>"
sXMLUpdate = sXMLUpdate & "</ ROOT>"

5 Abrir el flujo de entrada, y escribir el contenido de sXMLUpdate a la corriente utilizando el método de "WriteText".
strmIn.Open
strmIn.WriteText sXMLUpdate

Abrir el flujo de salida. Establecer la propiedad "Salida de corriente" del objeto de comando a "strmOut." Ejecutar el objeto de comando para llevar a cabo las acciones especificadas en "sXMLUpdate."

strmOut.Open
cmd.Properties ( "Salida de corriente"). Value = strmOut
cmd.Execute,, adExecuteStream