Wykonywanie element w formacie DiffGram przy użyciu obiektów ADO (SQLXML 4.0)

To Microsoft Aplikacji Visual Basic korzysta z obiektów ADO do nawiązania połączenia z wystąpienie programu Microsoft SQL Server a następnie wykonuje element w formacie DiffGram. W tej aplikacji w formacie DiffGram i schematu XSD są przechowywane w pliku.Aplikacja ładuje w formacie DiffGram z określonego pliku.Można użyć dowolnego DiffGrams (i skojarzona schematu XSD) opisaną w W formacie DiffGram przykłady.

Jest to proces przykładowej aplikacji:

• The conn object (ADODB.Connection) establishes a connection to a running wystąpienie of SQL Server on a specific server.

• The cmd object (ADODB.Command) executes on the established connection.

• Dialekt polecenia jest zestaw do DBGUID_MSSQLXML.

• W formacie DiffGram jest kopiowany do polecenia (strumieniastrmIn) z pliku.

• Strumień danych wyjściowych polecenia jest ustawiona na StrmOut object (ADODB.Stream) odbieranie dowolne zwracane dane.

• Podczas korzystania z dostawca SQLOLEDB powoduje wyświetlenie funkcje Microsoft SQLXML, udostępniane przez sqlxmlx.dll domyślnie.Aby użyć Sqlxml4.dll w dostawca SQLOLEDB Wersja SQLXML właściwość musi być zestaw do SQLXML.4.0 na dostawca SQLOLEDB Połączenia obiektu.

• Wykonywane jest polecenie (w formacie DiffGram).

Następujący kod jest przykładowej aplikacji.

Private Sub Command1_Click()
  Dim cmd As New ADODB.Command
  Dim conn As New ADODB.Connection
  Dim strmOut As New ADODB.Stream
  Dim strmIn As New ADODB.Stream
      
  'Open a connection to SQL Server.
  conn.Provider = "SQLOLEDB"
  conn.Open "server=SqlServerName; database=tempdb; Integrated Security=SSPI; "
  conn.Properties("SQLXML Version") = "SQLXML.4.0"
  Set cmd.ActiveConnection = conn
  strmIn.Open
  strmIn.Charset = "UTF-8"
  strmIn.LoadFromFile "C:\SomeFilePath\SampleDiffGram.xml"
  strmIn.Position = 0
  Set cmd.CommandStream = strmIn
    
  strmOut.Open
  cmd.Properties("Output Stream").Value = strmOut
  cmd.Properties("Output Encoding").Value = "UTF-8"
    
  cmd.Dialect = "{5d531cb2-e6ed-11d2-b252-00c04f681b71}"
  cmd.Properties("Mapping Schema") = "C:\SomeFilePath\SampleDiffGram.xml"
  cmd.Execute , , adExecuteStream
  strmOut.Position = 0
  Set cmd = Nothing
  strmOut.Charset = "UTF-8"
  strmOut.SaveToFile "C:\DropIt.txt", adSaveCreateOverWrite
  strmOut.Close
  Set strmOut = Nothing
  
End Sub

Aby przetestować w formacie DiffGram