Science Clubs: Program

Command Object bagian 4 membahas Transaction Object seperti SqlTransaction atau OledbTransaction. Object ini yang paling sering diabaikan oleh developer pemula… ( padahal pengalaman pribadi

) karena mungkin belum mengerti fungsi dan bagaimana cara menggunakan object tersebut…. dan satu lagi… belum mengerti… seberapa pentingnya object tersebut…

Oke…
Transaction Object adalah objek yang biasanya dipakai untuk menjaga keselarasan data yang masuk kedalam 2 tabel atau lebih…. jadi prinsip nya… “satu tabel gagal eksekusi… semua dibatalkan….” .. kira – kira seperti itu lah salah satu kasusnya… meskipun nanti lebih luas lagi pemakaiannya… depend on experience

Kasus yang paling umum adalah pada saat melakukan penyimpanan data ke tabel transaksi yang biasanya terdiri dari 2 tabel atau lebih…Header dan Detail nya.. ( ini mungkin.. kenapa dinamakan Transaction Object… karena buat transaksi… hee.. mungkin…)
langsung aja kita ke TKP…

…
saya berasumsi mempunyai 2 tabel… SalesHeader dan SalesDetail dengan skema sebagai berikut :

desain form sebagai berikut :

kemudian pada bagian general declaration seperti biasa taruh connection string dan connection Object :

Dim ConnectionString As String = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=Data.mdb"
Dim cn As New OleDb.OleDbConnection(ConnectionString)

pada tombol save.. ketikkan coding sebagai berikut :

Dim sqlHeader As String = String.Empty
Dim sqlDetail As String = String.Empty
'ini query nya... Header dan Detail
sqlHeader = String.Format("INSERT INTO SalesHeader VALUES ('{0}',#{1}#,'{2}')", _
txtInvoiceNo.Text, dtpTransaction.Value, txtDescription.Text)
'deklarasi object transaction
Dim trax As OleDb.OleDbTransaction = Nothing
Dim cmdHeader As New OleDb.OleDbCommand(sqlHeader, cn)
Dim cmdDetail As New OleDb.OleDbCommand
cmdDetail.Connection = cn
Try
cn.Open() ' open before execute
trax = cn.BeginTransaction
cmdHeader.Transaction = trax
cmdDetail.Transaction = trax
cmdHeader.ExecuteNonQuery()
For Each rows As DataGridViewRow In gvDetailProduct.Rows
If rows.IsNewRow = False Then
sqlDetail = String.Format("INSERT INTO SalesDetail VALUES ('{0}','{1}',{2})", _
txtInvoiceNo.Text, _
rows.Cells(0).Value, _
rows.Cells(1).Value)
cmdDetail.CommandText = sqlDetail
cmdDetail.ExecuteNonQuery()
End If
Next
trax.Commit()
MessageBox.Show("saved successfully...")
Catch ex As Exception
If trax IsNot Nothing Then
trax.Rollback()
End If
MessageBox.Show(ex.Message)
Finally
cn.Close() ' must close after execute
End Try

---------------------------------------------------
fyuhh… aga panjang yaah..??? :p
yang terpenting yang perlu diingat adalah langkah-langkah pembuatanya…

Deklarasikan transaction object
Setelah connection di open… lakukan perintah cn.BeginTransaction
Masukkan transaction object pada masing – masing command
lakukan commit setelah command object telah berhasil di eksekusi semua dengan perintah contoh trax.Commit
letakkan coding trax.Rollback pada bagian Catch untuk membatalkan semua eksekusi Command Object apabila terjadi error…

Nah… silahkan dicoba… contoh :

kemudian tekan tombol save….
kemudian dicoba lagi dengan data yang lain dan kita buat error…. misal pada bagian ProductID…. isi ProductId lebih dari 5 digit ( ini menyebabkan error karena kolom productID yang dibuat dibatasi hanya 5 karakter) apa hasil nya ??
hasil nya… Data pada SalesHeader dan SalesDetail kompak sama – sama tidak masuk ke tabel… betul ??
Happy coding….

Buatlah New Project lalu buat Project seperti gambar di bawah ini :

untuk Memunculkan DBGrid,Adodc1 kita harus membuka Component nya terlebih dahulu
kalian pasti udah bisa kan, kalau yang belum bisa ane kasih tau caranya...

1. klik kanan pada Toolbar di sebelah kiri setelah di klik ada tulisan "Component" di klik
2. cari
-Microsoft ADO Data Control 6.0 (OLEDB),
-Microsoft DataGrid Control 6.0 (OLEDB),
-Microsoft Windows Common Controls 2.6.0
3.klik Apply > OK
4. Setelah itu masukan Component ADODC, DataGrid ke dalam form
5. Buat MODULE caranya Klik kanan pada Project > Add >Module
6. Masukan Codding Berikut

GENERAL

Option Explicit

Dim Ldata As New ADODB.Recordset

Dim strsql As String

MODULE

Option Explicit

Public cn As New ADODB.Connection

Public Sub OpenConnection()

Set cn = New ADODB.Connection

