Akses dan manipulasi basis data dengan vb

PEMOGRAMAN APLIKASI DENGAN VB & VB.NET

1. Dasar-dasar Visual Basic 2. Akses dan Manipulasi Data dengan VB 3. Teknologi COM

Salah satu keunggulan Visual Basic dibandingkan dengan Bahasa pemrograman yang lain adalah kemampuannya dalam akses dan manipulasi data. Hal ini karena Visual Basic dikembangkan oleh Microsoft yang juga membuat sistem operasi Windows. Sehingga fungsi-fungsi basis data mendapat dukungan yang sangat lengkap.

Visual Basic menyediakan beragam cara untuk mengakses dan memanipulasi data. Perhatikan diagram pada gambar berikut ini.

• ODBC
  ODBC, singkatan dari Open Data Base Connectivity. Merupakan sekumpulan fungsi yang membolehkan kita untuk koneksi pada basis data lokal atau yang berada di jaringan. Biasanya ODBC digunakan untuk mengakses berbagai tipe basis data, yang antara lain: MS FoxPro, MS Access, MS SQL Serve, Oracle, atau bahka data yang tersimpan dalam bentuk file data.


• DAO
  DAO atau Data Access Object adalah antarmuka dari Microsoft Jet, perangkat utama penggerak MS Access. Kita dapat membuat basis data dengan MS Access, kemudian kita manipulasi dengan Visual Basic melalui DAO dengan mudah. Karena DAO langsung berhubungan dengan MS Access, maka kita dapat menggunakan fungsi-fungsi DBMS dari Visual Basic.


• OLE DB
  OLE DB adlah teknologi untuk mengakses basis data level dasar yang sebenarnya dimaksudkan untuk menggantikan fungsi ODBC. Namun dalam perkembangannya ODBC dan OLE DB memiliki perbedaan, yaitu: OLE DB berbasis pada teknologi COM dan dapat digunakan untuk mengakses basis data yang bukan bersifat relasional.


• ADO
  ADO (ActiveX Data Object) adalah antarmuka level atas dari OLE DB. ADO dikembangkan di atas OLE DB untuk melengkapi fungsi-fungsi yang tidak dimiliki oleh OLE DB, sehingga memudahkan programmer dalam membuat aplikasi.

Membuat dan manipulasi basis data dengan ado

Secara prinsip, apapun metode akses yang digunakan, cara bekerja dengan basis data dari Visual Basic adalah sama. Dibutuhkan beberapa tahapan untuk dapat bekerja dengan basis data. Pada halaman ini kita akan menggunakan ADO sebagai teknologi yang lebih fleksibel dari teknologi yang lain. Tapi ini dapat dikembangkan dengan teknologi yang lain.

• Koneksi dengan basis data.
  Koneksi dengan basis data berarti kita menghubungi basis data supaya terbuka dan bisa kita akses data yang ada didalamnya. Berikut contoh pernyataan untuk koneksi ke basis data biblio.mdb
  
  Dim cn As New ADODB.Connection
  cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;"
  _
  & "Data Source=C:\Microsoft Visual
  Studio\Vb98\Biblio.mdb"


• Mengakses record data pada basis data..
  Kumpulan dari record-record data dalam basis data, pada ADO disebut sebagai recordset. Untuk bekerja dengan recordset ini kita membutuhkan tabel atau view/query yang ada dalam basis data. Perhatikan contoh berikut ini.
  
  Const DBPATH = "C:\Program Files\Microsoft Visual
  Studio\Vb98\NWind.mdb"
  Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
  cn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" &
  DBPATH
  
  rs.Source = "Employees"
  rs.Open , cn
  
  Pada kode di atas kita menggunakan basis data Nwind.mdb sebagai Data source. Kemudian sebagai sumber recordset, kita memanggil tabel "Employees". Variabel rs adalah recordset. Setelah kita tentukan sumber tabelnya, kita dapat membuka tabel tersebut dengan pernyataan open.
  
  Setelah terbuka tabel sumbernya, kita dapat mengakses data yang ada di dalamnya. Berikut ini contoh kode untuk mengakses data pada suatu tabel.
  
  Dim i As Integer
  For i = 0 To rs.Fields.Count
  Print rs.Fields(i).Name & " = " & rs.Fields(i).Value
  Next
  
  Perintah di atas akan mencetak seluruh baris dan kolom Name yang ada pada tabel Employees yang telah terbuka sebelumnya. Cara yang paling cepat adalah dengan menggunakan perintah For Each seperti kode berikut.
  
  Dim fld As ADODB.Field
  For Each fld In rs.Fields
  Print fld.Name & " = " & fld
  Next


• Manipulasi data dalam recordset
  Untuk mengupdate data pada suatu recordset dapat dilakukan dengan cara sebagai berikut:
  
  rs.Update Array("FirstName", "LastName", "BirthDate",
  "HireDate"), _
  Array("John", "Smith", #1/1/1961#, #12/3/1994#)
  
  Sedangkan untuk menambah recordset perintah yang digunakan adalah sebagai berikut:
  
  rs.AddNew rs("FirstName") = "Robert"
  rs("LastName") = "Doe
  rs("BirthDate") = #2/5/1955#
  rs.Update
  
  Menghapus record tertentu dapat dilakukan dengan perintah seperti berikut.
  
  rs.Delete
  rs.MoveNext
  If rs.EOF Then rs.MoveLast