Membuat dan manipulasi basis data dengan ado

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

Sumber: http://artikel-teknolog.blogspot.com/2013/05/membuat-dan-manipulasi-basis-data.html