XML Streaming dengan Visual Basic 6.0

• Tweet

Anda dapat menangkap XMLData dari SQL server dengan Visual Basic 6.0 lalu membawanya ke sisi client. Setelah itu anda bebas mengolah data tersebut tanpa koneksi ke SQL Server. 

Anda bebas melakukan pengolahan data XML di memory.
Setelah pengolahan data di sisi client sudah benar, anda bisa membuat koneksi lagi ke SQL Server lalu melakukan update dengan cara memberikan umpan XML.

Kali ini kita akan membuat Stored Procedure yang berisi perintah SQL yang menghasilkan XML lalu data XML tersebut ditangkap dengan Visual Basic 6.0

Kita mulai saja. Buat project baru lalu klik project - refrence - pilih Microsoft ActiveX Data Object 2.5 Library. Lihat gambar di bawah ini:




untuk membuat visual basic dapat membaca XML dengan XMLDOM klik project - refrence - Microsoft XML , version 2.0
Lihat gambar di bawah ini:



Tambahkan sebuah tombol command pada form1 lalu berikan kode seperti di bawah ini:


Private Sub cmdXMLStreaming_Click()

   Dim oConn As New ADODB.Connection
   oConn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DATAKU;Data Source=."

   Dim oXML As MSXML.DOMDocument
   Set oXML = New MSXML.DOMDocument
   Dim ocmd As New ADODB.Command
   Dim oPar1 As ADODB.Parameter 

   ocmd.ActiveConnection = oConn
   ocmd.CommandText = "USP_CUSTOMER_GET" 
   ocmd.CommandType = adCmdStoredProc
   Set oPar1 = ocmd.CreateParameter(sParName, adVarChar, adParamInput, 1000, "06")

   ocmd.Parameters.Append oPar1
   ocmd.Properties("Output stream") = oXML
   ocmd.Execute , , &H400

   MsgBox oXML.xml

End Sub



Buat Stored Procedure di SQL Server dengan cara ketik kode di bawah ini pada SQL Query Analizer:

CREATE PROCEDURE USP_CUSTOMER_GET
@ID VARCHAR(5)
AS

SELECT M.ID,M.NAME,M.ADDRESS_1,M.ADDRESS_2, M.ATTN, M.PHONE,M.FAX,M.CITY,M.ZIP,M.COUNTRY
FROM CUSTOMER M WHERE ID= @ID
FOR XML AUTO
GO


Untuk memanggil Customer dengan kode '06' pada Query Analizer caranya seperti ini:

exec usp_customer_get '06'


Setelah anda jalankan perintah di atas Stored Procedure di atasakan menghasilkan data XML seperti di bawah ini:

Data XML tersebut dapat kita panggil dari Visual Basic 6.0
Setelah selesai membuat project nya lalu tekan tombol F5 atau Run kemudian tekan tombol get XML Streaming. Jika projectnya benar maka hasilnya akan seperti gambar di bawah ini:



Download project klik di sini

Untuk melihat pemakaian XML Streaming pada project database klik di sini

Untuk melihat pemakaian XML Streaming pada program POS (Kasir Supermarket) klik di sini