With cn

.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False"

.CursorLocation = adUseClient

.Open

End With

End Sub

Nb: Tanda Merah itu anda Connection kan ulang Ke database Anda sendiri

SIMPAN

On Error GoTo salah

Dim strsql As String

If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" And Text4.Text <> "" Then

strsql = "insert into T_resep (nomor_resep,tgl_bayar,kode_dokter,kode_pasien,kode_PLK)" _

& " values ('" & Text1.Text & "','" & DTPicker1.Value & "', '" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "')"

cn.Execute strsql

MsgBox "Data Resep Tersimpan!", vbInformation, Me.Caption

Command3_Click

Text2.Text = ""

Text3.Text = ""

Text2.SetFocus

Command11_Click

Exit Sub

Else

MsgBox "Data Resep Belum Lengkap!", vbInformation, Me.Caption

Exit Sub

End If

salah:

MsgBox "Nomor_resep Tersebut Sudah Ada,Silahkan Ganti Yang Lain", vbInformation, Me.Caption

End Sub

EXIT

Private Sub Command5_Click()

End

End Sub

HAPUS

Private Sub Command2_Click()

Dim strsql As String

If MsgBox("Apakah Data Akan DiHapus ?" _

, vbQuestion + vbYesNo, "Hapus Data") = vbYes Then

strsql = "Delete from T_pembayaran where no_bayar = '" & Text1.Text & "'"

cn.Execute strsql, , adCmdText

MsgBox "Data Telah Terhapus !", vbInformation, Me.Caption

Command3_Click

Text2.Text = ""

Text3.Text = ""

Text2.SetFocus

End If

Exit Sub

End Sub

REFRESH

Private Sub Command3_Click()

Set Ldata = New ADODB.Recordset

Dim strsql As String

Set Ldata = Nothing

strsql = "select * from T_pembayaran order by no_bayar desc"

Ldata.Open strsql, cn, adOpenDynamic, adLockOptimistic, adCmdText

Tampilkan_Data

End Sub

EDIT

Private Sub Command4_Click()

Command1.Enabled = True

Command4.Visible = True

Command2.Enabled = False

Command1.Enabled = False

Command11.Enabled = True

Command6.Enabled = True

Command6.Visible = False

End Sub

AKHIR

Private Sub Command10_Click()

Ldata.MoveLast

Tampilkan_Data

End Sub

AWAL

Private Sub Command7_Click()

Ldata.MoveFirst

Tampilkan_Data

End Sub

MUNDUR

Private Sub Command8_Click()

Ldata.MovePrevious

Tampilkan_Data

End Sub

MAJU

Private Sub Command9_Click()

Ldata.MoveNext

Tampilkan_Data

End Sub

DATA GRID

Private Sub DataGrid1_Click()

On Error Resume Next

Tampilkan_Data

UPDATE

If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" Then

Set Ldata = Nothing

strsql = "update T_pembayaran set tgl_bayar= '" & Me.DTPicker1.Value & "', no_resep= '" & Me.Text2.Text & "', jumlah_bayar= '" & Me.Text3.Text & "' where no_bayar='" & Trim(Text1.Text) & "'"

cn.Execute strsql, , adCmdText

MsgBox "Data Pembayaran Telah Di Update!", vbInformation, Me.Caption

Command1.Enabled = True

Command2.Enabled = True

Command1.Enabled = True

Command11.Enabled = True

Command6.Visible = True

Command4.Visible = False

Command3_Click

Text2.Text = ""

Text3.Text = ""

Text2.SetFocus

Exit Sub

Else

MsgBox "Data pembayaran Belum Lengkap!", vbInformation, Me.Caption

Text2.SetFocus

Command3_Click

Exit Sub

End If

End sub

FORM LOAD

Private Sub Form_Load()

OpenConnection

Ldata.Open "select * from T_pembayaran order by no_bayar desc", cn, adOpenDynamic, adLockOptimistic

Tampilkan_Data

Command3_Click

End Sub

TAMPILKAN DATA

Private Sub Tampilkan_Data()

On Error Resume Next

With Ldata

Text1.Text = !no_bayar

DTPicker1.Value = !tgl_lahir

Text2.Text = !nomor_resep

Text3.Text = !jumlah_bayar

End With

Set DataGrid1.DataSource = Ldata.DataSource

DataGrid1.Refresh

Label6.Caption = "Jumlah Baris : " & Ldata.AbsolutePosition & " Dari : " & Ldata.RecordCountEnd Sub

PENCARIAN

Private Sub Text5_Change()

Dim strsql As String

If Combo1.ListIndex = 0 Then

Set Ldata = Nothing

strsql = "select* from T_pembayaran where no_bayar like'%" & Text4.Text & "%'"

Ldata.Open strsql, cn, adOpenKeyset, adLockBatchOptimistic, adCmdText

Tampilkan_Data

ElseIf Combo1.ListIndex = 1 Then

Set Ldata = Nothing

strsql = "select* from T_pembayaran where nomor_resep like'%" & Text4.Text & "%'"

