Membuat Aplikasi Lifting Parking Dengan VB 6.0 dan MS. Access

perkembangan ilmu pemrograman membuat saya ingin membuat sebuah program sederhana yang bertujuan untuk pembelajaran diri sendiri maupun orang yang ingin belajar, terutama orang yang yang membaca blog ini :)


dalam kesempatan kali ini, saya ingin berbagi tentang program yang saya buat menggunakan aplikasi visual basic 6.0 dan mikrosoft access sebagai tempat penyimpanan (database).
program ini masih sangat sederhana, dan pengembangan dari program ini adalah dapat terhubung ke mikrokontroler arduino sebagai pengontrol dari mekanik yang akan dibuat.

langsung saja, pertama kita buat dulu sebuah database, dengan nama db_parkir menggunakan access 2007, namun saat menyimpannya saya menggunakan ekstensi .mdb, dimana mdb ini merupakan ekstensi dari access 2003. mengapa saya menggunakan ekstensi tersebut, itu nnti insyaallah akan saya jelaskan pada postingan saya berikutnya ---->>>>.

dan berikut merupakan isi tabel dari database yang saya buat, dan saya harap anda sudah mengerti cara membuat database dengan microsoft access, karna ada ribuan tutorial tentang pembuatan database menggunakan microsoft access, anda hanya tinggal search di mesin pencari terbesar di dunia, siapa lagi kalo bukan si mbah google,, hehehee

gambar Tabel mobil dengan 4 buah record

setelah selesai membuat database db_parkir dan tabel mobil, simpan pada direktori D:latihan/

dimana penyimpanan tersebut agar mudah dalam mengakses file tersebut.

oke next,

masuk ke program visual basic 6.0, lalu buat sebuah form dan sebuah modul.

form berfungsi untuk membuat sebuah tampilan dari aplikasi, sedangkan pada modul, digunakan untuk membuat variable global, dimana variable tersebut berisi tentang koneksi antara microsoft access dan visual basic 6.0

pada modul klik dua kali lalu ketikan program sebagai berikut:

Public conn As New ADODB.Connection

Public rs_mobil As New ADODB.Recordset

Public Sub koneksi()

 Set conn = New ADODB.Connection

 Set rs_mobil = New ADODB.Recordset

 conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & _

 "\db_parkir.mdb;Persist Security Info=false"

End Sub

pada koneksi diatas saya menggunakan fungsi ADODB, dimana jika anda menggunakan fungsi tersebut maka anda harus mengaktifkan library nya terlebih dahulu, yakni dengan cara pilih menu Project -> References. lalu centang bagian Microsoft ActiveX Data Objects 2.8 Library.


selanjutnya kembali ke menu form1, lalu siapkan tools sebagai berikut:

2 buah label
2 buah command button
1 buah timer


dan buat tampilan sebagai berikut:

dan berikut untuk koding lengkapnya:

Dim data As String

Dim nama As String

Dim jamMasuk As String

Sub data_mobil()

conn.CursorLocation = adUseClient

rs_mobil.Open "select * from mobil", conn

    With rs_mobil

        If Not .EOF Then

        Text1.Text = !no_plat

    

        End If

    

    End With

End Sub

Private Sub Command1_Click()

Dim a As String

a = "a1"

Dim sql As String

If Command1.Caption = "EMPTY" Then

    nama = InputBox("masukan nama: ")

    data = InputBox("masukan plat nomor: ")

    sql = "insert into mobil (no_plat,pemilik,no_kamar, jam_masuk) values ('" & data & "','" & nama & "','" & a & "','" & jamMasuk & "')"

    Set rs_mobil = conn.Execute(sql)

    

    Command1.Caption = "FULL"

Else

data = InputBox("masukan nama: ")

    sql = "select*from mobil where no_plat =  '" & data & "' And no_kamar = '" & a & "'"

    Set rs_mobil = conn.Execute(sql)

    

    If rs_mobil.EOF Then

        MsgBox "maaf kode verifikasi anda salah silahkan coba lagi", vbInformation

        

        

    Else

    nama = rs_mobil!pemilik

        MsgBox "selamat data ditemukan " & data & " dengan nama " & nama

        sql = "update mobil Set jam_keluar='" + jamMasuk + "' where no_plat='" + data + "'"

        Set rs_mobil = conn.Execute(sql)

        

        Command1.Caption = "EMPTY"

        

    End If

End If

    

End Sub

Private Sub Command2_Click()

Dim a As String

a = "b1"

Dim sql As String

If Command2.Caption = "EMPTY" Then

    nama = InputBox("masukan nama: ")

    data = InputBox("masukan plat nomor: ")

    sql = "insert into mobil (no_plat,pemilik,no_kamar, jam_masuk) values ('" & data & "','" & nama & "','" & a & "','" & jamMasuk & "')"

    Set rs_mobil = conn.Execute(sql)

    

    Command2.Caption = "FULL"

Else

data = InputBox("masukan nama: ")

    sql = "select*from mobil where no_plat =  '" & data & "' And no_kamar = '" & a & "'"

    Set rs_mobil = conn.Execute(sql)

    

    If rs_mobil.EOF Then

        MsgBox "maaf kode verifikasi anda salah silahkan coba lagi", vbInformation

        

        

    Else

    nama = rs_mobil!pemilik

        MsgBox "selamat data ditemukan " & data & " dengan nama " & nama

        sql = "update mobil Set jam_keluar='" + jamMasuk + "' where no_plat='" + data + "'"

        Set rs_mobil = conn.Execute(sql)

        

        Command2.Caption = "EMPTY"

        

    End If

End If

    

End Sub

Private Sub Form_Load()

Call koneksi

End Sub

Private Sub Timer1_Timer()

jamMasuk = Time

Label2.Caption = jamMasuk

End Sub

dan berikut link merupakan source kode dari aplikasi ini, anda dapat mengembangkan aplikasi ini sesuai kebutuhan anda,

/*