Menggunakan Objek Collection Dan Transaction Pada Visual Basic 6

Lagi kangen :-D, udah lama enggak posting tentang Visual Basic 6. Terakhir nulis sekitar 3-4 tahun yang lalu he he :-D.

Kali ini saya ingin membahas salah satu poin penting tetapi sering kali disepelekan ketika akan membuat aplikasi bisnis yaitu transaction. Padahal fitur ini sangat penting untuk menjaga konsistensi data, karena hampir bisa dipastikan semua aplikasi bisnis menggunakan skema header-detail.

Salah satu poin penting dari transaction adalah atomic, yaitu beberapa perintah dianggap sebagai satu kesatuan. Kalau satu gagal, yang lain juga harus dibatalkan.

Contoh pada saat terjadi order penjualan proses yang terjadi adalah :

Insert 1 kali ke tabel Order
Insert n kali ke tabel OrderDetail
Mengurangi stok barang (tidak di bahas di postingan ini), karena bisa juga diselesaikan dengan database trigger

Ketika insert ke tabel OrderDetail gagal, maka tabel Ordernya juga harus di batalkan (undo), klo enggak ya datanya jadi enggak konsisten, karena ada nota Order yang enggak ada OrderDetailnya.

Nah utk mempermudah proses transaction ini kita bisa menggunakan objek collection untuk menyimpan objek OrderDetail yang kemudian kita binding ke objek Ordernya. Berhubung Visual Basic 6 tidak mempunyai class collection yang sepadan dengan class collection yang ada di Visual Basic .NET atau bahasa pemrograman .NET lainnya, sebagai gantinya kita bisa menggunakan class Scripting.Dictionary. Tetapi untuk menggunakan class Scripting.Dictionary ini kita harus menambahkan referensi Microsoft Scripting Runtime terlebih dulu.

Dengan asumsi database berikut tabelnya sudah tersedia, langkah berikutnya adalah membuat class Order dan OrderDetail. Kedua class ini dikenal dengan istilah class model, yaitu class-class yang merupakan representasi dari tabel-tabel yang ada di database.

Nah class-class model ini biasanya mempunyai beberapa property yang juga merupakan representasi field-field yang ada di dalam tabel.

' tambahkan referensi Microsoft Scripting Runtime Option Explicit Private mOrderID As Long Private mCustomerID As String Private mOrderDate As String Private mShipName As String Private mShipAddress As String Private mListOfOrderDetail As Scripting.Dictionary Public Property Let orderID(ByVal vData As Long) mOrderID = vData End Property Public Property Get orderID() As Long orderID = mOrderID End Property Public Property Let customerID(ByVal vData As String) mCustomerID = vData End Property Public Property Get customerID() As String customerID = mCustomerID End Property Public Property Let orderDate(ByVal vData As String) mOrderDate = vData End Property Public Property Get orderDate() As String orderDate = mOrderDate End Property Public Property Let shipName(ByVal vData As String) mShipName = vData End Property Public Property Get shipName() As String shipName = mShipName End Property Public Property Let shipAddress(ByVal vData As String) mShipAddress = vData End Property Public Property Get shipAddress() As String shipAddress = mShipAddress End Property Public Property Let listOfOrderDetail(ByVal vData As Scripting.Dictionary) Set mListOfOrderDetail = vData End Property Public Property Get listOfOrderDetail() As Scripting.Dictionary Set listOfOrderDetail = mListOfOrderDetail End Property

Option Explicit Private mOrderID As Long Private mProductID As Long Private mUnitPrice As Double Private mQuantity As Integer Private mDiscount As Single Public Property Let orderID(ByVal vData As Long) mOrderID = vData End Property Public Property Get orderID() As Long orderID = mOrderID End Property Public Property Let productID(ByVal vData As Long) mProductID = vData End Property Public Property Get productID() As Long productID = mProductID End Property Public Property Let unitPrice(ByVal vData As Double) mUnitPrice = vData End Property Public Property Get unitPrice() As Double unitPrice = mUnitPrice End Property Public Property Let quantity(ByVal vData As Integer) mQuantity = vData End Property Public Property Get quantity() As Integer quantity = mQuantity End Property Public Property Let discount(ByVal vData As Single) mDiscount = vData End Property Public Property Get discount() As Single discount = mDiscount End Property

Setelah class-class model selesai dibuat, untuk urusan CRUD-nya kita buat class tersendiri atau yang dikenal dengan istilah class-class DAO atau Repository.

Class DAO ini biasanya berisi method-method standar seperti Save, Update, Delete dan Get. Tapi untuk contoh kali ini saya hanya menambahkan method Save. Karena kita ingin insert ke tabel Order dan OrderDetail dianggap sebagai satu kesatuan, maka diterapkanlah konsep transaction dengan menambahkan perintah-perintah transaction seperti BeginTrans, CommitTrans dan RollbackTrans.

