Belajar VB.NET Dengan AdoDb dan Database Access.

Path 4 VB.NET

Bekerja dengan object Form, AdoDb, Class dengan membuat Form Mahasiswa menggunakan Database Access.

Pertama Kita Buatlah Project dengan VB.Net 2008 dengan nama LAT4.

Kemudian buatlah database dengan Ms. Access seperti berikut dan beri nama: “Mahasiswa”.

Dan Pilih Penyimpanan menggunakan Microsoft Access 2003 yang berExtensi: mdb.

Field Name	Data Type	Field Size	“Description/Keterangan”
NPM	Text	15	Primary key
Nama	Text	30
Jurusan	Text	30
Alamat	Text	50

Database ini dan nantinya akan diletakkan database pada pada Folder Data pada direktori :

Lat4 \Lat4\Bin\Debug\Data.  Pada folder program vb yang kita buat “Data”.

Desainlah form seperti dibawah ini.

Isi Properti dari asing-masing ToolBox

Object Form	Name	Text	File Name	Pada Properties
Form1	frmLat4	Form Mahasiswa	frmLat4.vb	MaximizeBox, MinimizeBox=False

Object ToolBox	Name	Text
Label1	Label1	NPM:
Label2	Label2	Nama:
Label3	Label3	Jurusan:
Label4	Label4	Alamat:
TextBox1	txtNPM	-
TextBox2	txtNama	-
TextBox3	txtJurusan	-
TextBox3	txtAlamat	-
Button1	btnPrev	<< Prev
Button2	btnNext	Next >>
Button3	btnAddNew	&Add New
Button4	btnSave	&Save
Button5	btnEdit	&Edit
Button6	btnDelete	&Delete
Button7	btnCancel	&Cancel
Button8	btnRefresh	&Refresh
Button9	btnClose	&Close
Button10	dgvPrev	-
Button11	dgvNext	-
DataGridView1	DGV	-

Hingga Hasilnya Seperti Di Bawah Ini:

Setelah Selesai mendisain Form, Maka Kita Akan Bermain pada script atau koding.

Kita buat Class terlebih dahulu caranya seperti berikut :

klik Menu ProjectàAdd Class.àClass. (Beri nama: DbConn.vb).

              Class DbConn.vb tersebut akan di fungsikan untuk sebagai koneksi ke database access.

Sebelum kita membuat Script/Coding terlebih dahulu kita aktifkan AdoDb.

AdoDb adalah mesin untuk mengkoneksi database

Untuk mengaktifkan AdoDb, caranya: Pilih Menu ProjectàAdd ReferenceàAdodb.

Setelah Selesai, Kita ketik script seperti berikut di dalam Calss DbConn.vb yang telah kita buat tadi.

Imports System.Data.OleDb 'Script Untuk memanggil AdoDb yang telah diaktifkan tadi

Module DbConn

'Script Untuk Koneksi Ke database Access

Public Const cnstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Persist

Security Info=False;Data Source=.\data\Mahasiswa.mdb"

End Module

Script untuk Class DbConn sudah selesai. Sekarang kita akan bermain pada Form frmLat4

Klik 2kali pada Form. Kemudian Ketikan Script Pada frmLat4 Tersebut:

Keterangan : setelah mengklik 2 kali pada for ala akan otomatis terdapat script Public Class dan Private Sub frmLat4_Load yang artinya script yang ada di dalam frmLat4_Load akan di jalankan Ketika Pertama Form tersebut Ditampilkan.

Option Explicit On

Imports System.Data.OleDb

Public Class frmLat4

Dim conn As OleDbConnection 'Create connection

Dim da As OleDbDataAdapter 'create data adapter

Dim ds As DataSet = New DataSet 'create dataset

Dim rs As New ADODB.Recordset 'creates recordset

Dim sql As String = Nothing

Dim cmd As OleDbCommand

Dim dr As OleDbDataReader

Dim dsfillrecords As DataSet = New DataSet

Private Sub frmLat4_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

Dim password As New DataGridViewColumn

'creates a connection

'cnstring = provider of database

conn = New OleDbConnection

If conn.State = ConnectionState.Open Then

conn.Close()

conn.ConnectionString = cnstring conn.Open()

End Sub
DGV.Refresh()

Call initDGV() 'call the initialized

Call fillrecords()

End if

Sub clearText()

txtNPM.Text = "" txtNama.Text = ""

End Sub

txtAlamat.Text = "" txtJurusan.Text = ""

Sub fillrecords()

