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 bagian 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

• NextManipulasi 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