Mengoneksikan Database VB ke Access menggunakan source App.path


Sementara ini para pembaca newbe mengoneksikan database nya dengan cara mudah, yakni dengan menggunakan ADODC atau menggunakan DATA1, nah namun ada cara lain untuk menggoneksikan database ke dalam project VB anda, bagaimana caranya  ?

Kali ini kita akan membahas mengoneksikan database Access ke Vb menggunakan souce yang memanfaatkan objek ADODC, hm.. gimana maksutnya ? ya.. pertama kita akan menggunakan objek ADODC pada form, namun kita akan menyisipkan sedikit source yang sebenartnya fungsionalnya hamper sama dengan settingan properties pada ADODC, terus Apa kelebihannya ? ya.. seperti kita ketahui, jika kita menggunakan settingan properties pada ADODC, maka penempatan project pada computer menjadi bersifat statis, sehingga jika kita merubat letak file, maka niscaya program akan tidak bias dijalankan , dan akan muncul pesan pesan error mengenai pengoneksian database, nah jika kita menggunakan model pengoneksian database ini , maka aplikasi yang kita buat akan bersifat portable dan tidak masalah jika kita copykan ke computer lain dengan letak file yang berbeda beda.

Langsung saja kita mulai :

  1. Siapkan Database access yang ingin dikoneksikan (namadatabase : dsbase, namatable : bukutelpon, field : nama(text(30)) & telpon((30)) ).
  2. Buat Form terlebih dahulu
  3. Buat Objek ADOBC yang terdapat pada component Microsoft Ado Data Control 6.0  di Formnya. Untuk lebih mudahnya mari kita buat form inputan sederhana dan juga data grid untuk menampilkan hasilnya.

Buat Tampilan Form Seperti ini : 

4. Simpan Project dan Formnya pada satu FOLDER dengan database yang sudah disiapkan tadi.

5. Setlah Form telah siap, maka kita akan bermain codding skarang , pertama kita buat script untuk mengoneksikan database degan obyek ADOBC,

Public Conn As New ADODB.Connection ‘deklarasi variable untuk koneksi

Public Sub koneksi()

On Error GoTo konekErr

If Conn.State = 1 Then Conn.Close ‘keluar database jika sudah terkoneksi sebelumnya

‘driver koneksi, sesuaikan database dsbase.mdb nya dengan database anda

Conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\dsbase.mdb; ”

Exit Sub

konekErr: ‘hanya koreksi jika database gagal dihubungi

MsgBox “Gagal menghubungkan ke Database ! Kesalahan pada : ” & Err.Description, vbCritical, “Peringatan”

End Sub

6.  Coba cek dengan meruning program, jika tidak ada error maka lanjutkan.

7. skarang, kita coba mengoneksikan nya dengan data1, letaknya pada  form_load :

Private Sub Form_Load()

koneksi ‘pemanggilan koneksi database

Adodc1.ConnectionString = Conn.ConnectionString

Adodc1.RecordSource = “select * from bukutelpon ”

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1

End Sub

8.  Jalankan Aplikasi skarang, maka akan ada sedikit perubahan pada datagrid, nah itu menandakan bahwa database sudah terkoneksikan dengan benar.

9. Sekarang coba kita tambahkan tombol save, dan kita akan meletakkan souce untuk save pada tombol save tersebut.
sebenarnya jika sudah terkoneksi dengan benar. Maka metode untuk penyimpanan , pengeditan dan pendeletan, sama dengan menggunakan ADOBC biasa, tapi coba kita bahas secara singkat untuk mennyimpan pada database.

Private Sub Command1_Click()

With Adodc1.Recordset

.AddNew

!nama = Text1.Text

!telpon = Text2.Text

.Update

End With

Adodc1.Refresh

DataGrid1.Refresh

End Sub

10.  Nah selesai sudah pengoneksian database menggunakan source yang memanfaatkan objek ADODC, dengan metode penempatan file app.path.

Harap ilmu ini bermanfaat,

Salam diaz

Wasalam.

Jika ingin download tutorial lengkap dengan banyak gambar.

silakan download di SINI

Mengoneksikan_Database_Access_menggunakan_source_App.path_by_fendiaz

atau pembaca ingin mendownload source lengkapnya VB6

silakan download di Sini

http://diaz.netau.net/data/ds_VB_cobapath.rar

Mengoneksikan Database VB ke Access menggunakan source App.path

8 thoughts on “Mengoneksikan Database VB ke Access menggunakan source App.path

  1. gan Boleh nax kemarin saya buat program Vb tapi bermasalah dgn database accsessx ngak mau merecord padahal di kodingx ngak ada yg salah… koding yg saya gunakan ini:

    Private Sub Form_Load()
    Set cn = New ADODB.Connection
    cn.Provider = “microsoft.jet.oledb.4.0”
    cn.CursorLocation = adUseClient
    cn.Open App.Path & “\Anggota.mdb”
    Set rs = cn.Execute(“select * from DATA”)
    Call bersih
    End Sub

    tp makeX listview bukan datagrid… mohon bantuanX
    di blz ke email ku ya….

    1. fendiaz says:

      Public cnAs New ADODB.Connection
      Private Sub Form_Load()

      cn.Provider = “microsoft.jet.oledb.4.0″
      cn.CursorLocation = adUseClient
      cn.Open App.Path & “\Anggota.mdb”
      Set rs = cn.Execute(“select * from DATA”)
      Call bersih
      End Sub

    2. fendiaz says:

      Public cn As New ADODB.Connection
      Private Sub Form_Load()

      cn.Provider = “microsoft.jet.oledb.4.0″
      cn.CursorLocation = adUseClient
      cn.Open App.Path & “\Anggota.mdb”
      Set rs = cn.Execute(“select * from DATA”)
      Call bersih
      End Sub

  2. fendiaz says:

    Public cnAs New ADODB.Connection
    Private Sub Form_Load()

    cn.Provider = “microsoft.jet.oledb.4.0″
    cn.CursorLocation = adUseClient
    cn.Open App.Path & “\Anggota.mdb”
    Set rs = cn.Execute(“select * from DATA”)
    Call bersih
    End Sub

  3. I’ve been surfing online more than 3 hours today, yet I never found any interesting article like yours. It is pretty worth enough for me. Personally, if all web owners and bloggers made good content as you did, the web will be much more useful than ever before.|
    I could not resist commenting. Well written!|
    With having so much content and articles do you ever run into any issues of plagorism or copyright infringement? My site has a lot of unique content I’ve either created myself or outsourced
    but it looks like a lot of it is popping it up all over the web without my agreement.

    Do you know any techniques to help prevent content from being stolen?

    I’d genuinely appreciate it.

  4. I’ve been browsing online more than 3 hours today, yet I never found any interesting article like yours. It’s pretty worth enough for me.
    Personally, if all web owners and bloggers made good content as you did, the internet will be
    a lot more useful than ever before.|
    I couldn’t refrain from commenting. Very well written!|
    But…..what can you do with this information?

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s