 | Artikel Visual Basic |
| Basis Data - Database |
| Pemrograman Grafis |
| E-Book Tutorial |
| Video Kursus - Tutorial |
| Software - Open Source code |
| W E B Programming |
| Windows System |
| XBasicFramework |
| Berbagi Pengalaman |
| Quick Basic |
|
Software gratis! Open Source
Code
|
|
|
|
|
MENU>Artikel Visual Basic>Visual Basic 6.0 Database>XML Streaming vb6.0
XML Streaming dengan Visual Basic 6.0
|
|
|
|
|
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:
<M ID="06" NAME="PT. INGTRACO/PT. SLL" ADDRESS_1="JL.
MERANTI BLOK A-19 NO. 215" ADDRESS_2="" ATTN="" PHONE="" FAX="" CITY="MEDAN"
ZIP="17112" COUNTRY="BEKASI, INDONESIA"
/>
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
|
|
|
|
|
|