Option Explicit Private dbConn As DbConnection Private conn As ADODB.Connection Private strSql As String Private Sub Class_Initialize() Set dbConn = New DbConnection Set conn = dbConn.GetOpenConnection End Sub Public Function Save(ByVal objOrder As Order) As Integer Dim cmd As ADODB.Command Dim key As Variant Dim objItemOrder As OrderDetail On Error GoTo errHandle conn.BeginTrans ' begin transaction ' insert header strSql = "INSERT INTO Orders (OrderID, CustomerID, OrderDate, ShipName, ShipAddress) " & _ "VALUES (?, ?, ?, ?, ?)" Set cmd = New ADODB.Command With cmd .ActiveConnection = conn .CommandType = adCmdText .CommandText = strSql .Prepared = True .Parameters(0) = objOrder.orderID .Parameters(1) = objOrder.customerID .Parameters(2) = objOrder.orderDate .Parameters(3) = objOrder.shipName .Parameters(4) = objOrder.shipAddress .Execute End With Set cmd = Nothing ' insert detail strSql = "INSERT INTO OrderDetails (OrderID, ProductID, UnitPrice, Quantity, Discount) " & _ "VALUES (?, ?, ?, ?, ?)" For Each key In objOrder.listOfOrderDetail ' ekstrak objek item order Set objItemOrder = objOrder.listOfOrderDetail.Item(key) Set cmd = New ADODB.Command With cmd .ActiveConnection = conn .CommandType = adCmdText .CommandText = strSql .Prepared = True .Parameters(0) = objOrder.orderID .Parameters(1) = objItemOrder.productID .Parameters(2) = objItemOrder.unitPrice .Parameters(3) = objItemOrder.quantity .Parameters(4) = objItemOrder.discount .Execute End With Set cmd = Nothing Next conn.CommitTrans ' commit transaction Save = 1 Exit Function errHandle: conn.RollbackTrans ' error, rollback transaction Save = 0 End Function Private Sub Class_Terminate() Call dbConn.CloseConnection(conn) End Sub

Nah klo kita perhatikan di bagian constructor (Class_Initialize), terdapat perintah untuk membuat objek Connection dengan memanggil method GetOpenConnection dari class DbConnection.

Option Explicit Public Function GetOpenConnection() As ADODB.Connection Dim conn As ADODB.Connection Dim strCon As String On Error GoTo errHandle strCon = "DRIVER=SQLite3 ODBC Driver;Database=" & App.Path & "\db\Northwind.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0" Set conn = New ADODB.Connection conn.ConnectionString = strCon conn.Open Set GetOpenConnection = conn Exit Function errHandle: ' do nothing End Function Public Sub CloseConnection(ByVal conn As ADODB.Connection) If Not conn Is Nothing Then If conn.State = adStateOpen Then conn.Close Set conn = Nothing End If End Sub

Setelah semua kodenya lengkap kita tinggal melakukan testing seperti berikut :

Option Explicit Public Sub Main() ' buat objek Order Dim objOrder As New Order With objOrder .orderID = 123451 .customerID = "SUPRD" .orderDate = "2016-2-6" .shipName = "Que Delícia" .shipAddress = "Rua da Panificadora, 12" End With ' buat objek OrderDetail ' objek #1 Dim objItemOrder1 As New OrderDetail With objItemOrder1 .productID = 11 .unitPrice = 9.8 .quantity = 10 .discount = 0 End With ' objek #2 Dim objItemOrder2 As New OrderDetail With objItemOrder2 .productID = 65 .unitPrice = 16.8 .quantity = 5 .discount = 0.15 End With ' objek #3 Dim objItemOrder3 As New OrderDetail With objItemOrder3 .productID = 212 .unitPrice = 42.4 .quantity = 15 .discount = 0.25 End With ' hubungkan objek item order ke objek order objOrder.listOfOrderDetail = New Scripting.Dictionary objOrder.listOfOrderDetail.Add 1, objItemOrder1 objOrder.listOfOrderDetail.Add 2, objItemOrder2 objOrder.listOfOrderDetail.Add 3, objItemOrder3 Dim dao As New OrderDao Dim result As Integer result = dao.Save(objOrder) If result > 0 Then Debug.Print "Penyimpanan data order berhasil" Else Debug.Print "Penyimpanan data order gagal" End If End Sub

Selamat MENCOBA :-)

Coding4ever’s Blog

Just coding… coding… and coding… because coding should be fun :)

Menggunakan Objek Collection Dan Transaction Pada Visual Basic 6

Comments