Download
1 / 15
150 likes | 314 Views
ADODB. Arfansyah , M.Kom. Karakteristik Tipe Koneksi Adodb. Merupakan salah satu komponen ADO yang menghubungkan antara Visual Basic dengan Database. Adodb merupakan perwakilan sebuah recordset atau hasil sebuah query di dalam Visual Basic.
E N D
ADODB Arfansyah, M.Kom
Karakteristik Tipe Koneksi Adodb • Merupakan salah satu komponen ADO yang menghubungkan antara Visual Basic dengan Database. • Adodb merupakan perwakilan sebuah recordset atau hasil sebuah query di dalam Visual Basic. • Dapat mengeksekusi (execute) semua perintah “Data Manipulation Language” (Select, Insert, Update & Delete). • Lebih cepat dalam menampilkan data dalam jumlah besar. • Tidak menggunakan objek berupa “Control Data”. • Untuk menampilkan data hasil query dari Adodc, dapat menggunakan komponen Datagrid (Microsoft DataGrid Control)
Setting Adodb • Pada Visual Basic, klik menu Project, lalu pilih “References”. Klik tanda Check pada “Microsoft ActiveX Data Objects 2.6” atau LEBIH TINGGI.
Setting ADODB • Pada “Project Explorer”, klik kanan lalu pilih ADD, Module. • Atau klik pada toolbar untuk menambahkan Module pada Project Explorer.
Setting Adodb • Deklarasikan Variabel untuk “Connection” pada Module yang telah ditambahkan. Deklarasikan Variabel Connection pada baris General (paling atas pada module). • Cth : Public Cn As ADODB.Connection • Buat sebuah “Function Public” atau “Sub Public” untuk membuka dan menutup koneksi.
Setting Adodb • Cth Perintah buka koneksi ke “Database Access” : (* • Set Cn = New ADODB.Connection • Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data • Source=" & App.Path & "\Pustaka.mdb;Persist • Security Info=False" • Cn.ConnectionTimeout = 30 • Cn.CommandTimeout = 0 • Cn.CursorLocation = adUseClient • Cn.Open App.Path & "\Pustaka.mdb“ • ConnectionString • ConnectionString adalah sebuah string yang digunakan untuk menghubungkan Lingkungan Visual Basic ke Database. • ConnectionTimeout (satuan = detik) • Batas waktu maksimal ADODB untuk terhubung ke Database. • CommandTimeout (satuan = detik) • Batas waktu maksimal ADODB untuk mengeksekusi sebuah query. • CursorLocation • Menetapkan koneksi untuk membentuk cursor di sisi Client. • Open • Perintah untuk membuka koneksi ke database. • * ConnectionString dapat diambil dari ADODC yang telah disetting
Setting ADODB • Untuk menutup koneksi ADODB : If Not Cn Is Nothing Then Cn.Close Set Cn = Nothing End If If Not Cn Is Nothing Then Untuk memeriksa apakah koneksi telah terbentuk atau belum. Cn.Close Untuk menutup koneksi ADODB ke database. Set Cn = Nothing Untuk menghilangkan setting database pada ADODB.
Adodc Vs Adodb • Metode Insert / AddNew • Adodc Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(“Field1”) = Text1.Text . Adodc1.Recordset.Update Adodc1.Refresh • Adodb Dim Rs As Adodb.Recordset Set Rs = New Adodb.Recordset Rs.Open “Query”,[Active Connection],adOpenDynamic,adLockOptimistic Rs.AddNew Rs(“Field1”) = Text1.Text . Rs.Update Rs.Close Set Rs = Nothing
Adodc Vs Adodb • Metode Update • Adodc Adodc1.RecordSource = [Query] Adodc1.Refresh If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.Fields(“Field1”) = Text1.Text . Adodc1.Recordset.Update End If Adodc1.Refresh • Adodb Dim Rs As Adodb.Recordset Set Rs = New Adodb.Recordset Rs.Open [Query],[Active Connection],adOpenDynamic,adLockOptimistic If Not Rs.EOF Then Rs(“Field1”) = Text1.Text . Rs.Update End If Rs.Close Set Rs = Nothing
Adodc Vs Adodb • Metode Delete • Adodc Adodc1.RecordSource = [Query] Adodc1.Refresh If Not Adodc1.Recordset.EOF Then Text1.Text = Adodc1.Recordset.Fields(“Field1”) . Data1.Recordset.Delete End If • Adodb Dim Rs As Adodb.Recordset Set Rs = New Adodb.Recordset Rs.Open [Query],[Active Connection],adOpenDynamic,adLockOptimistic If Not Rs.EOF then Text1.Text = Rs(“Field1”) . Rs.Delete End If Rs.Close Set Rs = Nothing
Adodc Vs Adodb • Metode Select • Adodc Adodc1.RecordSource = [Query] Adodc1.Refresh If Not Adodc1.Recordset.EOF Then Text1.Text = Adodc1.Recordset.Fields(“Field1”) . End If • Adodb Dim Rs As Adodb.Recordset Set Rs = New Adodb.Recordset Rs.Open [Query],[Active Connection] If Not Rs.EOF then Text1.Text = Rs(“Field1”) . End If Rs.Close Set Rs = Nothing
Cursortype Cursor / Recordset : Sekumpulan dari record yang mewakili hasil dari sebuah query. adOpenForwardOnly : • Merupakan cursor default ADO dan paling efisien ketika menset locktype menjadi adLockReadOnly. • Cocok untuk menampilkan data dalam jumlah besar. adOpenKeyset • Merupakan tipe cursor dimana user tidak dapat melihat perubahan yang dilakukan oleh user lain terhadap record.
Cursortype adOpenDynamic • Merupakan tipe cursor dimana user dapat melihat perubahan yang dilakukan oleh user lain terhadap record, karena cursor ini secara otomatis diupdate ketika user lain menambah atau menghapus sebuah record yang sudah ada di cursor / recordset. • Gunakan cursor ini untuk melakukan Insert, Update ataupun Delete data pada tabel. adOpenStatic • Merupakan sebuah snapshot / hasil penyalinan data dari sebuah tabel. • Cocok digunakan untuk menampilkan data.
Locktype Locktype Merupakan suatu metode yang digunakan untuk mencegah tindakan pengubahan data pada record yang sama pada waktu yang bersamaan. adLockReadOnly • Merupakan locktype default ADO yang akan membentuk cursor / recordset yang tidak dapat diupdate. • Hanya digunakan untuk menampilkan data. adLockPessimistic • Tipe penguncian akan dilakukan pada saat user mengakses record, dan hanya dapat diakses oleh user lain setelah metode update dilakukan.
Locktype adLockOptimistic • Merupakan tipe locktype dimana record akan dikunci hanya ketika sedang diupdate. adLockBatchOptimistic • Metode penguncian dimana pengguna dapat mengambil semua data ke client dan membiarkan user membentuk semua perubahan yang perlu (Insert, Update atau Delete), lalu menyimpan kembali semua perubahan dalam satu operasi saja.
