Koneksi Database Tanpa Objek Pada VB

Jika Sebelumnya anda sudah mengetahui cara Koneksi Database dengan Metode Objek dan Dengan Metode App.Path Kini saatnya kita mengetahui Koneksi Database tanpa Objek. Langkah Langkahnya adalah sebagai berikut :

1.    Tambahkan form baru
2.    Tambahkan datagrid ke dalam form
3.    Ketiklah coding berikut ini

Dim Conn As New ADODB.Connection
Dim RSBarang As ADODB.Recordset
Dim mvBookMark As Variant



Private Sub Form_Activate()
Set Conn = New ADODB.Connection
Set RSBarang = New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBAccess.mdb"
Conn.CursorLocation = adUseClient
RSBarang.Open "select * from barang", Conn
With RSBarang
    If Not (.BOF And .EOF) Then
      mvBookMark = .Bookmark
    End If
End With
Set DataGrid1.DataSource = RSBarang.DataSource
End Sub

4.    Run project (F5)

KONEKSI MENGGUNAKAN DSN (DATA SOURCE NAME)

1.    Tambahkan form baru
2.    Buatlah GUI dengan sebuah adodc dan datagrid
3.    Hubungkan datagrid ke adodc
4.    Klik kanan adodc
5.    Pilih adodc properties
6.    Pilih use odbc data source name
7.    Klik new

8.    Pilih use data source (apply to this machine only)
9.    Klik next

10.    Pilih microsoft access driver (*.mdb)
11.    Klik next
12.    Klik finish
13.    Tulis nama DSN (misalnya cobadsn)
14.    Klik select

15.    Pilih database
16.    Klik OK
17.    Klik OK

18.    Pilih nama DSN

19.    Klik tab recordsource
20.    Pilih 2 - AdCmdTable
21.    Pilih tabel barang
22.    Klik apply
23.    Klik OK
24.    Run project (F5)

Silahkan kunjungi Kumpulan Tutorial Lengkap VB Dengan KLIK LINK INI

Tweet