CRUD Menggunakan VB+Access

Ada beberapa cara yang bisa digunakan untuk melakukan koneksi antara aplikasi yang dibangun pada Visual Basic 6.0 dengan Database, yaitu dengan menggunakan Tool Data atau ADODC. ADODC di sini berfungsi untuk menjembatani antara aplikasi dengan database yang sudah kita buat sebelumnya.

Selain menggunakan Tool Data tersebut, kita juga bisa melakukan koneksi dengan database menggunakan koding secara langsung tanpa harus menyisipkan komponen ADODC ke dalam project. Di tulisan saya kali ini saya akan berbagi tentang bagaimana cara koneksi ke database menggunakan ADODC, modul, data Environment, sedikit koding, dan sejumput cinta serta kasih sayang😀

Langsung saja ke pembahasan sodara-sodara😀

Diceritakan saya akan membuat sebuah aplikasi dimana aplikasi tersebut memiliki autentifikasi login username dan password sebelum masuk ke aplikasi utama. Di aplikasi ini nantinya akan menampilkan data yang disimpan dalam databse di aplikasi utama dalam bentuk tabel. Selain itu aplikasi ini juga nantinya dapat melakukan operasi CRUD standar seperti memasukan data baru, menghapus data yang dipilih, dan mengubah data yang dipilih.

Perlu diketahui, di program ini kita akan menggunakan komponen ADO Control dan DataGrid Control. Tambahkan terlebih dahulu kedua komponen tersebut dengan cara tekan tombol [CTRL] + [T] kemudian pada kotak dialog Component yang muncul tambahkan kedua komponen berikut:

CRUD Menggunakan VB+Access

Kemudian tambahkan modul baru dan tambahkan skrip dibawah ini.

Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset
Public RSdata As New ADODB.Recordset

Sub koneksi()
Set konek = New ADODB.Connection
Set RSdata = New ADODB.Recordset
konek.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataBase.mdb;Persist Security Info=false"
konek.CursorLocation = adUseClient

'RS.Open <a class="zem_slink" title="SQL" href="http://www.iso.org/iso/catalogue_detail.htm?csnumber=45498" target="_blank" rel="homepage">SQL</a>, konek

With RS
If Not .EOF And .EOF Then
POS = .Bookmark
End If
End With
End Sub

Sub execute(SQL As String)
Set conn = New ADODB.Connection

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataBase.mdb;Persist Security Info=False"
conn.CursorLocation = adUseClient

conn.execute SQL
End Sub

Modul diatas digunakan untuk setiap melakukan transaksi add/delete/view terhadap database kita tinggal memanggil nama prosedurnya saja.

Kemudian setelah itu adalah kita buat semacam form login, dan untuk melakuakn autentifikasi password+username yang tersimpan di dalam database bisa menggunakan kode berikut:

Private Sub cmdSubmit_Click()
If conn.State = 1 Then conn.Close
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataBase.mdb;Persist Security Info=False"
If RS.State = 1 Then RS.Close
RS.Open "select * from admin where user_name= '" & txtUser.Text & "' And password = '" & txtPassword.Text & "'", _
conn, 3, 3
If Not RS.EOF Then
MsgBox ("Selamat Datang")

Form1.Hide
Form2.Show
Else
MsgBox "Password/Username Salah", vbCritical, "L O G I N"
End If
End Sub

Private Sub Command1_Click()
End
End Sub

Kemudian disini kita akan mencoba menampilkan data di dalam database ke sebuah DataGrid. Tambahkan DataGrid, lalu gunakan kode berikut:

Private Sub Form_Load()
Call koneksi
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataBase.mdb;Persist Security Info=False"
Adodc1.RecordSource = "admin"
Adodc1.RecordSource = "select * from admin"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
' Command4.Enabled = False
End Sub

Dan untuk melakukan operasi penambahan data terhadap database bisa menggunakan kode berikut:

Private Sub cmdTambah_Click()
Dim SQLsimpan As String
If (Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "") Then
MsgBox "Isi Data Dengan Lengkap"
Text1.SetFocus
Else

If IsNumeric(Text2.Text) Then
MsgBox "Nama Pengguna Harus Huruf"
Text2.Text = ""
Text2.SetFocus
Exit Sub
End If


Call koneksi
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataBase.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from admin"
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("id_admin") = Text1.Text
Adodc1.Recordset.Fields("nama_admin") = Text2.Text
Adodc1.Recordset.Fields("user_name") = Text3.Text
Adodc1.Recordset.Fields("password") = Text4.Text
Adodc1.Recordset.Update
MsgBox "Selamat Data Telah Di ISI"
Text1.Text = "ID Admin"
Text2.Text = "Nama Admin"
Text3.Text = "Username"
Text4.Text = "Password"
End If
Unload Form3
End Sub

Kemudian untuk melakukan operasi penghapusan bisa menggunakan perintah berikut:

Private Sub Command3_Click()
Dim IDX As String
IDX = DataGrid1.Columns(1).Text

If IDX <> "" Then
Call execute("delete from admin where id_admin='" & IDX & "'")
MsgBox "Data telah terhapus dengan ID: " & IDX, vbApplicationModal + vbInformation + vbOKOnly, "informasi"
Call Form_Load
End If
End Sub

Itu adalah dasar dalam aplikasi CRUD menggunakan VB+Access, untuk lebih detailnya bisa download source file VB nya di sini.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s