Bagikan melalui

Menjalankan DiffGram dengan Menggunakan ADO (SQLXML 4.0)

Aplikasi Microsoft Visual Basic ini menggunakan ADO untuk membuat koneksi ke instans Microsoft SQL Server lalu menjalankan DiffGram. Dalam aplikasi ini, DiffGram dan skema XSD disimpan dalam file. Aplikasi memuat DiffGram dari file yang ditentukan. Anda dapat menggunakan salah satu DiffGram (dan skema XSD terkait) yang dijelaskan dalam Contoh DiffGram.

Ini adalah proses untuk aplikasi sampel:

  • Objek conn (ADODB. Koneksi) membuat koneksi ke instans SQL Server yang sedang berjalan di server tertentu.

  • Objek cmd (ADODB. Perintah) dijalankan pada koneksi yang dibuat.

  • Dialek perintah diatur ke DBGUID_MSSQLXML.

  • DiffGram disalin ke aliran perintah (strmIn) dari file.

  • Aliran output perintah diatur ke objek StrmOut (ADODB. Stream) untuk menerima data yang dikembalikan.

  • Saat Anda menggunakan Penyedia SQLOLEDB, secara default Anda akan mendapatkan fungsionalitas Microsoft SQLXML yang disediakan oleh Sqlxmlx.dll. Untuk menggunakan Sqlxml4.dll dengan Penyedia SQLOLEDB, properti Versi SQLXML harus diatur ke SQLXML.4.0 pada objek Koneksi Penyedia SQLOLEDB.

  • Perintah (DiffGram) dijalankan.

Kode berikut adalah aplikasi sampel.

Nota

Dalam kode, Anda harus memberikan nama instans SQL Server dalam string koneksi.

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

Untuk menguji DiffGram

  1. Ke folder di komputer Anda, salin salah satu DiffGram dan skema XSD yang sesuai dari salah satu contoh dalam Contoh DiffGram.

  2. Buka Visual Basic dan buat proyek EXE Standar.

  3. Tambahkan referensi ini ke proyek:

    Microsoft ActiveX Data Objects 2.8 Library

  4. Di Kotak Alat, klik CommandButton, lalu gambar tombol pada formulir.

  5. Klik dua kali tombol untuk mengedit kode, dan tambahkan kode aplikasi yang disediakan dalam topik.

  6. Edit kode untuk menentukan nama file DiffGram dan XSD. Edit juga string koneksi yang sesuai.

  7. Jalankan aplikasi. Hasil eksekusi tergantung pada DiffGram apa yang Anda jalankan.

  • Last updated on