 | 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>Basis Data - Database>Microsoft SQL Server>Update SQL Svr Data Dgn XML
Update SQL Server data dengan XML
|
|
|
Anda bisa membuat Stored Procedure di SQL Server yang
dapat menerima XMLString,
kemudian anda pergunakan untuk mengupdate Tabel.
Contoh:
Katakanlah kita mempunyai tabel Customer dengan field-field sbb:
Kita akan menambahkan sebuah record melalui stored procedure yang
dapat menerima XML, menguraikan datanya lalu mengupdate tabel.
Berikut ini adalah Stored Procesure SQL Server yang dapat membaca,
menguraikan dan mengupdate tabel dengan XML:
CREATE PROCEDURE USP_CUSTOMER_UPDATE
@strXML NTEXT
AS
DECLARE @hXML int
DECLARE @xml_ID VARCHAR(5)
DECLARE @xml_NAME VARCHAR(50)
DECLARE @xml_ADDRESS_1 VARCHAR(100)
DECLARE @xml_ADDRESS_2 VARCHAR(100)
DECLARE @xml_ATTN VARCHAR(50)
DECLARE @xml_PHONE VARCHAR(30)
DECLARE @xml_FAX VARCHAR(30)
DECLARE @xml_CITY VARCHAR(50)
DECLARE @xml_ZIP VARCHAR(10)
DECLARE @xml_COUNTRY VARCHAR(30)
EXEC sp_xml_preparedocument @hXML OUTPUT, @strXML
-- Extract parameter XML string
SELECT @xml_ID=ID -- 1 = attribute
Centric FROM OPENXML (@hXML, '/M', 1)
WITH (
ID VARCHAR(5)
)
BEGIN TRAN -- mulai transaksi
--DELETE untuk mencegah double data / data ganda
DELETE FROM CUSTOMER WHERE ID = @xml_ID
SELECT @xml_ID=ISNULL(ID,''),@xml_NAME=ISNULL(NAME,''),
@xml_ADDRESS_1=ISNULL(ADDRESS_1,''),
@xml_ADDRESS_2=ISNULL(ADDRESS_2,''),
@xml_ATTN=ISNULL(ATTN,''),@xml_PHONE=ISNULL(PHONE,''),
@xml_FAX=ISNULL(FAX,''),@xml_CITY=ISNULL(CITY,''),
@xml_ZIP=ISNULL(ZIP,''),@xml_COUNTRY=ISNULL(COUNTRY,'')
FROM OPENXML (@hXML, '/M', 1)
WITH (
ID VARCHAR(5),NAME VARCHAR(50),ADDRESS_1 VARCHAR(100),
ADDRESS_2 VARCHAR(100),ATTN VARCHAR(50),PHONE VARCHAR(30),
FAX VARCHAR(30),CITY VARCHAR(50),ZIP VARCHAR(10),
COUNTRY VARCHAR(30)
)
INSERT INTO CUSTOMER(ID,NAME,ADDRESS_1,ADDRESS_2,ATTN,PHONE,FAX,
CITY,ZIP,COUNTRY) VALUES(@xml_ID,@xml_NAME,@xml_ADDRESS_1,@xml_ADDRESS_2,
@xml_ATTN,@xml_PHONE,
@xml_FAX,@xml_CITY,@xml_ZIP,@xml_COUNTRY)
EXEC sp_xml_removedocument @hXML
IF (@@ERROR <> 0)
ROLLBACK TRAN
COMMIT TRAN
GO
Anda dapat menjalankan scriptnya di SQL Query Analizer. Lihat gambar di bawah ini:
Klik tombol Run (>) untuk menyimpan Stored Procedure nya ke SQL Server.
Jika anda melakukannya dengan benar, maka sekarang kita punya Stored Procesure yang
bernama USP_CUSTOMER_UPDATE lihat gambar di bawah ini:
Ok. Selesai sudah Stored Procedure nya. Sekarang kita akan menjalankan stored procedure
nya dengan cara mengumpankan XML data kepadanya.
Caranya di SQL Query analizer ketik kode seperti di bawah ini:
exec USP_CUSTOMER_UPDATE
'<M ID="PMM" NAME="PT. MUSIM MAS" ADDRESS_1="JL. OLEO,
KAWASAN INDUSTRI
MEDAN
II"
ADDRESS_2="SAENTIS - PERCUT SEI TUAN, DELI SERDANG" ATTN="MRS
NENA" PHONE="061.6871123" FAX="061.6871152"
CITY="MEDAN" ZIP="20371" COUNTRY="INDONESIA"/>'
Lalu tekan tombol Run (>)
Lihat gambar di bawah ini:
Untuk memeriksa hasilnya ketik SQL di bawah ini:
SELECT * FROM CUSTOMER
Lihat gambar di bawah ini:
Huih... Akhirnya selesai juga.
Pada tulisan selanjutnya saya akan menjelaskan bagaimana membuat umpan XML secara otomatis dan mengirimnya ke Stored Procesure SQL Server ini dengan Visual Basic.
Untuk melihat pemakaian Stored Procedure ini klik di sini
Untuk melihat pemakaiannya pada programm POS (Point Off Sales) Supermarket klik di sini
|
|
|
|
|
|