Ldata.Open strsql, cn, adOpenKeyset, adLockBatchOptimistic, adCmdText

Tampilkan_Data

End If

End Sub

REPORT

Private Sub Command11_Click()

CrystalReport1.DataFiles(0) = App.Path & "\Siswa.mdb"

CrystalReport1.ReportFileName = App.Path & "\Report1.rpt"

CrystalReport1.WindowState = crptMaximized

CrystalReport1.RetrieveDataFiles

CrystalReport1.Action = 1

End Sub

TAMBAH

Private Sub Command12_Click()

autonis

Text1.Enabled = False

Text2.Text = ""

End Sub

AUTO NIS

Private Sub autono_bayar()

Dim strsql, auto As String

Set Ldata = Nothing

strsql = "select * from T_pembayaran order by no_bayar"

Ldata.Open strsql, cn, adOpenKeyset, adLockOptimistic, adCmdText

With Ldata

If .BOF And .EOF Then

auto = "DP000"

Else

Ldata.MoveLast

auto = Ldata!no_bayar

End If

auto = Format(Str(Val(Right$(auto, 3)) + 1), "000")

Text1.Text = "DP" & auto

End With

Set Ldata = Nothing

End Sub

untuk autonis itu buat sendiri bebas kalian mau buat di mana saja...

nah...di sini ane punya Codding Variasi nie / Tambahan Codding buat kalian..!!cekiiddoott dehh!!KeyPress,Form-Activate,IsNumeric

Private Sub DTPicker1_Change()

DTPicker1.DataFormat = Now

End Sub

Private Sub DTPicker1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

Private Sub Form_Activate()

Text2.SetFocus

End Sub

Private Sub Text2_Change()

If IsNumeric(Text2.Text) Then

Text2.Text = ""

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

DTPicker1.SetFocus

End If

End Sub

Private Sub Text3_Click()

If IsNumeric(Text3.Text) Then

Text3.Text = ""

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Combo1.SetFocus

End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Command1_Click

End If

End Sub

Ane berterima kasih Kepada Bapak Mardy Turnip Guru Programer SMK MEDIKACOM BANDUNG
::SUNDUL::

My Profil

.:: BACA SEBENTAR YAH, BIAR NANTI GK NYESEL KALO UDAH REQUEST ::.
Jadi gini.. Nama gw Rama Adimulya. Gw sendiri juga gk tau arti nama itu apa.. Yg gw tau itu nama spesial bgt di mata org tua gw. Kalo dulu sblum lahir gw boleh request sih gw mau di namain Vino G Bastian..haha

Ini Facebook terakhir gw dari semua yg pernah gw bikin tapi kena hack truz ama org gk bertanggung-tanggung dah pokoknya.. hehe..

Facebook yg ini very eksklusif deh, makanya di add, yah, di add yah, yah, yah di add, hehe.. :D

Lanjut !! Gw lahir di Bandung tanggal 27 Juli 1993, masih muda kan.. kwokwokwok.. Temen gw banyak tapi sahabat gw cuma ada 15. Kalian pasti tau koq yg mana. Tapi di rahasiakan, ntar kalian pada request ke mereka lagi,, hahahahaha.. Gw sering di panggil ram, alien gtau lah itu dari mana anak" manggil gue dengan nama itu atau apalah. Tapi gw paling suka di panggil Ram (klo sama cewe). Kalo kalian mau manggil yg laen, ya terserah deh, asal jangan yg aneh" -.- Gw punya 1 akar ( tau kan maksudnya ) dan gw harap akar itu bisa truz tumbuh sampe gw tua nanti. Tapi gk tau deh, liat aja ntar. Kalo masalah cabang gw gk punya, yg gw punya jga cabang temen. Bukan cabang akar lho, hehehe ( yg gk ngerti tanya langsung aja ya nanti ) ..haha 1 lagi.. curhat dikit yaa.. Eh..eh..eh.. sebenernya gw bingung sama hidup gw, gk banyak perubahan, rotasi kehidupan, apalagi dinamika, jalan hidup, atau apalah. Bangun pagi sekolah, di sekolah belajar sampe pulang, mandi, makan, tidur, bangun lagi, sekolah lagi, lagi-lagi belajar di sekolah sampe pulang, mandi lagi, makan lagi, tidur lagi. Begitu siklus terulang tiap harinya... Yaa gitu aja dulu deh.. Lagi onlend di warnet nih, billing udah 20rb T.T Intinya kalo pengen tau lebih deket dan kenal di add aja pastinya.. :p So.. thank's buat kalian udah mau buang waktu buat liat info yg mungkin GJ ini.. hehehe !!

Verified I'm 100 % OriginaL
I'm 0 % Fake

http://www.facebook.com/ramadimulya
http://www.twitter.com/ramadimulya

Real profile Rama Adimulya

█║▌│█║▌│█││█║█
█║▌│█║▌│█││█║█ © 2012

Science Clubs

Codding VB.NET SIMPAN (SAVE)

Codding Visual Basic

Site Meter

you are visitor