sql = "Select * from Mahasiswa" txtNPM.DataBindings.Clear() txtNama.DataBindings.Clear() txtAlamat.DataBindings.Clear() txtJurusan.DataBindings.Clear()

da = New OleDbDataAdapter(sql, conn)

Dim cbb As OleDbCommandBuilder = New OleDbCommandBuilder(da)

da.Fill(dsfillrecords, "Mahasiswa")

End Sub

txtNPM.DataBindings.Add("Text", dsfillrecords, "Mahasiswa.NPM") txtNama.DataBindings.Add("Text",  dsfillrecords, "Mahasiswa.Nama") txtJurusan.DataBindings.Add("Text",  dsfillrecords, "Mahasiswa.Jurusan") txtAlamat.DataBindings.Add("Text",  dsfillrecords, "Mahasiswa.Alamat")

Sub initDGV()

DGV.Refresh()

DGV.AllowUserToResizeColumns = False

DGV.GridColor = Color.Black

sql = "Select * from Mahasiswa"

da = New OleDbDataAdapter(sql, conn)

Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)

da.Fill(ds, "Mahasiswa") DGV.DataSource = ds DGV.DataMember = "Mahasiswa"

End Sub

Private Sub btnAddNew_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnAddNew.Click

clearText()

End Sub

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnSave.Click

If txtNPM.Text = "" Or txtNama.Text = "" Or txtJurusan.Text = "" Or txtAlamat.Text = "" Then

MsgBox("Data tidak lengkap,..mohon dilengkapi!", MsgBoxStyle.Exclamation, "Error!")

Else

sql = "Insert Into Mahasiswa Values('" & txtNPM.Text & "', '" &

txtNama.Text & "', '" & txtJurusan.Text & "', '" & txtAlamat.Text & "')" cmd = New OleDbCommand(sql, conn)

cmd.ExecuteNonQuery()

MsgBox("Tersimpan!", MsgBoxStyle.Information, "Simpan")

clearText()

Call initDGV() 'call the initialized gridview

End If

End Sub

Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnEdit.Click

If txtNPM.Text = "" Or txtNama.Text = "" Or txtJurusan.Text = "" Or txtAlamat.Text = "" Then

MsgBox("Data tidak boleh kosong..!")

txtNPM.Focus() : Exit Sub

End If

If MsgBox("Edit Mahasiswa", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Edit") = MsgBoxResult.Yes Then

sql = "update Mahasiswa set Nama = '" & txtNama.Text & "',Jurusan ='"

& txtJurusan.Text & _

"',Alamat = '" & txtAlamat.Text & "' where NPM = '" &

txtNPM.Text & "'"

End Sub

cmd = New OleDbCommand(sql, conn)

cmd.ExecuteNonQuery()

MsgBox("Records Edited!", MsgBoxStyle.Information, "Edit") DGV.Refresh()

End If

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnDelete.Click

If txtNPM.Text = "" Then txtNPM.Focus() : Exit Sub

If MsgBox("Delete Mahasiswa", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Delete") = MsgBoxResult.Yes Then

End Sub

sql = "Delete * from Mahasiswa where NPM = '" & txtNPM.Text & "' "

cmd = New OleDbCommand(sql, conn)

cmd.ExecuteNonQuery()

MsgBox("Records Deleted!", MsgBoxStyle.Information, "Delete") DGV.Refresh()

End If

Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnCancel.Click

clearText()

Call fillrecords()

End Sub

Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnRefresh.Click

clearText()

DGV.Refresh()

Call initDGV() 'call the initialized

Call fillrecords()

End Sub

Private Sub btnPrev_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnPrev.Click

Me.BindingContext(dsfillrecords,  "Mahasiswa").Position -= 1

End Sub

Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnNext.Click

Me.BindingContext(dsfillrecords,  "Mahasiswa").Position += 1

End Sub

Private Sub dgvPrev_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles dgvPrev.Click

Me.BindingContext(ds, "Mahasiswa").Position -= 1

End Sub

Private Sub dgvNext_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles dgvNext.Click

Me.BindingContext(ds, "Mahasiswa").Position += 1

End Sub

Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnClose.Click

Me.Close()

End Sub

End Class

Setelah semua script telah di ketik, Kemudian Kita Tes/Debug atau tekan “f5”

Jika berhasil maka program akan tampil seperti berikut ini:

Keterangan : jangan salah dalam menempatkan FILE ACCESS. Dan jangan salah juga dalam menempatkan script pada setiap asing-masing TOOLBOX.

SEMOGA ARTIKEL INI BERMANFAAT BAGI YANG SEDANG MEMBUTUHKANNYA

SELAMAT MENCOBA