vb6 xml update sql - xbasicpro.com - belajar visual basic

Kursus Programmer Online

Home

Kursus online

Halo " !" | Login

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

Belajar Program dgn Saya

	Siapa bilang belajar program SULIT!! Otodidak juga bisa. ANDA bisa Jadi PROGRAMMER handal. Baca E-Book Saya di sini...!

E-BOOK TRIK MEMBANGUN WEBSITE DENGAN ASP

Jika ANDA telah membeli E-book Saya belum juga bisa membuat program... Saya yang akan "Turun Tangan Langsung" mengajarkannya kepada ANDA

Software Gratis

Software gratis! Open Source Code

Banner

Chat dengan Saya

Hit Counter

MENU>Artikel Visual Basic>Visual Basic 6.0 Database>Update Sql Server dgn VB XML

Update SQL Server data dengan Visual Basic XML

Anda tentu masih ingat dengan pembahasan xml streaming.
Pada xml streaming kita menangkap XML yang diberikan SQL Server dengan Visual Basic. Yang kita lakukan sekarang adalah sebaliknya.

Atau mungkin anda masih ingat juga dengan Update SQL Server Data dengan XML.
Pada pembahasan Update SQL Server data dengan XML kita melakukannya langsung dari SQL Query Analizer, memanggil Stored Procedure yang dapat menerima XML dan memberikan string XML secara langsung.
Sekarang kita melakukannya dengan aplikasi Visual Basic buatan kita.

Pada pembahasan kali ini kita masih memakai TABLE, STORED PROCESURE dan XML Data yang kita pakai pada waktu pembahasan Update SQL Server Data dengan XML

Artikel ini juga memakai cara Panggil Stored Procedure dengan Visual Basic 6.0

OK. Kita mulai saja.

Langkah-langkah yang akan kita lakukan adalah:
1. Membuat xmlData yang kosong dari file customer.xml
2. Mengupdate isi xmlData dari textbox
3. Mengirim XMLData ke SQL Server

Private Sub cmdSimpan_Click()

Dim m_oXMLData As New DOMDocument
Dim m_oXMLConfig As New DOMDocument
Dim sXMLFile As String sXMLFile = App.Path & "\customer.xml"

m_oXMLConfig.Load sXMLFile
Do
DoEvents
Loop Until m_oXMLConfig.readyState = 4

'--- 1. buat xmlData kosong dari customer.xml
m_oXMLData.loadXML XMLDataBlankGet(m_oXMLConfig)

'--- 2. update XMLData dari textbox
For i = 0 To m_oXMLData.childNodes(0).Attributes.length - 1

m_oXMLData.childNodes(0).Attributes(i).Text = Text1(i + 1).Text

Next i

'--- 3. kirim XMLString ke SQL Server
Dim oConn As New ADODB.Connection
Dim ocmd As New ADODB.Command
Dim oPar1 As ADODB.Parameter
oConn.open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DATAKU;Data Source=."

With ocmd
.ActiveConnection = oConn
.CommandType = adCmdStoredProc
.CommandText = "USP_CUSTOMER_UPDATE"
Set oPar1 = .CreateParameter(sParName, adLongVarChar, adParamInput, 100000, m_oXMLData.xml)

.Parameters.Append oPar1
.Execute

End With

End Sub

'--------------------------------------------

Function XMLDataBlankGet(ByVal poXML As MSXML.DOMDocument) As String

Dim kt2 As String, kt As String, sp As String

kt = Chr(34)

kt2 = Chr(34) & Chr(34)

sp = Space(1)

Dim oNd_M As IXMLDOMNode

Set oNd_M = oDom.selectSingleNode("//editform[@name=""" & "myform" & """]")

'--- template for blank XMLData

s = "<M " & Space(1)

For i = 0 To oNd_M.childNodes.length - 1

'MsgBox oNd_M.childNodes(i).Attributes(7).Text

If oNd_M.childNodes(i).Attributes(7).Text = "dt_date" Then

s = s & oNd_M.childNodes(i).Attributes(2).Text & "=" & kt & Date & kt & sp

ElseIf oNd_M.childNodes(i).Attributes(7).Text = "dt_number" Then

s = s & oNd_M.childNodes(i).Attributes(2).Text & "=" & kt & 0 & kt & sp

ElseIf oNd_M.childNodes(i).Attributes(7).Text = "dt_string" Then

s = s & oNd_M.childNodes(i).Attributes(2).Text & "=" & kt2 & sp

ElseIf oNd_M.childNodes(i).Attributes(7).Text = "dt_bit" Then

s = s & oNd_M.childNodes(i).Attributes(2).Text & "=" & kt & 0 & kt & sp

Else

MsgBox "tidak ditemukan tipe data '" & _

oNd_M.childNodes(i).Attributes(7).Text & "'", vbCritical, "modXML.XMLDataBankGetMD"

End If

Next i

s = s & "/>"

XMLDataBlankGet = s

Set oNd_M = Nothing

End Function

Di bawah ini adalah gambar program kita sedang beraksi:

Setelah melakukan pengisian di textbox lalu tekan tombol simpan. Hasilnya data tersimpan di SQL Server.
Bila dilihat dari SQL Server Enterprice Manager hasilnya seperti ini:

Download project klik di sini

Untuk melihat pemakaiannya pada aplikasi database klik di sini

Pemakaian pada program POS (program kasir supermarket) klik di sini

(C)XBasicPro 2012 | Kursus Programmer Online | Software Gratis | Open Source Code | Sewa Toko Online