yeahhh... kali ini saya akan memberikan sebuah tutorial untuk membuat modul koneksi database Ms.Access di VB.NET.
Langsung aje dah ni pantengin terus ^_^
Langkah pertama kalian membuat sebuah database di Ms.Access terserah versi berapa saja (disini saya menggunakan Ms.Access 2013)
- Buka Ms.Access kemudian pilih Blank desktop database lalu isi nama database yang kalian inginkan
- Setelah itu buatlah nama database yang kalian inginkan (disini saya mengisi dengan nama 'Test Database') pada kolom 'File Name', lalu click 'Create'
- Maka akan muncul seperti pada screenshoot di bawah ini, silahkan buat table or field yang kalian inginkan , namun jangan sampai lupa nama atau format file yang baru saja kalian buat. Karena itu akan dibutuhkan untuk 'source' saat pembuatan modulnya nanti
- Nah sekarang saatnya kita menuju ke Visual Studio 2010, pastikan kalian sudah membuat sebuah project nya terlebih dahulu. Click kanan pada nama project name nya , lalu pilih 'Add' > 'New Item'
- Langkah berikutnya adalah pilih 'Module' kemudian berikan nama module nya (disini saya mengisinya dengan nama 'ModKoneksi.vb') pada kolom yang tersedia jika sudah click 'Add'
- Langkah selanjutnya adalah men-drop database nya, dengan cara click 'Server Explorer', lalu click kanan pada 'Data Connections' lalu pilih 'Add Connection..'
- Tampilah form untuk mencari database yang telah kalian buat tadi pada 'Ms.Access' yang ber-ekstensi (.accdb), pilih 'Change' ubah ke 'Microsoft Access Database File (OLE DB)' , setelah itu click 'Browse' temukan file database nya ditempat kalian menyimpan
- Lakukanlah pengujian dengan cara click 'Test Connection', langkah ini bertujuan untuk mengetahui apakah database nya terkoneksi atau tidak
- Berikut adalah coding untuk module nya :
Imports System.Data
Imports System.Data.OleDb
Module ModKoneksi
Public Database As OleDbConnection
Public Tabel As OleDbDataAdapter
Public Data As DataSet
Public Record, Record_Peminjaman As New BindingSource
Public DML As New OleDbCommand
Public Cari As OleDbDataReader
Public Sub Koneksi()
Try
Database = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=TestDatabase.accdb")
Database.Open()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
End Module
- Selesai ^_^
Mudah bukan untuk membuat sebuah module koneksi ini,semoga dapat bermanfaat untuk kalian semua yang telah mengunjungi blog ini .
Sampai jumpai di tutorial berikutnya...
Terima kasih :)
terimakasih atas infonya
ReplyDeletesolder temperatur