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

To Microsoft aplikacji Visual Basic używa obiektów ADO, aby ustanowić połączenie z wystąpienie programu Microsoft SQL Server , a następnie wykonuje w formacie DiffGram.W tej aplikacji w formacie DiffGram i schematu XSD są przechowywane w pliku.Ładowania aplikacji w formacie DiffGram, z określonego pliku.Można użyć dowolnego z DataSets (i skojarzonym schematem XSD) opisane w Przykłady w formacie DiffGram.

Jest to proces przykładowej aplikacji:

• Conn obiektu (ADODB.Połączenie) ustanawia połączenie uruchomione wystąpienie programu SQL Server na określonym serwerze.

• Cmd obiektu (ADODB.Polecenie) wykonuje na ustanowione połączenie.

• Dialekt polecenia jest zestaw do DBGUID_MSSQLXML.

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

• Polecenie wyjściowych strumień jest zestaw do StrmOut obiektu (ADODB.Strumienia) do otrzymania żadnego zwracane dane.

• Podczas używania dostawcy SQLOLEDB domyślnie otrzymasz funkcji Microsoft SQLXML zapewnianych przez biblioteki Sqlxmlx.dll.Do korzystania z dostawcy SQLOLEDB Sqlxml4.dll Wersji SQLXML właściwość musi być zestaw do SQLXML.4.0 na dostawcy SQLOLEDB połączenia obiektu.

• Wykonywane jest polecenie (w formacie DiffGram).

Poniższy 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